Voici une macro qui fait ce que tu demande dans les cellules où tu le demande.
IMPORTANT . Il faut mettre la formule 'NBCAR' qui est ici en G2 qui sert a arréter la boucle.
A aménager pour une utilisation perso;
A ton service si besoin est.
Sub tonton()
Dim Lettre, NouvMot As String
Dim Place As Integer
Lmot = Cells(2, 7).Value
Place = 0
For i = 1 To Lmot Step 1
Cells(3, 1).Select
Lettre = Mid(ActiveCell, Place + 1, Len('1'))
NouvMot = NouvMot & Lettre & ' '
Place = Place + 1
Next
Cells(3, 1).Value = NouvMot
Voici une macro qui fait ce que tu demande dans les cellules où tu le demande.
IMPORTANT . Il faut mettre la formule 'NBCAR' qui est ici en G2 qui sert a arréter la boucle.
A aménager pour une utilisation perso;
A ton service si besoin est.
Sub tonton()
Dim Lettre, NouvMot As String
Dim Place As Integer
Lmot = Cells(2, 7).Value
Place = 0
For i = 1 To Lmot Step 1
Cells(3, 1).Select
Lettre = Mid(ActiveCell, Place + 1, Len('1'))
NouvMot = NouvMot & Lettre & ' '
Place = Place + 1
Next
Cells(3, 1).Value = NouvMot
Merci de tes précisions.
Pour step, je savais, mais c'était dans le petit bout de code que j'ai utilisé et je n'ai pas pensé a l'enlever.
Pour la sélection de cellule, je savais aussi mais le code est encore plus abtrait pour moi si je ne sélectionne pas.
Pour Len, je ne connaissait pas cette fontion en VBA et je suis bien contant de tes observations. (j'ignore tellement de choses de VBA).
Ce forum et ses animateurs... c'est vraiment 'excellent'!
Merci de tes précisions.
Pour step, je savais, mais c'était dans le petit bout de code que j'ai utilisé et je n'ai pas pensé a l'enlever.
Pour la sélection de cellule, je savais aussi mais le code est encore plus abtrait pour moi si je ne sélectionne pas.
Pour Len, je ne connaissait pas cette fontion en VBA et je suis bien contant de tes observations. (j'ignore tellement de choses de VBA).
Ce forum et ses animateurs... c'est vraiment 'excellent'!