Discussion :

[ted the Ors]

Bonjour!

L'intitulé est un peu long, je vais essayer d'être clair.
J'ai une macro qui se lance automatiquement à l'ouverture d'un classeur. J'aimerai offrir la possibilité à l'utilisateur d'annuler ce lancement automatiquement.
Pour ce faire, je pensais utiliser un userform qui disparaîtrait au bout de 10 secondes puis le traitement se lance sauf si l'utilisateur clique sur un bouton d'annulation situé sur le userform permettant d'annuler le lancement automatique.
Pour faire disparaître automatiquement mon userform, j'utilise Application.Wait mais elle rend inopérant le bouton d'annulation.

Des idées?

D'avance merci.

[BENNASR]

Bonjour
je sais pas si c'est ce que tu cherches mais je propose un message à l'ouverture de ton classeur demandant la confirmation de la commande si la réponse et OK si non il démarre pas la procédure
si ça t'arrange :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
If MsgBox("Etes-vous certain de vouloir exécuter la commande !!?", vbYesNo, "Demande de confirmation") = vbYes Then
'' TON CODE
end if
end sub

BONNE CONTINUATION

[MarcelG]

Bonjour,

Utiliser plutôt la méthode OnTime

Code affecté au formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub UserForm_activate()
 
Application.OnTime EarliestTime:=Now + TimeValue("00:00:15"), Procedure:="laprocédure"
 
End Sub
 
Private Sub Btn_Annulation_Click()
Unload Me
End
End Sub

Dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
 
Sub laprocédure()
Unload Usf_Alerte
MsgBox Prompt:="Coucou", Buttons:=vbOKOnly, Title:="Activation du traitement"
End Sub

[patricktoulon]

bonjour
un petit exemple de msgbox temporaire perso avec un UserForm

1. sans api settimer
2. sans application.ontime
3. sans application.wait

lancer la sub dans le module

[MarcelG]

Patrick,

Petite précision.
La variable affectée au Timer se déclare en Single.

D'autre part.
Je viens de trouver sur la toile Internet un code qui retourne les codes de barres de commande.
Il semblerait, sauf erreur, que la commande 2040, mentionnée dans ton code, soit celle correspondant au menu

Outils\Partager le classeur

Je n'en comprends pas l'usage.

[ted the Ors]

J'ai utilisé la méthode de MarcelG qui fonctionne parfaitement!
Je n'ai pas testé les autres solutions.

En tout cas, merci à tous pour vos réponses et bon après-midi.

[patricktoulon]

re
c'est pour gérer l'évènement onupdate

on change quelque chose dans le bar et cet évènement est déclenché
c'est juste pour éviter un timer de quelque sorte que ce soit
la variable single je sais pas je vais voir

[MarcelG]

Salut,

Merci pour l'information.

Tu peux consulter l'aide Microsoft à propos de la fonction Timer.

[patricktoulon]

re
ca va timer je connais

si tu veux une explication complète
c'est simple
en gros je map la commandbars comme on le fait dans une classe pour des controls ou autre
sauf que tout est dans le UserForm (le module UserForm est une classe aussi)

en gros j'intègre le pilotage de la commandbars dans le UserForm exactement comme dans une classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private WithEvents Cmbrs As Commandbars

a partir de la je peux gérer l'évènement OnUpdate da la commandbars

et comme dans cet évènement je la met enabled true/false l'évènement se répète

il ne reste plus a mettre une condition dans l'évènement pour l'arrêter avec timer +Delay par exemple

et la bascule true/false répétitive n'est pas bloquante pour le reste car il n'est pas prioritaire

j'ai une horloge avec ce principe si tu veux