Discussion :

[commetuveux]

Bonjour à tous,

J'ai un sub qui appel d'autres sub lorsqu'il est lancé, mais j'aimerais que ma check box1 puisse en désactiver certains lorqu'elle est cochée. Mes connaissances ne permetttent pas de résoudre ce problème. Auriez-vous une idée?

Merci d'avance pour votre aide.

A+

[babaothe]

salut

le mécanisme est on ne peut plus simple à mettre en oeuvre :
il te suffit par exemple de ;
1) déclarer une variable générale (appelons-la bloqueur) ainsi (dans la parrie générale de ton module de développement :

Code :

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

Private declare bloqueur as boolean

2) dans l'évènement click de ta checkbox : donner la valeur true à bloqueur si cochée et False si non cochée
3) puis (à ton choix) :
- soit, dans ta sun d'appel des autres sub, subordonner par une expression conditionnelle, genre :

Code :

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

1
2
3
If bloqueur = False then ...
  'appel de l'autre sub
end if

- soit laisser ta 1ère sub comme elle est et inhiber chacune des autres en u mettant, en 1ère instruction :

Code :

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

If bloqueur = True then exit sub

Note que tu pourrais également te passer de la variable bloqueur en mettant en 1ère ligne des sub à inhiber une instrution de sortie (exit sub) si checkbox cochée (ou en subordonnant de la même manière, dans ta 1ère sub, l'appel des autres si ta checkbox est cochée, ce qui revient au même).

[commetuveux]

Merci pour tes explications.

Pour délcarer dans le module général "private declare bloqueur as boolean", je dois faire quelque de particulier? car il me met un message d'erreur: Sub ou fonction non définie.

[pgz]

Bonjour

Tu peux essayer plutôt

Code :

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

Public Bloqueur as boolean

Cordialement,

PGZ

[commetuveux]

Merci,

En éxécutant mon sub en pas à pas jme suis rendu compte que ma valeur true n'était jamais reconnue,

voilà le sub que j'ai utilisé, pourriez-vous me dire ce qui coince svp?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Bloqueur_click()
 
If TextBox = True Then
 
'AutreSub' mais même avec la case cochée il ne rentre jamais à l'intérieur
 
Else
End If

End Sub

[mercatog]

essaies comme ceci
Subi étant des procédures ou codes

Code :

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

1
2
3
4
5
6
7
8
Sub Sub1()
sub2
If UserForm1.checkbox1 Then
   sub3
Else
   sub4
End If
End Sub