Scinder un nombre

[Claudy]

Bonjour,
Via une inputbox, je demande un nombre de 7 chiffres...
Comment placer chaque chiffre dans des cellules qui se suivent : Range("A1:G1")?
merci d'avance, Claudy

 

[youky(BJ)]

Re : Scinder un nombre

Bonjour Clauky,
J'ai failli zapper le Y de ton pseudo pour un I que beaucoup font sur le mien
A+

rep = InputBox("Entrez 7 chiffres")
If Len(rep) <> 7 Then MsgBox "pas les 7 chiffres": Exit Sub
If Not IsNumeric(rep) Then MsgBox "pas numéric": Exit Sub
For k = 1 To 7
Cells(1, k) = Mid(rep, k, 1)
Next

 

[Claudy]

Re : Scinder un nombre

Merci Youdy...
Ca roule...
Bonne journée,
Claudy

 

[youky(BJ)]

Re : Scinder un nombre

Hi Hi...
et moi aussi je fait la boulette ...
A ce ............Y
A+