Affichage du userform dès l'ouverture du fichier excel [Résolu]
Signaler
payhpayh7
cs_aslalaud
- Messages postés
- 7
- Date d'inscription
- vendredi 24 mars 2006
- Statut
- Membre
- Dernière intervention
- 29 octobre 2008
cs_aslalaud
- Messages postés
- 3
- Date d'inscription
- jeudi 27 décembre 2007
- Statut
- Membre
- Dernière intervention
- 18 janvier 2008
A voir également:
- Afficher un userform à l'ouverture d'excel
- Lancer userform sans ouvrir excel - Meilleures réponses
- Ouvrir userform vba - Meilleures réponses
- Afficher une userform a l'ouverture d'excel ✓ - Forum - Visual Basic
- Ouvrir un userform à partir d'un click sur une case excel... ✓ - Forum - Visual Basic
- Creation d'exe. qui affiche une userform de menu, executant du excel ensuite ✓ - Forum - Visual Basic
- Ouvrir automatiquement ma userform à l'ouverture d'exel - Forum - Visual Basic
- Forcer l'apparition d'une fenêtre à l'ouverture d'Excel...sans avoir activer les - Forum - Visual Basic 6
4 réponses
cs_aslalaud
- Messages postés
- 3
- Date d'inscription
- jeudi 27 décembre 2007
- Statut
- Membre
- Dernière intervention
- 18 janvier 2008
Pour afficher directement votre userform, il vaut mieux utiliser la procédure suivante:
Private Sub Workbook_Open()
Application.visible= false
load userform1
userform1.show
End sub
Et vous aurez l'USF qui s'affiche directement sans retourner aux feuilles excel.
Private Sub Workbook_Open()
Application.visible= false
load userform1
userform1.show
End sub
Et vous aurez l'USF qui s'affiche directement sans retourner aux feuilles excel.
michelxld
- Messages postés
- 402
- Date d'inscription
- vendredi 6 août 2004
- Statut
- Membre
- Dernière intervention
- 12 octobre 2008
bonjour
pour afficher l'USF à l'ouverture du classeur , tu peux utiliser l'evenement Workbook_Open au niveau de ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub
plutot que de masquer la croix tu pourrais la désactiver :
n'oublie pas d'ajouter un bouton dans le UserForm afin de pouvoir le refermer , sinon tu vas bloquer ton classeur
Private Sub CommandButton1_Click()
Unload Me
End Sub
pour que l'USF s'affiche en pleine page tu peux tester :
Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub
bon week end
michel
pour afficher l'USF à l'ouverture du classeur , tu peux utiliser l'evenement Workbook_Open au niveau de ThisWorkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub
plutot que de masquer la croix tu pourrais la désactiver :
n'oublie pas d'ajouter un bouton dans le UserForm afin de pouvoir le refermer , sinon tu vas bloquer ton classeur
Private Sub CommandButton1_Click()
Unload Me
End Sub
pour que l'USF s'affiche en pleine page tu peux tester :
Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub
bon week end
michel
michelxld
- Messages postés
- 402
- Date d'inscription
- vendredi 6 août 2004
- Statut
- Membre
- Dernière intervention
- 12 octobre 2008
Oouuppss...un petit oubli....
pour désactiver la croix de fermeture :
Private Sub userForm_queryClose(Cancel As Integer, closeMode As Integer)If closeMode 0 Then Cancel True
End Sub
bonne journée
michel
pour désactiver la croix de fermeture :
Private Sub userForm_queryClose(Cancel As Integer, closeMode As Integer)If closeMode 0 Then Cancel True
End Sub
bonne journée
michel