Discussion :

[grisan29]

bonjour a vous tous du forum

je cherche la procédure a adapter dans un textbox1 pour que lorsque je tape un code postal dans ce text box dont la liste se trouve en feuil1 en A3-A150et + (il y a plusieurs code postal identique), que je puisse avoir le choix des villes qui corresponde au meme code postal dans un textbox2 ou combobox1 de la liste des villes se trouvant en feuil1 b3-b150 et +

j'espère avoir été assez clair dans mes explications

merci par avance et bonne journée

Pascal

[mercatog]

au lieu des textes box, utilises 2 combobox en cascade, fais une recherche dans la faq. Tu pourras t'en sortir avec (seul)! sans pour autant faire faire son travail par autrui.

[grisan29]

bonsoir mercatog
merci pour ta solution mais 2 combobox en cascade ne me conviennent pas car écrire un code postal dans un textbox et dérouler une liste de ville correspondant a ce code ne se trouve pas dans la faq donc comme tu me l'a dit et tu m'a laisser comprendre entre tes mots qu'il faut mieux que je ne passe plus par le forum mais par le systeme d

bonne soirée et week end

Pascal

[zyhack]

Bonjour

pour modifier les valeurs d'un comboBox1 d'après la valeur du textBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
  Dim i As Long
  ComboBox1.Clear
  For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) = TextBox1.Text Then
      ComboBox1.AddItem Cells(i, 2)
    End If
  Next
End Sub

[mercatog]

Bonjour,
à Zyhack, le textbox1_change() est démesuré, à chaque entrée de caractère dans le textbox, la combo se vide et se remplit
pour le CP 34000? La procédure est appelée 5 fois!
Je préfère faire le même code dans textbox1_afterupdate() ou 2 combo en cascade.

[zyhack]

Bonjour a tous

Mercatog : Effectivement ta remarque est pertinente mais j'ai placé le textBox sur la feuille et dans ce cas il n'y a pas l'événement afterupdate qui apparait bien quant l'objet est sur un UserForm. (Par contre il est vrai que j'aurais au moins pu mettre en conditions le fait d'avoir 5 caractères avant de changer le comboBox).

grisan29 : Pourrais tu préciser ou ce trouve tes objets, sur une feuille ou sur un UserForm ?