Bonjour à tous,

Je dispose d'un code VBA permettant de remplir des combobox.
Cependant, mon code permet uniquement de rajouter plusieurs fois la même ligne, je me retrouve avec plusieurs lignes identiques car j'effectue un test sur une variable contenant une donnée précise : exemple : "Toaster 1"
Dans ma base à la colonne A, j'ai plusieurs fois "Toaster 1", et il me prend la première ligne, il faudrait que je trouve le moyen d'incrémenter ...

Je ne sais pas si je me fais bien comprendre... voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Initialize()
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Menu.Label1.Caption = y

Sheets("Reglages").Select

' //Combobox 1
    Dim l1 As Long 'déclare la variable lf (Ligne de Fin)
    Dim x As Variant
    l1 = Range("A65536").End(xlUp).Row 'définit la variable l1
    Menu.ComboBox1.Clear 'vide la ComboBox
    'remplit la ComboBox
    For Each cel In Range("A2:A" & l1) 'boucle sur toutes les cellule de A1 à A_lf
    x = Application.WorksheetFunction.VLookup(cel, Sheets("Reglages").Range("A2:E" & l1), 2, False) 
    'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox
    If cel.Value = y Then Menu.ComboBox1.AddItem x
    Next cel 'prochaine cellule
Merci d'avance pour votre aide.

GK