Copier valeur si une cellule sur deux est vide

Bonjour,

Je cherche à vérifier si dans une plage de cellule (C2:C513), une cellule sur 2 est vide et si la condition est remplie remplir une autre cellule ...

ex:

• Test de la cellule C3 (C2 étant forcément remplie !) si vide alors D2="X"
• Test de la cellule C4 (C3 étant forcément remplie) si vide alors D3="X"

J'ai bien essayé d’utiliser la fonction OFFSET(C2;1;1;1;1) avec une boucle, sans succès je ne dois pas bien m'y prendre ...

Merci d'avance pour votre aide.

Bonjour, Bienvenue sur le forum

Si je comprends bien ta demande, essaye le code suivant :

Sub test()
    For Each cel In Range("C3:C513")
        If cel.Row Mod 2 And cel = "" Then
            cel.Offset(-1, 1) = "X"
        End If
    Next cel
End Sub

Ça fonctionne parfaitement

Merci infiniment, à bientôt.

PS: Oups j'essayais sans l'opérateur Mod !