Bjr Ilino et Papou
Par la validation des données ? avec un critère personnalisé et la formule : =NBCAR(M6)=1
Cordialement, Gérard
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
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
Bjr Isab et Gilbert
Gilbert : peux-tu fournir le fichier en excel 2003 ? suis intéressé...
Merci, cordialement, Gérard