Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour comparaison

  • Initiateur de la discussion Celeda
  • Date de début
C

Celeda

Guest
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
 
C

Celeda

Guest
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.
 

Discussions similaires

Réponses
6
Affichages
661
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…