Bonjour a tous,
J'ai possède une colonne "A" avec dedans des noms d'entreprise cependant, ils peuvent apparaître plusieurs fois et je voudrai donc qu'ils n'apparaissent qu'une seule fois dans ma combobox...
J'ai donc mis en place ce programme que j'ai aperçu sur plusieurs forum mais ça me renvoi une erreur d'execution 380 à la ligne : " Me.ComboBox1 = Cell "
J'ai beau essayer plusieurs variantes de cette ligne rien ne marche ...
Est-ce que quelqu'un aurait une idée pour résoudre mon problème ?
Merci d'avance
Private Sub UserForm_Activate()
UserForm7.ComboBox1.AddItem ""
Dim dernligne As Long
Dim Cell As Range
dernligne = Sheets("Mesures").Range("A1048576").End(xlUp).Row
'Supprime les données existantes dans le ComboBox
Me.ComboBox1.Clear
'Boucle sur les cellules de la plage L2:L9232 pour
'alimenter le ComboBox
For Each Cell In Worksheets("Mesures").Range("A2:A" & dernligne)
Me.ComboBox1 = Cell
'remplissage sans doublon
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem Cell
End If
Next Cell
End Sub