[RESOLU par Jacky67 ] : Editer TextBox

Jacky67

XLDnaute Barbatruc

• 14 Février 2017

• #2

Bonsoir,
Quelque chose comme ceci

Code:

Private Sub TextBox1_Change()
If Len(TextBox1) < 5 Then
Me.TextBox2 = Me.TextBox1
Else
Me.TextBox3 = Mid(Me.TextBox1, 5, Len(Me.TextBox1))
End If
End Sub

Bonne nuit

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 14 Février 2017

• #3

Bonsoir Jacky67
Merci beaucoup pour l'aide
Tres gentil de votre part
Pour TextBox2 ca fonctionne tres bien mais dans TextBox3 je veux afficher seulement les deux derniers chiffres comme j'ai explique dans mon premier poste
Dans tous les cas MERCI
Cordialement
MADA

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 14 Février 2017

• #4

Re, j'ai lu en diagonale
Toujours 12 Chiffres ??

Code:

Private Sub TextBox1_Change()
If Len(TextBox1) < 5 Then
Me.TextBox2 = Me.TextBox1
ElseIf Len(TextBox1) >= 10 Then
Me.TextBox3 = Mid(Me.TextBox1, 11, Len(Me.TextBox1))
End If
End Sub

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 14 Février 2017

• #5

Bravo Jacky67
Extra resolu
Tres tres gentil de votre part
Amicalement
MADA

 

Vote positif 0 Vote négatif