Comparer des colonnes dans des feuilles differentes en vba

[rimbaut]

Bonsoir,

Je voudrais comparer 2 colonnes (n° compte et libelle) qui se trouvent dans 2 feuilles différentes et afficher les comptes et les libellés qui ne sont pas présent dans la 1er feuille.

 

J'ai écrit ce code qui fonctionne bien mais qui ne mentionne que les N° de comptes. Or je voudrais mentionner également les libellés.

 

Voici le code :

 

Sub comparaisonBalance()

Worksheets("comparaisonBalN").Activate

Dim cellule_2007 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 = 3

For Each cellule_2007 In Worksheets("BalanceN-1").Range(range_2007)

If Worksheets("balanceN").Range(range_2008).Find(cellule_2007.Value, LookIn:=xlValues) Is Nothing Then

Sheets("ComparaisonBalN").Cells(y_comparaison, 1).Value = cellule_2007.Value

y_comparaison = y_comparaison + 1

 

End If

 

Next cellule_2007

End Sub

 

Function calcMaxRow(une_feuille As String)

Dim y As Integer

 

y = 11

Do While Sheets(une_feuille).Cells(y, 1) <> ""

y = y + 1

Loop

 

 

Merci d'avance pour votre aide