prblème de checkbox?

Mouchty85 · 22 Novembre 2006

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 · 22 Novembre 2006

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é · 22 Novembre 2006

Re : prblème de checkbox?

bonsoir

peut etre en passant par un boolean de test :

Code:

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

prblème de checkbox?

Mouchty85

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires

prblème de checkbox?

Mouchty85

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency