Editer Textbox

ABIDINE

XLDnaute Nouveau
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
 

Chris24

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur1.xlsm
    20.4 KB · Affichages: 39

Discussions similaires

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA