Séparer le code postal et ville Le sujet est résolu

Message par **Ronibo** » 27 juillet 2015, 17:38

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+

16'067 · Message par **Jean-Eric** » 27 juillet 2015, 19:24

Bonsoir,
dans UserForm_Initialize, essaie ceci :

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

Cdlt.

Message par **Ronibo** » 28 juillet 2015, 03:00

Bonsoir,

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

Cordialement.

9'268 · Message par **eriiic** » 28 juillet 2015, 06:50

Bonjour,

CP= left(H6,5)
Ville = mid(H6,7)

eric

Message par **Ronibo** » 28 juillet 2015, 12:50

Bonjour,

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

A+

9'268 · Message par **eriiic** » 28 juillet 2015, 13:29

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

Message par **Ronibo** » 29 juillet 2015, 08:21

Bonjour,

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

16'067 · Message par **Jean-Eric** » 29 juillet 2015, 08:25

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

Message par **Ronibo** » 29 juillet 2015, 08:58

Re,

Merci Jean-Eric