Discussion :

[texas2607]

Bonjour,
Je dispose de 2 feuilles sur Excel et j'ai besoin de comparer 2 séries (1 dans chaque feuille) et si il y a une concordance dans les cellules alors je change la couleur de fond de la cellule sur une des feuilles.
J'ai mis la formule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Myrange1 = ActiveWorkbook.Worksheets("Numéros").Range("J4:J10")
Set Myrange2 = ActiveWorkbook.Worksheets("Données").Range("N1:R1")
    For Each c2 In Myrange2
        For Each c1 In Myrange1
            If Int(c1.Value) = Int(c.Value) Then
                c1.Interior.ColorIndex = 38
                c1.Font.Bold = True
                Exit For
            End If
        Next
    Next

mais à la ligne 4 j'ai une erreur : "Objet requis"
c1.value me renvoi bien une valeur mais c2.value ne me renvoi rien

J'ai la même formule mais qui compare des cellules sur la même feuille et je n'ai pas d'erreur

Merci

[texas2607]

Bon ben voilà c'est en réécrivant que l'on trouve la solution;
Ma ligne 4 est fausse :

Code :

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

If Int(c1.Value) = Int(c.Value) Then

Erreur de frappe sur C2.value

[Patrice740]

Bonjour,

Bon ben voilà c'est en réécrivant que l'on trouve la solution;
Ma ligne 4 est fausse :

Code :

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

If Int(c1.Value) = Int(c.Value) Then

Erreur de frappe sur C2.value

Voilà encore une excellente raison de commencer tous ses modules par Option Explicit !!!
Le compilateur t'aurais indiqué que la variable c n’est pas déclarée.