Editer Textbox

[ABIDINE]

Bonsoir tout le monde
SVP comment faire pour manipuler cet affaire
Lorsque j'ecris par exemple dans TexxtBox1 le mot ( EXCEL DOWNLOADS )
La lettre E s'affichera dans TextBox2
La lettre X s'affichera dans TextBox3
La lettre C s'affichera dans TextBox4
La lettre E s'affichera dans TextBox5
La lettre L s'affichera dans TextBox6
La lettre D s'affichera dans TextBox7
La lettre O s'affichera dans TextBox8 ......etc
Merci d'avance pour l'aide
ABIDINE

 

[Bebere]

Bonsoir Abidine
exemple dans userform1

 

[MADAGASCAR]

Salut Abidine..Bebere
Voici l'exemple
Private Sub CommandButton1_Click()
TextBox2 = Mid$(TextBox1, 1, 1)
TextBox3 = Mid$(TextBox1, 2, 1)
TextBox4 = Mid$(TextBox1, 3, 1)
End Sub
Etc
MADA

 

[Chris24]

Bonsoir
et pourquoi pas une boucle

Private Sub TextBox1_AfterUpdate()

'' si tu ne veux pas les espaces
'Item = Replace(TextBox1, " ", "")
'For i = 1 To Len(Item)

'sinon
For i = 1 To Len(TextBox1)
Me.Controls("TextBox" & i + 1) = Mid(Item, i, 1)
Next
End Sub

Bonne soirée

 

[mapomme]

Bonsoir à tous,

Un autre essai.

 

[ABIDINE]

Bonsoir a tous
Chris24 . MADA .mapomme
Merci beaucoup pour ces differentes impeccables solutions
Pour mapomme c'est vraiment genial
Amicalement
Resolu
ABIDINE