Discussion :

[Mimosa777]

Salut tout le monde,

j'ai besoin de votre aide pour une macro de comparaison que j'ai faite mais qui bloque. Mon besoin est simplement de comparer la colonne a et b de la feuille "Feuil2". Il faut verifier que toutes les données de la colonne b soit existante dans la colonne. S'il y a une donnée dans la colonne b qui n'existe pas dans la colonne a, on note cette donnée de la colonne b en coloriant la cellule.

Voici mon code mais j'ai erreur lors de ma deuxieme condition if. Cela dit : Rin-time error "1004" : Application-defined or object defined error :

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
Sub Noter_Transit_Inconnu()
With Worksheets("Feuil2").Range("a:a")
            For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            mavar = Worksheets("Feuil2").Range("b" & n)
            Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
          ' eviter une erreur si c.row ne retourne pas de valeur
            If Not c Is Nothing Then
            ligne = c.Row
            End If
            If Worksheets("Feuil2").Range("b" & n).Value = Worksheets("Feuil2").Range("a" & ligne) Then
            Sheet2.Range("b" & n).Interior.ColorIndex = 6
            End If
            Next
End With
End Sub

Merci de votre aide

Voici un petit modèle de quoi ressemble ma feuil2 :
Transit a | Transit b
12345 23456
23478 23478
23456 11111
22222 33333
55555 22222
77777 77777
33333 99999

On remarque ici que les données 11111 et 99999 doivent etre en jaune vu qu'elles n'existent pas dans la colonne a.

[DeaD78]

Bonjour,

Remplace Sheet2 par Worksheets("Feuil2") et tu n'auras plus l'erreur

A+

[Mimosa777]

Non DeaD78, c'est toujours la même erreur.

[DeaD78]

J'ai pris ton code tel quel (juste avec le changement que je t'ai indiqué) et je l'ai fait tourner chez moi, aucune erreur de compilation...

Mets cette ligne

Code :

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

Worksheets("Feuil2") .Range("b" & n).Interior.ColorIndex = 6

en commentaire et regarde si ça marche.

[Mimosa777]

trop bizarre car quand moi je l'execute, ca ma retourne toujours le meme message d'erreur meme lorsque

Code :

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

Worksheets("Feuil2").Range("b" & n).Interior.ColorIndex = 6

est en commentaire.

[DeaD78]

Essaie en mettant tout cela en commentaire :

Code :

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

1
2
3
 If Worksheets("Feuil2").Range("b" & n).Value = Worksheets("Feuil2").Range("a" & ligne) Then
Sheet2.Range("b" & n).Interior.ColorIndex = 6
End If

EDIT : Par exemple, ligne n'est défini que dans la condition précédente. Si jamais tu ne trouves pas ta valeur, ligne n'est pas défini. En revanche, tu l'utilises dans ta condition suivante. Ca ne risque pas de marcher