Cases à options dans un formulaire

13GIBE59 à dit:

Bonjour Wandewinkel.

Le code :

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 !

Cliquez pour agrandir...

13GIBE59 à dit:

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

Cliquez pour agrandir...

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

Fo_rum à dit:

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 :

Code:

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.

Cliquez pour agrandir...