Discussion :

[Psychoze]

Bonjour,

Quand j'utilise le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tomy7]

J ai pas bien compri alors je vais te proposé deux choses:

1ere: tu fais ta routine dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
private sub Userform_Initialize
end sub

[ouskel'n'or]

Une autre proposition :

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
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+

[Psychoze]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Psychoze]

C'est ok, ca marche nickel !

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

A bientot.