Valeur Combobox en fonction d'une autre Combobox

[Citaro]

Bonjour au forum,

Dans mon fichier il y a une colonne avec 4 départements, puis 4 colonnes avec les villes de chaque département
Dans mon UserForm j'ai une Combobox1 qui récupère les valeurs de la colonne des départements
Je n'arrive pas à alimenter la Combobox2 en fonction du choix de la Combobox1
Avec le fichier ce doit être clair

Citaro

 

[CHALET53]

Re : Valeur Combobox en fonction d'une autre Combobox

Bonjour,
Remplace ton code par celui-ci :

Private Sub ComboBox1_Change()
Dim ligne As Long, col As Integer
Dim i As Integer, dercol As Integer, a
Dim cl
' Stop
Application.ScreenUpdating = False
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
col = Me.ComboBox1.ListIndex + 2

Sheets("Communes").Select
cl = Split(Columns(col).Address(ColumnAbsolute:=False), ":")(1)
ligne = Sheets("Communes").Range(cl & 65536).End(xlUp).Row
ComboBox2.Clear
For i = 2 To ligne
a = Cells(i, col)
ComboBox2.AddItem a
Next i
Sheets("Test").Select
End Sub

 

[ChTi160]

Re : Valeur Combobox en fonction d'une autre Combobox

Bonjour Citaro
Bonjour Le Fil Le Forum

une approche (Sensiblement la même que Chalet53)

Le Fichier : Regarde la pièce jointe combobox(1) Chti160.xlsm

Bonne Journée
Amicalement
Jean Marie

 

[Citaro]

Re : Valeur Combobox en fonction d'une autre Combobox

Merci à vous 2

Vos propositions remplissent mes attentes, laquelle choisir ?

Merci encore
Citaro