Re,
J'ai voulu mettre la même chose pour une deuxième combobox sur la colonne "F" sa ne fonction pas?
Private Sub ComboBox1_Change()
With ListBox1
If Me.ComboBox1.ListIndex <> -1 Then
.RowSource = Sheets("Feuil1").Range("A" & ComboBox1.ListIndex + 3 & ":L" & ComboBox1.ListIndex + 3).Address
Else
.RowSource = Range("A3:L" & Range("A65536").End(xlUp).Row).Address
End If
End With
End Sub
Private Sub ComboBox2_Change()
With ListBox1
If Me.ComboBox2.ListIndex <> -1 Then
.RowSource = Sheets("Feuil1").Range("F" & ComboBox2.ListIndex + 3 & ":L" & ComboBox2.ListIndex + 3).Address
Else
.RowSource = Range("A3:L" & Range("A65536").End(xlUp).Row).Address
End If
End With
End Sub
Peut tu me dire pourquoi?
Je te remercie d'avance
Max