[VBA] excel et userform [ résolu ]

excel et userform [ résolu ] [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 06-11-2004 à 23:01:01    

Salut. :)
J'ai un souci, je m'explique.
J'ai creé une userform et je voudrait savoir si je peut la forcer à s'afficher dès l'ouverture de fichier excel sans autre manip de la part de  
l'utilisateur.
J'ai chercher dans mon petit bouquin sur VBA mais nada. :(
Si qqun a la soluce...
Merci d'avance.:)


Message édité par amsterdam le 09-11-2004 à 22:59:32
Reply

Marsh Posté le 06-11-2004 à 23:01:01   

Reply

Marsh Posté le 07-11-2004 à 04:34:16    

Oui. Dans le module "ThisWorksheet", choisi "OnStart" ou un truc dans le genrs (me souviens pas de tête). Je peux te redonner le truc exact lundi

Reply

Marsh Posté le 07-11-2004 à 11:07:39    

En effet OnStart permet de lancer mon userform mais il faut encore cliquer sur n'importe laquelle des cellules.
Mais pas moyen de l'afficher au lancement du fichier excel. :/

Reply

Marsh Posté le 07-11-2004 à 15:09:28    

:hot:

Reply

Marsh Posté le 07-11-2004 à 21:48:26    

Alors je vais peut etre pouvoir t'aider lol mais je suis un pur neewbie!
Voila ce que j'ai fais :
 
Private Sub Workbook_Open()
Load TON_USERFORM
TON_USERFORM.Show
End Sub
 
dans l'onglent thisworkbook de ton projet vba
 
après aussi tu peux masqué toutes les feuilles comme ca l'userform sera seule a s'afficher!
Dans la suite du code précedent tu mais:
Sheets("LA_FEUILLE_QUE_TU_VEUX_CACHER" ).Visible = False
 
voila vooili


---------------
Lao Tseu a inventé le Thé au jasmin. Pythagore a inventé le thé au rhum
Reply

Marsh Posté le 07-11-2004 à 21:53:37    

oupps tu ne peux pas masquer toutes les feuilles apparement il en faut toujours une active!


---------------
Lao Tseu a inventé le Thé au jasmin. Pythagore a inventé le thé au rhum
Reply

Marsh Posté le 08-11-2004 à 02:20:20    

Ok merci. :)
Mon but n'est pas de cacher la feuille excel mais de lui afficher mon userform par dessus au démarrage.
Cette userform va servir à l'utilisateur pour remplir la feuille.
J'essaie ça demain soir, parce que présentement.....dodo. :d
Merci. :)

Reply

Marsh Posté le 08-11-2004 à 09:00:01    

Pour faire repasser devant si ça part derrière (y'a aussi une option "Modal" mais je ne sais pas si elle marche. J'ai préféré la méthode de sagouin qui marche dans tous les cas)
 
J'ai placé ce bout de code à l'intérieur d'une boucle qui fait mes traîtements, ça check tous les 1/10 de secondes environ.
 


UserForm1.Show
 
[...]
 
If Not UserForm1.Visible Then
    UserForm1.Show
End If
 
[...]
 
UserForm1.Hide

Reply

Marsh Posté le 09-11-2004 à 06:43:41    

:jap:

Reply

Marsh Posté le 09-11-2004 à 22:57:30    

Impec ça marche :d  
merci :jap:

Reply

Marsh Posté le 09-11-2004 à 22:57:30   

Reply

Marsh Posté le 10-11-2004 à 06:55:50    

tu as utilisez quelle methode alors?


---------------
Lao Tseu a inventé le Thé au jasmin. Pythagore a inventé le thé au rhum
Reply

Marsh Posté le 10-11-2004 à 20:50:46    

Citation :

tu as utilisez quelle methode alors?


 
Private Sub Workbook_Open()
Load TON_USERFORM
TON_USERFORM.Show
End Sub
 


Message édité par amsterdam le 10-11-2004 à 20:51:26
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed