Séparer le code postal et ville

Bonjour le forum,

Je viens vers vous suite à un problème que je n'arrive pas à résoudre.

Dans les cellules H5 et H6 j'ai un code postal et une ville.

Je n'arrive pas à récupérer le code postal dans mon textbox "TBCodePostal" et la ville dans "TBVille"

Vous avez une idée de la procédure ?

A+

43locataire.xlsm (52.50 Ko)

Bonsoir,

dans UserForm_Initialize, essaie ceci :

Me.TBCodePostal = Split(.Range("H5"))(0)
        Me.TBVille = Split(.Range("H5"))(1)

Cdlt.

Bonsoir,

Merci pour le code, mais si une ville comporte plusieurs mots, comment ça fonctionne ?

Cordialement.

Bonjour,

CP= left(H6,5)

Ville = mid(H6,7)

eric

Bonjour,

Eric merci pour le code, mais l'a tu essayé? car j'ai une erreur d'exécution.

A+

Bonjour,

Non, j'avais tapé en direct.

Je voulais dire [H6] mais pour une raison bizarre cette écriture ne fonctionne pas sur ta feuille. Ca sera donc :

CP = Left(Range("H6"), 5)
Ville = Mid(Range("H6"), 7)

eric

Bonjour,

c'est normal qu'il mets 5 espaces à l'ouverture de l'userfom?

Bonjour,

A tester.

Toujours dans UserForm_Initialize :

Dim tbl
Dim strVille As String
Dim i As Byte
tbl = Split(.Range("H5"))
        Me.TBCodePostal = tbl(0)
        For i = 1 To UBound(tbl)
            strVille = strVille & Chr(32) & tbl(i)
        Next i
        Me.TBVille = Right(strVille, Len(strVille) - 1)
        strVille = "" 'si besoin est

Re,

Merci Jean-Eric

Rechercher des sujets similaires à "separer code postal ville"