Séparer les chiffres dans un textbox

Electron24 · 26 Décembre 2018

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.

job75 · 26 Décembre 2018

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+

herve62 · 26 Décembre 2018

Bonsoir
Normalement cette méthode fonctionne , j'ai testé , vérifie tes noms de variables

Code:

ch=Txt_Code_Postal
lg=len(ch)
for x=1 to lg
Controls("Txt_code" & x)= mid(ch,x,1)
next x

Electron24 · 26 Décembre 2018

Bonsoir herve62

Super ça fonctionne correctement. Un grand merci
Et joyeuses fêtes de fin d'année

job75 · 26 Décembre 2018

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+

Séparer les chiffres dans un textbox

Electron24

XLDnaute Occasionnel

job75

herve62

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires