remplissage de cellule automatique

morgan44 · 30 Octobre 2008

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 · 30 Octobre 2008

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...):

Code:

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

GPLIONEL · 30 Octobre 2008

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 · 30 Octobre 2008

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

remplissage de cellule automatique

morgan44

Guest

Fchris

XLDnaute Occasionnel

GPLIONEL

XLDnaute Occasionnel

morgan44

Guest

Discussions similaires

remplissage de cellule automatique

morgan44

Guest

Fchris

XLDnaute Occasionnel

GPLIONEL

XLDnaute Occasionnel

morgan44

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency