Bonjour,

Je suis en débutante en VBA.

Je dois vérifier que quand dans la colonne H il y a écrit oui, dans la colonne L il y a bien écrit oui. Sinon, il faut que je colore la ligne.

Voici mon code actuel :
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
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub VérificationParitéBinômes()
    Dim Plg As Range
    Dim c As Range
    Dim i As Long
    Dim Msg As String
 
    ' définition de la plage de cellules
    Set Plg = Application.InputBox("Sélectionnez la plage.", Type:=8)
 
    ' coeur de la macro
    For Each c In Plg.Columns(1).Cells                    ' parcours
        If c <> c.Offset(0, 1) Then                                ' test
            Union(c, c.Offset(0, 0)).Interior.Color = vbYellow      ' coloriage
            i = i + 1                                               ' comptage
        End If
    Next
 
    ' préparation du message
    If i = 0 Then
        Msg = "Toutes les valeurs sont OK deux par deux."
    Else
        Msg = "Il y a des valeurs différentes sur " & i & " lignes !"
    End If
 
    ' affichage
    Z = MsgBox(Msg, vbInformation)
 
End Sub

J'espère que vous pourrez m'aider.

Cordialement,
Louise.