Discussion :

[janojano]

Bonjour à tous d'un novice,

j'ai besoin d'explications sur une Sub checkbox_click. j'ai ecrit une telle fonction et je m'attendait a ce qu'elle ne soit appelée que suite a un click sur la checkbox concernée. Je suis tres surpris de constater que cette fonction est aussi executée lorsque je clique sur un autre objet de ma feuille excel.

explication:

j'ai d'un coté une comboboxA et de l'autre une checkboxB.

J'ai une fonction ComboboxA_change qui modifie la checkboxB.Value
j'ai une fonction checkboxB_click qui realise une certaine action selon la checkboxB.Value.

Je m'attendais a ce que checkboxB_click ne soit appelé que si on clicke réellement sur la checkboxB mais pas si la checkboxB.value était modifiée par la fonction ComboboxA_change.

Ai-je mal compris le sens de la fonction _Click?

merci de votre aide

[BERRACHED SAID]

Salut,janojano

Pour voir ce qui ne va pas joint ta macro pour une éventuelle modification.

Cordialement

[ucfoutu]

Bonjour,

Le changement d'état d'une CheckBox équivaut à un click.

Si tu veux éviter ce comlportement, il te faut utiliser une variable booléenne générale (True/False), la mettre à true lors d'une modification d'état ailleurs que par un click, et n'exécuter le code de l'évènement Click que si cette variable est à True, par exemple.

Appelons par exemple cette booléenne toto
Dans la partie générale :

Code :

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

Private toto As Boolean

Partout où, dans ton code, tu changes l'état de la checkbox :

Code :

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

1
2
3
toto = True
  ' ici ta modification d'état de la checkbox
  toto = False

et dans l'évènement click de ta checkbox :

Code :

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

1
2
3
4
5
6
7
If toto Then
   toto = Not toto
   Exit Sub
 End If
   ' et tes instructions si toto = false
   '
   '

[Pierre Fauconnier]

Salut

Tu peux tester si la checkbox est le contrôle actif

Code :

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

1
2
3
4
5
Private Sub CheckBox1_Click()
    If Me.ActiveControl.Name = CheckBox1.Name Then
        MsgBox "Clic sur case à cocher"
    End If
End Sub

en remplaçant bien entendu la ligne Msgbox par les lignes de ta procédure événementielle

[ucfoutu]

Oui, en effet
Une autre solution simple :
utiliser l'évènement MouseUp de la Checkbox en lieu et place de l'évènement Click

[Pierre Fauconnier]

Oui, en effet
Une autre solution simple :
utiliser l'évènement MouseUp de la Checkbox en lieu et place de l'évènement Click

Si on "clique" via la barre d'espace du clavier, l'événement MouseUp n'est pas levé.

[janojano]

apres une abscence de qqes jours , merci a tous les trois pour vos réponses.

J'ai essayé la solution avec une variable booleenne, c'est OK.


Je vais essayer le mouseup pour ma culture perso , mais je suis dors et déjà dépanné,


merci a vous 3


Janojano