Rowsource dynamique d'un combobox Excel VBA
Bonjour,
je suis entrain de programmer une interface graphique sur VBA.
cette interface possède des boutans et des menus déroulants (combobox).
J'ai dans une feuille excel1 les noms des clients avec des numéros associers à chaque client.
dans la 2éme feuille excel j'ai tout les noms des clients sur la première ligne et en dessous de chaque y avait les différentes adresses correspondes aux différents lieux de livraison possibles pour ce client.
J'aimerais savoir comment je peux alimenter mon combobox par les différentes adresse sachant que ses adresses sont conditionnées par le nom de client choisit.
voila un bout de mon code qui donne le nom de client en fonction de n°OF saisie
et moi je veux qu'il me donne les adresses en fonction de ce nom de client.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Private Sub n°OF_Change()
Dim i As Integer
Dim j as integer
For i = 1 To 5000
If Worksheets("OF_Ouvert").Cells(i, 1) = n°OF.Value Then
nom_client.Value = Worksheets("OF_Ouvert").Cells(i, 3)
titre.Value = Worksheets("OF_Ouvert").Cells(i, 2)
Do
adresse.AddItem Worksheets("BdD_Adresse").Cells(i, j + 1)
j = j + 1
Loop Until Worksheets("BdD_Adresse").Cells(1, j) = nom_client.Value
End If
Next i
End Sub |
