prblème de checkbox?

[Mouchty85]

bonjour a tous,
je réalise un poetit projet et j'ai un petit problème

j'ai un formulaire dans lequel j'ai un certain nombre de checkbox.
Lorsque je décide de séléctionner un checkbox, la macro exécute une opération pour savoir si l'opération est possible. Mon problème est que dans le cas ou celle ci n'est pas possible, le Msgbox apparait deux fois

Voici mon code

Private Sub Checkbox_Click()
If Range("PMoisnum").Value >= 3 Then
Checkbox = False
MsgBox "Opération pas possible.", vbInformation
End If


Merci d'avance pour votre aide
Mouchty85

 

[Pierrot93]

Re : prblème de checkbox?

Bonjour Mouchty

A priori c'est normal, puisque dans ton code tu remets à "False" le checkbox, ce qui correspond à l'évènement click, donc ton code est rejoué.

Il faudrait l'équivalent de "Application.EnableEvents = False" pour les évènements liés aux USF, mais je n'ais pas trouvé et rien non plus sur le forum...

A suivre peut être.

Bonne fin d'après midi
@+

 

[Hervé]

Re : prblème de checkbox?

bonsoir

peut etre en passant par un boolean de test :

Dim pasbon As Boolean'en entete de module

Private Sub CheckBox_Click()
If pasbon = True Then pasbon = False: Exit Sub

If Range("PMoisnum").Value >= 3 Then
    MsgBox "Opération pas possible.", vbInformation
    pasbon = True
    CheckBox = False
End If

End Sub

salut