Valeur Combobox en fonction d'une autre Combobox

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

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

Re : Valeur Combobox en fonction d'une autre Combobox

Merci à vous 2

Vos propositions remplissent mes attentes, laquelle choisir ?

Merci encore
Citaro