Discussion :

[Invité]

Bonjour à tous,
Je vous présente mon problème :
J'aimerais qu'un userform ouvert précédemment par un bouton se ferme automatiquement après x secondes, j'ai chercher sur le net et j'ai trouvé
Application.Wait... et Aplication.OnTime...
Mais PowerPoint me dit qu'il ne les reconnait pas !
Comment faire ?

Merci d'avances pour vos réponses !

[pgz]

Bonsoir.

Tu peux essayer ceci :
sur l'évènement on click du bouton

Code :

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

1
2
3
4
5
6
Sub MonBouton_Click()
 
UserForm1.Show vbModeless
Call subFermeUfrm(5)
 
End Sub

Avec la procédure de fermeture

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub subFermeUfrm(ByVal sglDureeSeconde As Single)
Dim sglFin As Single
 
sglFin = VBA.DateTime.Timer + sglDureeSeconde
 
While VBA.DateTime.Timer < sglFin
    DoEvents 'permet le fonctionnement des autres processus 
Wend
 
Unload UserForm1
 
End Sub

Ce n'est pas très précis, mais bon cela pourrait te convenir.

Cordialement

PGZ

[Invité]

Merci pour ta réponse, je vais tester ça mais pourrait tu m'expliquer chaque ligne par exemple pour que je comprenne ce que j'écrit Exemple : subFermeUfrm(5) --> pourquoi mettre un 5 etc...
Merci

[pgz]

Hello.

Voilà, cadence lente avec commentaires

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub MonBouton_Click()
'procédure évènementielle (click du bouton)
 
    'ouverture du userForm, remplacer UserForm1 par le nom de ton formulaire
    'La précision vbModeless est indispensable pour que le code continue de s'exécuter
UserForm1.Show vbModeless
    'appel de la procédure qui fermera le formulaire au bour de n secondes, ici n = 5
Call subFermeUfrm(5)
 
End Sub
 
'----------------------------------- procédure de fermeture du form ---------------------
Sub subFermeUfrm(ByVal sglDureeSeconde As Single)
'cette prcédure fermera le formulaire au bout de sglDureeSeconde s
 
Dim sglFin As Single
 
    'calcul de l'heure de fermeture
sglFin = VBA.DateTime.Timer + sglDureeSeconde
 
    'Tant que ce n'est pas l'heure
While VBA.DateTime.Timer < sglFin
    'exécuter les autres processus
    DoEvents
Wend
 
    'décharger et fermer le formulaire. Remplacer UserForm1 par le nom de ton formulaire
Unload UserForm1
 
End Sub

C'est plus clair?

Cordialement,

PGZ

[Invité]

Merci beaucoup je comprend mieux maintenant mais encore une dernière question : Ou placer toutes ces parties de code ?

[pgz]

Bonsoir.

Si tu as déjà placé un bouton de commande, sous VBE apparaît un objet : la diapo qui contient le bouton. Dans le code associé tu trouves en haut 2 listes de choix : la première contient le nom du bouton et tu le sélectionnes, le deuxième permet de choisir l'évènement ici On_Click. Une procédure apparaît dans le corps du module et tu insères

Code :

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

1
2
3
4
5
6
7
'procédure évènementielle (click du bouton)
 
    'ouverture du userForm, remplacer UserForm1 par le nom de ton formulaire
    'La précision vbModeless est indispensable pour que le code continue de s'exécuter
UserForm1.Show vbModeless
    'appel de la procédure qui fermera le formulaire au bour de n secondes, ici n = 5
Call subFermeUfrm(5)

L'autre procédure est à copier dans un module standard.

Cordialement,

PGZ

[Invité]

Merci, j'ai enfin trouvé ma solution !
Mais j'aurais encore une autre question (C'est la dernière) qui n'a pas trop avoir avec ma dernière question :
Je voudrais que l'utilisateur ne puise qu'entrer que les nombres de 1 à 6 (par exemple) dans une zone de texte ( Saisie validé par un bouton) !

[pgz]

Bonjour.

C'est pour quoi faire ces nombres de 1 à 6, pour la durée d'attente ?

PGZ

[Invité]

Non, je t'explique cela n'a rien avoir, c'est juste que lorsque que l'on clique sur le bouton Continuer, ça vérifie si le nombre entré dans la première zone de texte est compris entre 2 et 5 et le nombre entré dans la deuxième zone de texte est compris entre 3 et 4 sinon cela envoie un message, voila ma question j’espère que j'ai été compréhensible xD

[pgz]

Bonsoir.

Je ne vois pas ton appli, mais s'il s'agit bien d'un formulaire, cela devrait ressembler à cela

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
16
Sub BtnContinuer_Click()
 
If (Me.NomDuControleLignes < 2) Or (Me.NomDuControleLignes > 5) Then
    MsgBox "Le nombre de lignes doit être compris entre 2 et 5."
    Exit Sub
End If
 
If (Me.NomDuControleArchers < 2) Or (Me.NomDuControleArchers > 5) Then
    MsgBox "Le nombre d'archers doit être compris entre 2 et 5."
    Exit Sub
End If
 
'ici le contrôle est terminé
'on peut continuer
 
End Sub

Cordialement,

PGZ

[Invité]

Merci beaucoup ça marche enfin ^_^
Je met du coup cette discussion en résolu !