Bonjour,
Je suis à la recherche d'une modification de code.
Voila j'ai un USF avec un textbox et une Combobox qui recherche le nom de la ville par apport au N° du code postal qui marche très bien. J'aimerais ajouter a mon code un textbox pour les départements qui se trouve dans la troisième colonne "C".
Ci-joint mon code qui seras plus parlant
Je vous remercie d'avance et vous souhaite une bonne journée
Cordialement
Max
Je suis à la recherche d'une modification de code.
Voila j'ai un USF avec un textbox et une Combobox qui recherche le nom de la ville par apport au N° du code postal qui marche très bien. J'aimerais ajouter a mon code un textbox pour les départements qui se trouve dans la troisième colonne "C".
Ci-joint mon code qui seras plus parlant
Code:
Private Sub TextBox1_Change()
If saut = True Then Exit Sub
If Len(TextBox1.Text) = 5 Then
ComboBox1.Clear
For k = 2 To Feuil1.[A65536].End(3).Row
If Feuil1.Cells(k, 1).Text = TextBox1.Text Then
ComboBox1.AddItem Feuil1.Cells(k, 2).Value
End If
Next
ComboBox1.SetFocus
SendKeys "%{UP}"
End If
End SubJe vous remercie d'avance et vous souhaite une bonne journée
Cordialement
Max
