Bonjour,
J'ai un petit pb: j'ai une combobox qui appelle une fonction sur une propriété on click. Cette même fonction modifie la liste de cette combobox et réecrit rechoisit ensuite la valeur initialement choisie par l'utilisateur(avec listindex). Or au moment de la modification de la valeur, la propriété on_click se réactive et relance ma fonction
ainsi je tourne en boucle sans sortir du code
ce que je voudrais c'est désactiver mon les propiétés on click des combobox au début de ma fonction et les réactiver après. Je crois bien avoir déja vu des topics la dessus mais je ne les ai pas retrouvé
si quelqu'un peut me rappeler comment on fait...
merci
rémi
ps voici un petit bout des deux codes pour être plus clair:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub combobox4_click()
Dim arg As String
Dim voi As Integer
 
arg = ComboBox2.Value
voi = ComboBox4.ListIndex
 
Call MAJfeuille(arg, 1, voi)
 
End Sub
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
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub MAJfeuille(arg As String, nbenveloppe As Integer, voie As Integer)
'ici ya plein de truc avant et après
If Worksheets(Configuration).Cells(lignec, c1).Value = "oui" Then
 
 
    Worksheets(modele).Cells(l2, 2).Value = "oui"
    lignevoie = CountColumnItems2(lignec, c1, Configuration)
    l = LookForColumn(1, Configuration, "Nb voie")
    nbvoie = CountColumnItems3(lignec, l, Configuration, lignevoie)
    ReDim tabvoie(nbvoie)
    a = 1
    ComboBox4.Clear
    For i = 1 To lignevoie
        If Worksheets(Configuration).Cells(lignec + i - 1, l).Value <> "" Then
            tabvoie(a) = Worksheets(Configuration).Cells(lignec + i - 1, l).Value
            ComboBox4.AddItem Worksheets(Configuration).Cells(lignec + i - 1, l).Value
            a = a + 1
        End If
    Next i
    lignec = LookForRow1(l, lignec, Configuration, tabvoie(voie + 1))
    c1 = LookForColumn(1, Configuration, "Nom réseau")
    Worksheets(modele).Cells(l1, 2).Value = Worksheets(Configuration).Cells(lignec, c1).Value
    ComboBox4.ListIndex = voie
    'Set marange = Worksheets(modele).Range(Worksheets(modele).Cells(2, 53), Worksheets(modele).Cells(5, 53))
    'ComboBox4.ListFillRange = marange.Address
 
 
Else
    Worksheets(modele).Cells(l2, 2).Value = "non"
    c1 = LookForColumn(1, Configuration, "Nb voie")
    ComboBox4.Clear
    ComboBox4.Value = Worksheets(Configuration).Cells(lignec, c1).Value
    c1 = LookForColumn(1, Configuration, "Nom réseau")
    Worksheets(modele).Cells(l1, 2).Value = Worksheets(Configuration).Cells(lignec, c1).Value
End If