Bonjour le forum.
Pour remplir une ComboBox en fonction des données en colonne A j’ai trouvé ce code sur un autre forum :
Cela fonctionne très bien pour la ComboBox1.
Mais comment remplir la ComboBox2 avec les données de la colonne B, la ComboBox3 avec les données de la colonne C, sans être obligé de répéter chaque fois le code en modifiant la lettre de la colonne ?
Auriez-vous une solution, merci d’avance.
Pour remplir une ComboBox en fonction des données en colonne A j’ai trouvé ce code sur un autre forum :
Code:
Private Sub UserForm_Initialize()
Dim C As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean
ReDim tablo(1 To 1)
tablo(1) = Cells(2, 2)
For Each C In Sheets("exemple 1").Range("A2:A" & Range("A65536").End(xlUp).Row)
present = False
For i = 1 To UBound(tablo)
If tablo(i) = C Then present = True
Next i
If Not present Then
ReDim Preserve tablo(1 To UBound(tablo) + 1)
tablo(UBound(tablo)) = C
End If
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i) < tablo(j) Then
temp = tablo(i)
tablo(i) = tablo(j)
tablo(j) = temp
End If
Next j
Next i
Next C
ComboBox1.List = tablo
End Sub
Mais comment remplir la ComboBox2 avec les données de la colonne B, la ComboBox3 avec les données de la colonne C, sans être obligé de répéter chaque fois le code en modifiant la lettre de la colonne ?
Auriez-vous une solution, merci d’avance.