bonsoir à toutes et tous, Gmb, André
Merci pour ta réponse
j'ai bien essayé différentes formules
telle que spécial, personnalisé ou texte
en format texte il y effectivement le zéro qui se met devant,
mais le souci quand je saisie le 01000 le nom de la ville ne s'affiche pas
tout comme au format code postal.
Au format texte, j'ajoute le zéro manuellement cela fonctionne
GMB a eu l'amabilité de me proposer
cette formule mais impossible de l'adapter au fichier joint
Dim texte As String
TxtCp.MaxLength = 5
TxtVille.Clear
CmbRue.Clear
'permet de lire le code avec un 0 devant
For i = 1 To UBound(plage, 1)
v = Val(TxtCp.Text)
On Error Resume Next
If plage(i, 1) = v Then
TxtVille.AddItem plage(i, 2)
End If
Next i
TxtCp.AutoTab = True
et je n'ose même plus embêter gmb car il m'a longuement aider
et que je remercie encore
merci à toi André