Séparer les chiffres dans un textbox

Electron24

XLDnaute Occasionnel
Bonjour,
Je souhaiterais séparer un code postal inscrit dans un textbox dans 5 autre txtbox.
J'ai dans Txt_Code_Postal inscrit 59166 je souhaiterai après AfterUpdate avoir le 1er chiffre "5" dans un autre textbox nommé Txt_Code_1 dans un autre txtbox nommé Txt_Code_2 le 2ème chiffre "9" et ainsi de suite.
Ceci afin de les notés individuellement dans 5 cellules d'une feuille. (I15 - K15 - M15 - O15 - Q15)

J'ai trouvé :
Code:
Txt_Code_1.Value = Left(Txt_Code_Post.Value, 1)
qui me récupère le premier chiffre mais je cale pour les autres.

Merci d'avance pour votre aide.
 
Solution
Bonjour Electron24, herve62,

Vous ne croyez pas que 5 TextBoxes pour coupichonner le code postal c'est exagéré ?

Une seule suffit :
Code:
If Txt_Code_Postal Like "#####" Then
    [I15] = Left(Txt_Code_Postal, 1)
    [K15] = Mid(Txt_Code_Postal, 2, 1)
    [M15] = Mid(Txt_Code_Postal, 3, 1)
    [O15] = Mid(Txt_Code_Postal, 4, 1)
    [Q15] = Right(Txt_Code_Postal, 1)
End If
A+

job75

XLDnaute Barbatruc
Bonjour Electron24, herve62,

Vous ne croyez pas que 5 TextBoxes pour coupichonner le code postal c'est exagéré ?

Une seule suffit :
Code:
If Txt_Code_Postal Like "#####" Then
    [I15] = Left(Txt_Code_Postal, 1)
    [K15] = Mid(Txt_Code_Postal, 2, 1)
    [M15] = Mid(Txt_Code_Postal, 3, 1)
    [O15] = Mid(Txt_Code_Postal, 4, 1)
    [Q15] = Right(Txt_Code_Postal, 1)
End If
A+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec