Combobox sans doublon

Version imprimable

Bonjour,

Quand j'utilise le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Cell1 As Range 'Supprime les données existantes dans le ComboBox Me.ComboBox2.Clear d = 0 'Boucle sur les cellules de la plage L2:L9232 pour 'alimenter le ComboBox For Each Cell1 In Worksheets("Feuil1").Range("a2:a11") Me.ComboBox2 = Cell1 'remplissage sans doublon If Me.ComboBox2.ListIndex = -1 Then _ Me.ComboBox2.AddItem Cell1 Next Cell1
Le programme boucle vers le Sub Combobox1_Click dans les cas suivants :
Ma colonne contient :
-Pedalier
-Pedalier
-Berceau
-Pedalier
Au passage de Berceau à Pédalier, j'ai une boucle.
Cela me pose problème car du coup, j'ai mes actions qui devraient ne s'exécuter qu'au moment du clic utilisateur qui s'exécutent à l'initialisation de la UserForm.

Que pouvez vous me conseiller pour éviter cette boucle "parasite" ?

Merci d'avance.

07/03/2008, 14h25
tomy7
J ai pas bien compri alors je vais te proposé deux choses:

1ere: tu fais ta routine dans
Code:

1 2 3 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) End Sub
si tu veux que sa se fasse pour 2 clic

2 eme : si tu veux que ta boucle se fasse a initialisation
Code:

1 2 3 private sub Userform_Initialize end sub

Une autre proposition :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim Waitt As Boolean
Private Sub ComboBox2_Change()
If Waitt Then Exit Sub
MsgBox "coucou"
End Sub
 
Private Sub UserForm_Initialize()
Dim Cell1 As Range
    'Supprime les données existantes dans le ComboBox
    Me.ComboBox2.Clear
    d = 0
    'Boucle sur les cellules de la plage L2:L9232 pour
    'alimenter le ComboBox
    For Each Cell1 In Worksheets("Feuil1").Range("a2:a75")
        Waitt = True
        Me.ComboBox2 = Cell1
        'remplissage sans doublon
        If Me.ComboBox2.ListIndex = -1 Then _
            Me.ComboBox2.AddItem Cell1
    Next Cell1
    Me.ComboBox2 = ""
    Waitt = false
End Sub

Dommage que tu n'aies pas mis le nom des sub, on ne sait pas où on est ;)
A+

Oui, désolé j'avais oublié.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub UserForm1_Initialize()
Dim Cell1 As Range
    'Supprime les données existantes dans le ComboBox
    Me.ComboBox2.Clear
d = 0
    'Boucle sur les cellules de la plage L2:L9232 pour
    'alimenter le ComboBox
For Each Cell1 In Worksheets("Feuil1").Range("a2:a11")
        Me.ComboBox2 = Cell1
        'remplissage sans doublon
        If Me.ComboBox2.ListIndex = -1 Then _
            Me.ComboBox2.AddItem Cell1
    Next Cell1
End Sub

Mais je vais essayer ta solution Ouskel, merci. Je vous dis où j'en suis.

07/03/2008, 19h18
Psychoze

C'est ok, ca marche nickel !

Merci bcp pour ta rapidité. (et ta bonne idée)

A bientot.