... faire la même chose, mais avec une liste à la suite de l'autre, et non pas imbriquées...
... C'est simple.... Est ce plus clair ?...
J'ai cherché ici et sur le net, et ça n'a pas l'air possible...
Confirmez vous ?
Et sinon, à part se pendre, que peut on faire ?
Private Sub ComboBox1_GotFocus()
Dim c As Range
ComboBox1.Clear
For Each c In Feuil2.[C3:C8]
If c <> "" Then ComboBox1.AddItem c
Next
For Each c In Feuil3.[A2:A5]
If c <> "" Then ComboBox1.AddItem c
Next
ComboBox1.DropDown 'facultatif
End Sub
Private Sub ComboBox1_GotFocus()
Dim a, b, e, liste$(), n&
a = Feuil2.[C3:C8]: b = Feuil3.[A2:A5] 'matrices, plus rapides
For Each e In a
If e <> "" Then
n = n + 1
ReDim Preserve liste(1 To n)
liste(n) = e
End If
Next
For Each e In b
If e <> "" Then
n = n + 1
ReDim Preserve liste(1 To n)
liste(n) = e
End If
Next
ComboBox1.List = liste
ComboBox1.DropDown 'facultatif
End Sub
=SI(LIGNE()-1>LIGNES(b!A$1:A$4);INDEX('c'!A$1:A$4;LIGNE()-1-LIGNES(b!A$1:A$4));INDEX(b!A$1:A$4;LIGNE()-1))