Bonjour
Je cherche, par macro, à automatiser la saisie dans les cellules ( un caractère par cellule) ainsi que le passage d'une cellule à une autre lors de la saisie le meme mot.
GRAZIE
Merci.
je ne sais pas si j'ai bien compris mais regarde si ca te convient:
Dans un module
Code:
Sub Ecrire()
Dim Chx As Byte, c As Range, Pg As Range
Set Pg = Range("D5:J20")
For Each c In Pg
Randomize
Chx = Int((26 * Rnd) + 1)
c.Value = Chr(Chx + 64)
Next c
End Sub
ou pour même mot ( ici toto)
Code:
Sub mMot()
Dim c As Range, Pg As Range
Set Pg = Range("D5:J20")
For Each c In Pg
c.Value = "toto"
Next c
End Sub
Re Isab
Je cherche, par macro, à automatiser la saisie dans les cellules ( un caractère par cellule) ainsi que le passage d'une cellule à une autre lors de la saisie .
mais j'ai souhaité que le passage a la cellule suivante soit automatique lors du saisie
regrade le post#3
A+