Macro avec boucle et condition

Bonjour à tous,

ci-joint est le document que j'aimerai avoir à l'aide d'une macro:

pour chaque nom:

• si il y quelque chose dans la colonnes R alors il faut mettre 1 dans la colonne H.
• si il y quelque chose dans la colonnes D alors il faut mettre 2 dans la colonne H.

Je sais qu'elle est plutôt simple mais je bloque.

Cordialement,

Matthieu

bonjour

solution via une macro, quoi qu'une solution via une formule soit triviale

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To dl
        If Cells(i, 2) <> "" Then
            Cells(i, 4) = 1
        ElseIf Cells(i, 3) <> "" Then
            Cells(i, 4) = 2
        End If
    Next i
End Sub

via formule à mettre en D2 et à tirer vers le bas

=SI(B2<>"";1;SI(C2<>"";2;""))

Merci énormément,

Ca marche à la perfection.