Bonjour,

Suite à l'aide que vous m'avez apporté sur le timer (http://www.mdf-xlpages.com/modules/ne ... ?topic_id=600&forum=4 ), je recherche comment faire pour désactiver un bouton après l'éxecution de la macro auquel il est associé jusqu'à la réouverture du fichier Excel.

Par exemple, si j'ai un bouton "Pause de 10 secondes" (...et oui faut bien soufflé un peu de temps en temps ... ) sur ce bouton j'ai mis le code : (voir fichier joint)

Sub Pause10s_Clic()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub


Que faut-il ajouter SVP pour m'empêcher de faire plus d'une pause de 10 secondes par ouverture de ce fichier?
Avec un message, qui par exemple dirait "Pause déjà éffectuée !!! " et le bouton qui changerai de couleur du bleu au gris.

Merci par avance.

... J'ai trouvé cela mais je ne sais pas si c'est la bonne solution ...

Met la valeur 0 à D110 à l'ouverture du classeur.

Private Sub Workbook_open()
'Remet la valeur 0 dans la cellule D110 pour permettre l'execution de la macro du bouton.
[D110].Value = 0

End Sub

Du coup, j'ajoute une variable x qui prend la valeur de D110 et qui ajoute 1 et qui ensuite donne cette nouvelle valeur à D110.
Je met une condition sur l'execution de la macro que si la valeur de D110 est = 1

Sub Pause10s_Clic()
'
' Macro pour un pause de 10 secondes
'
Dim x As Integer
x = [D110].Value + 1
[D110].Value = x

If x = 1 Then
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime
Else: MsgBox "Trop de pause !!!"
End If

End Sub


Du coup cela fonctionne mais ce n'est peut être pas le plus simple....
Je progresse .... :)

Bonsoir Alex62, le Forum,

A vrai dire, je n'ai pas trop compris le principe de ton bouton "Pause", mais sinon, pour reproduire l'effet que tu as réalisé, tu pouvais aussi faire simplement comme ça :
C'est tout à fait dans ce genre de situation qu'on peut tirer partie d'une variable déclarée "Static".
A toutes fins utiles, j'en explique l'utilité et le fonctionnement dans le tutoriel VBA et les variables


En tout cas, merci à toi d'avoir tenu compte des règles de fonctionnement du forum et d'être en plus revenu par toi-même déposer ta propre réponse . Ce réflexe est grandement apprécié.


Juste un petite info supplémentaire (qui peut aussi te faire gagner un peu de temps et te simplifier grandement la mise en forme du code VBA dans tes posts) :



Oui je sais, le webmaster est un ch..., mais c'est aussi pour ça que ce forum reste de qualité

Cordialement,

Bonjour,

En effet, ta solution est nettement plus simple... encore un problème de logique !!!
Merci pour les conseils d'utilisation et les appréciations.