Test pour une seule action possible

paul87 · 10 Octobre 2011

bonjour à tous, Bonjour le Forum,
je cherche à verrouiller à une seule utilisation mon commandButton
c'est à dire qu'un seul click possible, après, message d'erreur et quit la macro.
je fais un test sur la valeur de Y en incrémentant +1 comme ci dessous..
ben ça ne marche pas...ça bloque l'exécution de la macro dès l'ouverture..
j'ai bien declaré dans module1 Public y As Integer
Qui aurait une idée..? SVP .
dès le lancement du programme la valeur de y par défaut est bien "0" ..?

Code:

Private Sub CommandButton1_Click()

If y > 0 Then MsgBox ("Une seule utilisation de ce bouton par ouverture du programme")
If y > 0 Then Exit Sub

Ici le code de ma macro....Qui fonctionne sans pb .!!!


y = y + 1

End Sub

Fred0o · 10 Octobre 2011

Re : Test pour une seule action possible

Bonjour Paul,

En fait, à l'ouverture d'un classeur, les variables sont initialisées à Nothing (ou indéfini). Si tu veux l'initialiser à 0, il faut le faire lors de l'ouverture du classeur avec par exemple ceci :

VB:

Private Sub Workbook_Open()
    Y = 0
End Sub

A mettre dans le module de ThisWorkbook.

A+

Dranreb · 10 Octobre 2011

Re : Test pour une seule action possible

Bonjour.
Pourquoi pas :

VB:

Private Sub CommandButton1_Click()
'Ici le code de ma macro....Qui fonctionne sans pb .!!!
CommandButton1.Visible = False
End Sub

Et dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.CommandButton1.Visible = True
End Sub

Feuil1 peut être à remplacer par le bon CodeName
À +

Test pour une seule action possible

paul87

XLDnaute Impliqué

Fred0o

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires

Test pour une seule action possible

paul87

XLDnaute Impliqué

Fred0o

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency