Discussion :

[rimbaut]

Bonsoir à tous,
Voici quelques heures que je m'épuise sur ce bout de code sans trouver la solution.

Mon problème est le suivant. J'ai des données dans 2 feuilles différentes et je voudrais comparer les données de la plage de la feuille 1 avec les données de la plage de la feuille 2. La plage peut être variable que ce soit dans l'une ou l'autre feuille.
Le test consiste à comparer chaque ligne de ces plages et si une valeur est différente la copier sur une troisième feuille;

J'ai écrit ce code mais il ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub compare()
   Worksheets("comparaisonBalN").Activate
   Dim cellule As Range
   Dim y_comparaison As Integer
 
   Dim range_2007, range_2008 As String
 
   range_2007 = "A11:A" & calcMaxRow("BalanceN-1")
   range_2008 = "A11:A" & calcMaxRow("BalanceN")
 
   y_comparaison = 5
 
   For Each cellule In Worksheets("balanceN").Range(range_2008)
      If cellule.Value <> Worksheets("balanceN-1").Range(range_2007).Value Then
         Worksheets("comparaisonBalN").Cells(y_comparaison, 1).Value = Worksheets("comparaisonBalanceN-1").Range(range_2007).Value
      End If
   Next cellule
 
End sub

Le code de la fonction est celui ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function calcMaxRow(une_feuille As String)
'Fonction qui affiche toutes les cellules non vides
    Dim y As Integer
 
    y = 11
    Do While Sheets(une_feuille).Cells(y, 1) <> ""
        y = y + 1
    Loop
 
    calcMaxRow = y - 1
End Function

Si une personne bienveillante peut venir me secourir je l'en remercie vivement.

Bonne soirée

[mapeh]

Bonsoir,

dans ton test, tu testes uniquement sur le libellé (dans la colonne A)

et donc forcément, il se peut que tout le monde soit d'accord....

ou pas....

Donc, as-tu des libellés communs?

Et si oui, il faut chercher dans quelle colonne la différence?

Car là, tu ne fais qu'une recherche sur la colonne A...

Et ta fonction, calcMaxRow, tu l'as trouvé où?

ceci te remplace tout ton code (pour délimiter les plages de recherche)....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Range_Baln_1 As Range, Range_Baln As Range
With Worksheets("balanceN-1")
    Set Range_Baln_1 = .Range("A11:A" & .[A65000].End(xlUp).Row)
End With
With Worksheets("comparaisonBalN")
    Set Range_Baln = .Range("A11:A" & .[A65000].End(xlUp).Row)
End With

[rimbaut]

Bonjour mapeh, bonjour à tous,

Pour répondre à la discussion, oui j'ai des libellés identiques dans les 2 balances. Ces libellés se trouvent sur la ligne 10 et occupent 2 colonnes (A, B).

J'ai remodelé le code en fonction de tes recommandations mais ça bloque au niveau du for each. Probablement que mon test n'est pas bon car je veux comparer les numéros de compte (colonne A) et le libelle des comptes (colonne B) de chaque ligne de la plage spécifiée. Si un compte est absent alors le copier sur la feuille "comparaisonBalN".

Je remercie d'avance toute personne qui voudra me guider

Bon dimanche