Editer Textbox

ABIDINE · 5 Décembre 2016

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 · 5 Décembre 2016

Bonsoir Abidine
exemple dans userform1

MADAGASCAR · 5 Décembre 2016

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 · 5 Décembre 2016

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 · 5 Décembre 2016

Bonsoir à tous,

Un autre essai.

ABIDINE · 6 Décembre 2016

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

Editer Textbox

ABIDINE

XLDnaute Nouveau

Bebere

XLDnaute Barbatruc

MADAGASCAR

XLDnaute Occasionnel

Chris24

XLDnaute Impliqué

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

ABIDINE

XLDnaute Nouveau

Discussions similaires