désactivation de sub par validation checkbox

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+

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:

---

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:

---

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:

---

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).

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.

Bonjour

Tu peux essayer plutôt

Code:

---

Public Bloqueur as boolean

---

Cordialement,

PGZ

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:

---

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

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

Code:

---

1 2 3 4 5 6 7 8

Sub Sub1() sub2 If UserForm1.checkbox1 Then sub3 Else sub4 End If End Sub

---