Discussion :

[mouftie]

Bonjour,
j'ai un usf avec plusieurs pages ; dans chacune d'elles j'ai mis un bouton "Sans Objet" qui est sensé remplir toutes les combobox de la page avec des "SO"
Voici le code que j'ai mis sur la 1ère page

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ToggEnrSo_Click()
If ToggEnrSo.Value = False Then
    CbxPjLis = "SO"
    CbxPjInd = "SO"
    CbxTyp = "SO"
'ToggEnrSo.Value = True
Else
    CbxPjLis = ""
    CbxPjInd = ""
    CbxTyp = ""
End If
End Sub

sur le formulaire vierge, les SO se mettent bien mais plus moyen de vider les combobox avec le pas à pas je me suis rendu compte que ToggEnrSo.Value est toujours false ; si je le mets à true en sortant, cela boucle sans arrêt sur le code...
Est-ce que quelqu'un peut m'aider, svp.
Merci

[mouftie]

Bonsoir,
J'ai trouvé l'exemple donné par Philippe Tulliez
ce qui donne dans mon cas

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
Option Explicit
Private Sub CbtAnnul_Click()
Unload Me
End Sub
Sub CtrlStatus()
  With Me.ToggRgVert
  If .Value = 0 Then
    Cbx1 = ""
    Cbx2 = ""
    Cbx3 = ""
  Else
    Cbx1 = "SO"
    Cbx2 = "SO"
    Cbx3 = "SO"
  End If
  End With
End Sub
 
Private Sub CbtOk_Click()
[C6] = Label1
[D6] = Cbx1
[C7] = Label2
[D7] = Cbx2
[C8] = Label3
[D8] = Cbx3
End Sub
 
Private Sub UserForm_Initialize()
  CtrlStatus
End Sub
Private Sub ToggRgVert_Click()
  CtrlStatus
End Sub

Merci