Saisie automatique par cellule

  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
441
Réponses
10
Affichages
411
Réponses
7
Affichages
693
Réponses
6
Affichages
196
Réponses
3
Affichages
199
Réponses
11
Affichages
326
Retour