Inversion de cellules sous condition

Bonjour à tous,

Je suis nouveau sur le forum et débutant sur VBA.

Je vous explique mon problème :

Je souhaiterais inverser les cellules de la colonne G et H si et seulement si dans la colonne C la donnée est : XX

Dans le cas contraire , ne rien faire.

Merci à vous pour votre aide.

Bonsoir,

une proposition

Sub inversergh()
    dl = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 1 To dl
        If Cells(i, 3) = "NL" Then
            a = Cells(i, "G")
            Cells(i, "G") = Cells(i, "H")
            Cells(i, "H") = a
        End If
    Next i
End Sub

Bonjour,

Il semblerait que cela fonctionne.

Merci pour votre aide.