Plusieurs userform a l'ouverture

bonjour,

voilà je desire faire apparaitre comme des pop up plusieurs userform a l'ouverture d'un fichier

avec ce code dans thisworkbook je n'ai qu'un userforme a la fois, quand je le ferme, le deuxieme de la liste s'affiche etc

Private Sub Workbook_Open()

UserForm1.Show

contact.Show

lol.Show

End Sub

comment faire pour que tous s'affiche jusqu'a recouvrir l'ecran ?

et peut etre même avec un temps espacé de par exemple 3 seconde

comme un diaporama

merci à tous

73userform.zip (6.72 Ko)

Bonjour kinder53,

En fait le mode d'affichage de tes userform ne permet pas l'activation d'une autre fenêtre autre que ton userform. On dit que l'userform est modal.

Pour qu'ils soient non modal, c'est-à-dire pour que tu puisses sélectionner une feuille, aller dans les menus... il faut rendre l'affichage non modal comme ceci :

Private Sub Workbook_Open()
    UserForm1.Show 0
    Application.Wait (Now + TimeValue("0:00:03"))
    UserForm2.Show 0
    Application.Wait (Now + TimeValue("0:00:03"))
    UserForm3.Show 0
    Application.Wait (Now + TimeValue("0:00:03"))
    UserForm4.Show 0
End Sub

Le :

    Application.Wait (Now + TimeValue("0:00:03"))

te permet d'interrompre l'exécution de la macro entre "Now" (maintenant) et "Now" + 3s.

Je te laisse analyser le code des userform dans le fichier joint pour voir comment faire pour positionner tes userforms pour qu'ils ne se chevauchent pas trop.

Bonjour,

regarde le fichier joint

Te reste à peaufiner, pour adapter exactement tes 4 USF à ton écran...

Bonne journée

134copie-de-userform.zip (12.08 Ko)

re,

je vous remercie ca marche nickel.

j'ai une autre petite question:

comment faire apparaitre un userforme quanc clic dans n'importe quel cellule d'une feuille ?

merci encore

Dans le code d'une feuille, mets ce code par exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub
Rechercher des sujets similaires à "userform ouverture"