Macro pour comparaison

[Celeda]

J'ai trois listes qui concernent trois stocks de produits référencés de la même maniere.
Je veux les comparer facilement sans avoir à comparer les produits un à un.
J'ai testé une procédure de comparaison de feuille - que j'ai relevé dans un autre site - mais la procédure se bloque au niveau de : Workbooks
et j'ai changé la procédure au niveau de Workbooks("Classeur1") et j'ai mis ("Sheet1").
En fait je suis perdue quand j'arrive toujours sur Workbooks et cela sur plusieurs procédures. Je ne comprends pas mon erreur.
Pouvez-vous m'aider SVP. Merci à 'avance.
Sub Comparaison()
Application.ScreenUpdating = False
Dim Cellule1 As Range, Cellule2 As Range
Dim Time1 As Date, Time2 As Date
Time1 = Now()
Workbooks("Sheet1").Activate
For Each Cellule1 In Range("liste1")
Workbooks("Sheet2").Activate
For Each Cellule2 In Range("liste2")
If Cellule1 <> Cellule2 Then
Cellule1.Font.Color = vbRed
Else
Cellule1.Font.Color = vbBlack
Exit For
End If
Next Cellule2
Workbooks("classeur1.xls").Activate
Next Cellule1
Time2 = Now()
Debug.Print "TestListe :" & Format$(Time2 - Time1, "hh:mm:ss")
Application.ScreenUpdating = True
End Sub

 

[Sylvain]

c'est peut être une confusion entre
workbooks(nom d'un classeur).activate
et
sheets(nom d'une feuille).activate

A+

 

[Celeda]

Merci Sylvain. Cela a débloqué ma procédure mais maintenant elle bloque sur la fin avec le If end.
Je suis une débutante dans les macros et j'apprécie cette aide.

 

[Ghostbuster]

Ca fait un moment que tu te bats avec VBA celeda, on confondait Workbook et worksheet ??

 

[Jean-Marie]

L'araignée a commencé à tisser sa toile ici

Bonsoir Celeda

Tu as trouvé les bons professeurs, depuis ta première visite ?

@+Jean-Marie

 

[Dan]

Re: L'araignée a commencé à tisser sa toile ici

Bonsoir Celeda,

Essaie en remplaçant l'instruction Workbooks("Sheet1").Activate par Sheets("Sheet1").Activate

@++

Dan

 

[Dan]

Re: L'araignée a commencé à tisser sa toile ici

Re,

Oups c'est vieux post çà !!!

cela ne sert plus à rien je crois.

désolé

Dan