RowSource automatisé
Val2202
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonsoir!
Comme j'ai pu l'expliquer dans un sujet précédent, je réalise un progiciel sous Excel. Nouveau petit problème sous VBA & Excel donc, voilà pourquoi je suis ici.
J'ai une base de données de plus de 5000 aéroports dans différents pays.
Dans un userform sous VBA, j'ai mis en place deux listes défillantes. L'une contiendra la liste des pays, l'autre, les aéroports du pays selectionnés.
Il faut donc programmé les RowSource des barres défilantes. Pour les pays pas de problème, mais pour les aéroports correspondants, c'est plus complexe.. Car cela change en fonction des pays.
J'ai mis en place un filtrage dans ma BD pour pouvoir afficher seulement les aéroports de tel ou tel pays, seulement le nombre d'aéroports varie et je ne peux donc pas programmer sous VBA une selection de telle ligne à telle ligne.
Il y aurait la solution de nommer une par une les plage de cellule pour chaque pays, mais avec le nombre de pays et d'aéroports, bonjour le boulot. Je cherche donc une solution plus rapide, vous l'aurez compris ;)
Merci d'avance,
Bonne soirée
Comme j'ai pu l'expliquer dans un sujet précédent, je réalise un progiciel sous Excel. Nouveau petit problème sous VBA & Excel donc, voilà pourquoi je suis ici.
J'ai une base de données de plus de 5000 aéroports dans différents pays.
Dans un userform sous VBA, j'ai mis en place deux listes défillantes. L'une contiendra la liste des pays, l'autre, les aéroports du pays selectionnés.
Il faut donc programmé les RowSource des barres défilantes. Pour les pays pas de problème, mais pour les aéroports correspondants, c'est plus complexe.. Car cela change en fonction des pays.
J'ai mis en place un filtrage dans ma BD pour pouvoir afficher seulement les aéroports de tel ou tel pays, seulement le nombre d'aéroports varie et je ne peux donc pas programmer sous VBA une selection de telle ligne à telle ligne.
Il y aurait la solution de nommer une par une les plage de cellule pour chaque pays, mais avec le nombre de pays et d'aéroports, bonjour le boulot. Je cherche donc une solution plus rapide, vous l'aurez compris ;)
Merci d'avance,
Bonne soirée
A voir également:
- RowSource automatisé
- Planning automatisé excel - Guide
- Envoi de sms automatisé - Guide
- Problème avec ListBox1.RowSource ✓ - Forum Programmation
- Sommaire automatisé - Guide
- Tableau de bord automatisé - Forum Excel
1 réponse
Bonjour,
Sur la feuille 1 du fichier :
Dans la colonne A = pays
Dans la colonne B = villes
Sur le formulaire :
Combo1 = Pays
Combo2 = Villes
;o)
Sur la feuille 1 du fichier :
Dans la colonne A = pays
Dans la colonne B = villes
Sur le formulaire :
Combo1 = Pays
Combo2 = Villes
Private Sub Combo1_Change()
Dim ws As Worksheet
Dim lig As Long
Set ws = Worksheets(1)
lig = 2
Combo2.Clear
With ws
While .Range("A" & lig).Value <> ""
If .Range("A" & lig).Value = Combo1.Text Then
Combo2.AddItem .Range("B" & lig).Value
End If
lig = lig + 1
Wend
End With
Set ws = Nothing
End Sub
;o)
