Cases à options dans un formulaire

[vandewinkel]

Salut ts le monde,

Je voudrais lancer une macro à dans un formulaire en fonction d'une checkbox

Si le checkbox est cocher => lancer macro 1
Si le checkbox est décocher => lancer macro 2

Merci de votre coup de main

 

[13GIBE59]

Re : Cases à options dans un formulaire

Bonjour Wandewinkel.

Le code :

If Checkbox.Value = True Then 
Call macro1
Else
Call macro2
End If

Mais je trouve cette solution dangereuse, car la checkbox est de toutes façons "cochée" ou "décochée", donc une des deux macros se lancera à l'ouverture de ton userform !

Sois attentif !

 

[vandewinkel]

Re : Cases à options dans un formulaire

Bonjour Wandewinkel.

Le code :

If Checkbox.Value = True Then 
Call macro1
Else
Call macro2
End If

Mais je trouve cette solution dangereuse, car la checkbox est de toutes façons "cochée" ou "décochée", donc une des deux macros se lancera à l'ouverture de ton userform !

Sois attentif !

merci de la réponse,

Ca me sert à afficher ou masquer des lignes pour une question de visibilité.

Si tu vois une autre alternative, je suis preneur.
Merci

 

[Fo_rum]

Re : Cases à options dans un formulaire

Salut

... car la checkbox est de toutes façons "cochée" ou "décochée", donc une des deux macros se lancera à l'ouverture de ton userform !
...

pas sûr .
Si le contrôle "CheckBox" n'est pas initialisé lors de l'ouverture de l'UsF, ou avant, aucune des 2 macros ne sera lancée.
Ce qui n'est pas le cas avec :

Private Sub [B]CheckBox1_Click[/B]()
  If CheckBox1 Then
    Call macro1
  Else
    Call macro2
  End If
End Sub

mais là, il y a encore moyen de ne rien lancer en compliquant le test.

 

[vandewinkel]

Re : Cases à options dans un formulaire

Salut


pas sûr .
Si le contrôle "CheckBox" n'est pas initialisé lors de l'ouverture de l'UsF, ou avant, aucune des 2 macros ne sera lancée.
Ce qui n'est pas le cas avec :

Private Sub [B]CheckBox1_Click[/B]()
  If CheckBox1 Then
    Call macro1
  Else
    Call macro2
  End If
End Sub

mais là, il y a encore moyen de ne rien lancer en compliquant le test.

Merci, ca marche de cette facon.
Merci & bonne journée