Renseigner cellule vide si autre cellule non vide

Bonjour,

Je suis débutant en VBA et je cherche depuis ce matin sur la toile une macro....

Je voudrais remplir une cellule vide dans la colonne "B" par "TEST" ci sa voisine en colonne "A" est non vide

Exemple : Ci A12 et non vide alors B12 ce rempli par "TEST".

Je vous remercie d'avance.

Bonjour,

Un code du genre -->

Sub test()
If Not IsEmpty(Range("A12")) Then Range("B12") = "test"
End Sub

Code à placer dans un module et à associer à un bouton

Amicalement

Bonjour Dan, Merci pour ta réactivité

Ton code fonctionne bien pour la Cellule A12 mais ci je le modifie pour toute la colonne A et B, cela me met des "TEST" Partout en B.

Moi je veut que ça me mette des "TEST" que sur les Cellule de la colonne B qui ont comme voisine en colonne A de Cellule non Vide.

Sub test()
    If Not IsEmpty(Range("A:A")) Then Range("B:B") = "test"
End Sub

Re,

Essaie ceci :

Sub test()
'Dan - 12/09/12
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Not IsEmpty(Range("A" & i)) Then Range("B" & i) = "test"
Next
End Sub

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Merci Dan,

La Macro est Fonctionnel ( Voir Pièce-Jointe ).