Test pour une seule action possible

[paul87]

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" ..?

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]

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 :

Private Sub Workbook_Open()
    Y = 0
End Sub

A mettre dans le module de ThisWorkbook.

A+

 

[Dranreb]

Re : Test pour une seule action possible

Bonjour.
Pourquoi pas :

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

Et dans ThisWorkbook :

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
À +