Aide Macro

Bonjour à nouveau à toutes et à tous.

Je souhaite réaliser une macro qui compare par exemple la valeur de la cellule G4 avec la valeur de la cellule F5 et ainsi de suite.

Comparaison de G5 avec F6, G6 avec F7,etc.

Si la valeur des deux cellules comparées est identique alors on colore ces cellules.

Quelqu'un pourrait-il m'aide ?!

Voici mon code :

Sub Doublon()

Dim i As Integer

For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(i, 4).Value = Cells(i + 1, 3).Value Then

Cells(i, 4).Interior.ColorIndex = 28

Cells(i + 1, 3).Interior.ColorIndex = 28

End If

Next i

Bonjour Marion, bonjour le forum,

Où est le problème ? Ton code est bon, il suffit juste de l'adapter...

Sub Doublon()
Dim I As Integer 'déclare la variable I (incrément)

For I = 4 To Cells(Rows.Count, 6).End(xlUp).Row 'boucle sur toutes les cellules éditées de la colonne 6 (=F) (en partant de la quatrième)
    If Cells(I, 6).Value = Cells(I + 1, 7).Value Then 'condition : si la valeur de la cellule ligne I colonne 6 (=F) est égale à la valeur de la cellule ligne I + 1 colonne 7 (=G)
        Cells(I, 6).Interior.ColorIndex = 28 'colore la cellule ligne I colonne 6 (=F)
        Cells(I + 1, 6).Interior.ColorIndex = 28 'colore la cellule ligne I + 1 colonne 7 (=G)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Bonjour à nouveau,

Le problème est que la macro ne retourne pas ce que je désire.

Elle ne colore pas les cellules identiques ( cellules se trouvant en F et en G) qui se suivent.

Voir, fichier-joint.

Bonjour,

Une autre solution avec une mise en forme conditionnelle

A+

Merci beaucoup

J'aurai quand même aimé réussir ma macro.

Bon, puisque tu y tiens !

Sub Doublon()
'déclare la variable I (incrément)
Dim I As Integer
    'boucle de la ligne 4 à la dernière ligne renseignée de la colonne F
    For I = 4 To Cells(Rows.Count, 6).End(xlUp).Row
        'si la valeur de F(i+1) est égale à la valeur de G(i) _
        et la valeur de G(i) est différente de 0
        If Cells(I + 1, 6).Value = Cells(I, 7).Value And Cells(I, 7).Value <> 0 Then
            'colore F(i+1)
            Cells(I + 1, 6).Interior.ColorIndex = 28
            'colore G(i)
            Cells(I, 7).Interior.ColorIndex = 28
        'fin de la condition
        End If
    'prochaine ligne de la boucle
    Next I
End Sub

A+

Merci beaucoup