Bonjour à toutes et à tous,
J'ai plusieurs ComboBox dans un UserForm.
Ces ComboBox sont alimentées par des données figurant dans l'onglet Données de mon Classeur.
Mon code fonctionne pour les ComboBox alimentées par les données de la colonne A.
Je n'arrive pas à alimenter les ComboBox avec des données provenant d'autres colonnes.
C'est ici que je bloque, pour par exemple alimenter la ComboBox13 avec les données de la colonne D
D'avance merci pour les réponses qui me parviendront.
Bien cordialement,
J'ai plusieurs ComboBox dans un UserForm.
Ces ComboBox sont alimentées par des données figurant dans l'onglet Données de mon Classeur.
Mon code fonctionne pour les ComboBox alimentées par les données de la colonne A.
Code:
Private Sub ComboBox1_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Données").Range("A65536").End(xlUp).Row
cherch = ComboBox1
Set cell = Sheets("données").Range("A1:A" & derlign).Find(cherch, lookAt:=xlWhole)
If Not cell Is Nothing Then
End If
End Sub
Je n'arrive pas à alimenter les ComboBox avec des données provenant d'autres colonnes.
Code:
Private Sub ComboBox13_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Données").Range("G65536").End(xlUp).Row
cherch = ComboBox13
Set cell = Sheets("données").Range("G1:G" & derlign).Find(cherch, lookAt:=xlWhole)
If Not cell Is Nothing Then
End If
End Sub
C'est ici que je bloque, pour par exemple alimenter la ComboBox13 avec les données de la colonne D
Code:
Private Sub UserForm_Initialize()
Dim cell As Range
With Sheets("Données")
For Each cell In .Range("A1 :A" & .Range("A65536").End(xlUp).Row)
ComboBox1.AddItem cell
ComboBox4.AddItem cell
ComboBox16.AddItem cell
ComboBox17.AddItem cell
ComboBox24.AddItem cell
ComboBox25.AddItem cell
ComboBox32.AddItem cell
ComboBox33.AddItem cell
Next
End With
Range("B18,C18,D18,E18,F18,G18,H18,I18,B19,C19,D19,E19,F19,G19,H19,I19,B20,C20,D20,E20,F20,G20,H20,I20,B21,C21,D21,E21,F21,G21,H21,I21").ClearContents
End Sub
D'avance merci pour les réponses qui me parviendront.
Bien cordialement,