Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 23/10/2011, 16h37   #1
Invité de passage
 
thierry
Inscription : décembre 2010
Messages : 2
Détails du profil
Informations personnelles :
Nom : thierry

Informations forums :
Inscription : décembre 2010
Messages : 2
Points : 0
Points : 0
Par défaut Un userform animé à l'ouverture de la feuille

Bonjour à tous,

Il s'agit de mon premier post, il faut un début à tout.

j'ai lu dans les fichiers VBA qu'un userform animé ne pouvait se lancer que par l'action d'une commande et pas par macro. sans doute qu'une solution à déjà été apportée, mais ne l'ayant trouvé nulle part quand j'en ai eu besoins j'ai essayé de trouver la solution en prenant des idées un peu partout. ceci fonctionne surement en XL 2077 et 2010. si cela peu intéresser certains d'entre-vous!

le userform s'active à l'ouverture de la feuille "par macro". et en principe pour différente version d'Excel (pas testé).
Pièces jointes en attente de validation
Type de fichier : rar usfanimé.rar
surcouf1942 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/10/2011, 16h42   #2
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 773
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 773
Points : 16 849
Points : 16 849
Envoyer un message via Skype™ à bbil
Pourrai tu être plus clair ? tu veux le lancer ou ton userform .. ?

c'est quoi un "userform animé" ?

Citation:
par l'action d'une commande et pas par macro
qu'appelle tu "action d'une commande" et " macro" ?

----------------------------------------
Fichier joint dans vos discussions
-----------------------------------------
bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/10/2011, 17h00   #3
Invité de passage
 
thierry
Inscription : décembre 2010
Messages : 2
Détails du profil
Informations personnelles :
Nom : thierry

Informations forums :
Inscription : décembre 2010
Messages : 2
Points : 0
Points : 0
Par défaut Un userform animé à l'ouverture de la feuille

Bonjour,

désolé si je n'ai pas été clair et si la procédure de mon post n'est pas conforme à celle exigée. veuillez m'en excuser.

en fait je souhaitais simplement présenter un userform s'ouvrant automatiquement à l'ouverture d'une feuille contenant un programme quelconque. ce userform comprend le titre du programme et sa version. c'est tout. juste une petite animation pour présenter le le contenu de la feuille excel.

je tâcherai d'être plus explicite la prochaine fois.

merci pour votre indulgence
surcouf1942 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/10/2011, 17h20   #4
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 773
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 773
Points : 16 849
Points : 16 849
Envoyer un message via Skype™ à bbil
Utilise l'événement Open dans thisWorkbook :

Code :
1
2
3
Private Sub Workbook_Open()
  UserForm1.Show
End Sub
bbil est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 24/10/2011, 17h17   #5
Membre du Club
 
Homme
developpeur
Inscription : octobre 2011
Messages : 85
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : developpeur
Secteur : Distribution

Informations forums :
Inscription : octobre 2011
Messages : 85
Points : 63
Points : 63
Par défaut Et pour un effet de temps

Un p'tit plus ...

Code :
1
2
3
4
5
6
7
Private Sub UserForm_Activate()
timedebut = Timer
DoEvents
While Timer < timedebut + 3
Wend
Unload Me
End Sub
lenovo49 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h40.


 
 
 
 
Partenaires

Hébergement Web