Fermeture auto userform [VBA]

Résolu/Fermé

Gornarf Messages postés 121 Date d'inscription vendredi 19 février 2010 Statut Membre Dernière intervention 15 mai 2014 - Modifié par Gornarf le 22/08/2011 à 11:06
Gornarf Messages postés 121 Date d'inscription vendredi 19 février 2010 Statut Membre Dernière intervention 15 mai 2014 - 22 août 2011 à 11:06

Bonjour,

J'ai une fois de plus soucis d'USF avec VBA,

J'ai deux USF

USF1 et USF2

J'ai un bouton de commande pour quitter USF1

Lorsqu'il quitte, USF2 s'affiche.

J'aimerai qu'après 3 secondes USF2 se ferme tout seul.

J'utilise ce code:

Private Sub UserForm_Activate()

Application.Wait Now + TimeValue("00:00:03") '3 secondes

ThisWorkbook.Saved = True
Application.Quit

End Sub

Ça marche mais le problème c'est que les évènements se déroulent au lancement de l'USF1 donc mon "programme" est inutilisable.

Comment faire en sorte que ça ne s'applique qu'a l'USF2?

Merci d'avance

Gornarf

A voir également:

Fermeture auto userform [VBA]
Sytadin fermeture - Télécharger - Transports & Cartes
Telecharger auto refresh - Télécharger - Divers Web & Internet
Forcer fermeture application windows - Guide
Ciel auto entrepreneur - Télécharger - Comptabilité & Facturation
Frais de fermeture compte paypal - Guide

1 réponse

Réponse 1 / 1

Gornarf Messages postés 121 Date d'inscription vendredi 19 février 2010 Statut Membre Dernière intervention 15 mai 2014 3
22 août 2011 à 11:06

J'ai la solution et c'est tout bête....

Fallait que je mette le code dans le USF2... J'y avais pas pensé. Désolé du dérangement. Pour le coup c'était un peut bêbête.

Si un Admin pouvais passer en résolu... merci ;-)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Langue dans Android auto

Bonjour,

J'utilise Waze via Android auto dans ma voiture. Bien que la langue de Waze soit le français dans mon smartphone, lorsque je connecte celui-ci à Android auto le guidage GPS se fait en anglais .Comment faire donc pour paramétrer Android auto en français aussi et non pas en anglais.
D'avance merci
Jidoto