Discussion :

[allergique]

Bonsoir,

J'aimerais à l'ouverture de mon fichier excel afficher un userform laissant à l'utilisateur X secondes pour cliquer sur un des boutons de contrôle.

Passé ce délai, sans clic de l'utilisateur la macro ferme l'userform et déroule une macro.

Est-ce possible d'afficher un userform avec un compte à rebours dynamique, mais ne bloquant pas le clic sur les boutons de contrôle durant le décompte?

Merci d'avance pour votre aide!

[Attrox]

Salut teste sa, sa devrai marcher:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Chrono()
    Dim sngDepart As Single
    Dim sngArrivee As Single
    Dim lng As Long
 
    sngDepart = Timer
 
    For lng = 1 To 1000000000
 
    Next
 
    sngArrivee = Timer
    MsgBox "Temps écoulé = " & sngArrivee - sngDepart & " secondes", vbInformation, "Chronomètre"
End Sub

[ucfoutu]

Bonsoir,

a attrox :

1) attention : l'utilisation de la fonction Timer sans passer la main au système empêchera le click sur le bouton de command. Y insérer un DoEvents est nécessaire ...
2) je n'aime pas vraiment ce genre d'utilisation, mais ce n'est pas grave pour le processeur s'il ne s'agit que de 10 secondes...
Je donnerais malgré tout la préférence à l'utilisation bien faite d'une variable booléenne et de Application.Ontime.

[allergique]

Bonjour,

Le code me fait planter excel, donc j'ai revu le fonctionnement de ma macro avec "Application.Ontime" et une combinaison de touches au lieu d'un userform.

A l'ouverture du fichier, si l'utilisateur presse les touches Ctrl+F3 avant les 15 sec, une macro se lance.
Passé ce délai, une autre macro se lance .

Voiici le code que j'ai mis:

Dans Thisworkbook:

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
'Si appui simultané des touches Ctrl+F3, annule màj automatique
Application.OnKey "^{F3}", "maintenance"
'Au bout de 15 sec, lance macro màj pour vérifier si mise à jour annulée
Application.OnTime Now + TimeValue("00:00:15"), "majauto"
End Sub

Dans un module:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Public maintenance2 As Boolean
 
 
Sub maintenance()
 
'affiche état maintenance pour désactiver la mise à jour
maintenance2 = True
'informe annulation de mise à jour
MsgBox "La mise à jour automatique est annulée"
 
End Sub

Code :

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

1
2
3
4
5
6
7
Sub majauto()
 
If maintenance2 = False Then
    vérifdate
End If
 
End Sub

Le code fonctionne bien lorsqu'on presse Ctrl+F3.

En complément, est-ce qu'on peut faire les choses suivantes:
- Réduire l'application excel dans la barre des taches automatiquement à l'ouverture du fichier
- Détecter une combinaison de touches "Onkey" lorsque l'application est réduite en barre des taches? Ce serait une combinaison de touches sous windows et pas sous excel qui serait faite

Merci

[ucfoutu]

- Réduire l'application excel dans la barre des taches automatiquement à l'ouverture du fichier
- Détecter une combinaison de touches "Onkey" lorsque l'application est réduite en barre des taches? Ce serait une combinaison de touches sous windows et pas sous excel qui serait faite

Bonjour, allergique,

J'ai montré ce code il y a entre 3 et 4 mois environ..(je ne me rappelle plus bien quand exactement)
Il va falloir faire une recherche avec mon pseudo

[allergique]

Bonjour ucfoutu,

Pour la réduction dans la barre des tâches à l'ouverture, j'ai trouvé le code:

Code :

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

Application.WindowState = xlMinimized

Par contre, pour le raccourci détecté quand excel n'a pas le focus, je n'ai pas trouvé.
J'ai cherché dans les 37 pages pour ton pseudo, mais j'ai juste un lien vers un sujet qui n'est pas résolu

http://www.developpez.net/forums/d53...s-clavier-vba/

[ucfoutu]

Bon...

Si je comprends bien, il va falloir que je cherche moi-même ...

Bon... (et bien que cette question n'ait plus rien à voir avec le sujet oiriginel de cette discussion)... donne-moi quelques minutes et je fais un EDIT avec le lien...

EDIT, donc :

Voilà :

http://www.developpez.net/forums/d64...erform-bouton/

Ceci étant dit, je crains fort que la présente réponse sera à son tour difficile à retrouver (la discussion étant ouverte sur un "compte à rebours) ... mais bon ...

[allergique]

merci d'avoir pris sur ton temps pour rechercher le post

Je vais regarder, et voir si c'est adaptable à mon fichier

Bonne journée