Saisie automatique par cellule

Ilino

XLDnaute Barbatruc
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.
 

Isab

XLDnaute Occasionnel
Re : Saisie automatique par cellule

Bonjour

Bonjour..

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



Bonne journée
 

Pièces jointes

  • Ecrire_Lettre_Isab.xls
    248 KB · Affichages: 42
  • même_mot.xls
    245.5 KB · Affichages: 40
Dernière édition:

Ilino

XLDnaute Barbatruc
Re : Saisie automatique par cellule

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+