remplissage automatique de textbox

[Yul]

Bonjour à tous !

Ca fait un certain mooment que je m'arrache les cheveux sur ce pb !

Je voudrai qu'à partir d'une combobox, les textbox se remplisse automatiquement...

Je sélectionne une ville dans ma combobox, et l'adresse de la mairie, CP etc... apparait automatiquement dans les tectbox correspondante.

J'ai trouvé des aides, mais je n'ai pas du tout réussi à adapter les codes....!

Merci d'avance pour votre aide !

a+

Yul

 

[pierrejean]

Re : remplissage automatique de textbox

bonsoir yul

voila voila

 

[Yul]

Re : remplissage automatique de textbox

Un super merci Pierre-Jean !

En fait, je crois que je cherchais à faire trop compliqué !

En revanche, j'ai tenté (mais hélas échoué...) à vider les textboxs si le choix du combobox est vide.
Aurais-tu une piste ?

Encore merci !

a+

Yul

 

[Evelynetfrancois]

Re : remplissage automatique de textbox

bonjour
comme Pierrejean n'est pas present a cette heure , je me permets de te donner ma solution , qui n'est peut etre pas la plus simple , mais qui fonctionne

apres TextBox4 = Range("E" & Choix_Collectivité.ListIndex + 2)
tu notes
if Choix_Collectivité = "" then
TextBox2= ""
TextBox3= ""
TextBox4= ""
end if

E et F

 

[Yul]

Re : remplissage automatique de textbox

Merci Evelynetfrancois !

Cette solution fonctionne très bien.

Je mets le fichier final en PJ, si ca peut servir à d'autres.

Encore merci.

a+

YUL

 

[porcinet82]

Re : remplissage automatique de textbox

Bonjour le fil,

Sans avoir regardé le fichier (pas d'excel sur le pc duquel je répond) et juste histoire de donner une autre syntaxe pour vider les textbox (le code proposé par Evelynetfrancois fonctionnant parfaitement) par le biais d'une petite boucle :

apres TextBox4 = Range("E" & Choix_Collectivité.ListIndex + 2)
tu notes

If Choix_Collectivité = "" Then
   For i=2 to 4
       Controls("TextBox" & i).value=""
   Next i
End If

@+