remplissage de cellule automatique

[morgan44]

Bonjour,
Voilà la macro que j'ai fait :

Range("B9").Select
ActiveCell.FormulaR1C1 = "M. DUPONT"
Range("B10").Select
End Sub

et j'aimerais mettre un autre argument : si B9 est déjà rempli que le résultat, en l'ocurrence dans mon exemple M. DUPONT aille dans la case B10.

Merci d'avance,

Morgan

 

[Fchris]

Re : remplissage de cellule automatique

Bonjour Morgan44, le forum,

Tu peux essayer un truc du style (si j'ai bien compris ce que tu souhaites...):

If Cells(9,2).Value <> "" Then
Cells(9,2).value="M. Dupont"
Else
Cells(10,2).Value="M. Dupont"
End Sub

 

[GPLIONEL]

Re : remplissage de cellule automatique

Bonjour Morgan et Fchris,

une autre solution :
Range("B9").Select
while activecell<>""
activecell.offset(1,0).select
wend
ActiveCell.FormulaR1C1 = "M. DUPONT"

End Sub

 

[morgan44]

Re : remplissage de cellule automatique

Merci beaucoup !

Pour la première solution je n'ai pas réussi, mais la deuxième fonctionne très bien.

Bonne journée

Cordialement

Morgan