Afficher userform a l'ouverture de l'application

A

Argos88620

XLDnaute Junior

• 3 Mai 2019

• #2

Bonjour,

affichage des feuilles en mode réduit et USF au premier plan

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMinimized
Worksheets("Menu").Visible = True
For i = 2 To Worksheets.Count
Worksheets(i).Visible = False
Next
UserForm.Show 0
End Sub

Slts

 

Vote positif 0 Vote négatif

A

Abf

XLDnaute Nouveau

• 3 Mai 2019

• #3

Je perçois un message d'erreur exécution, et voici le message: le focus ne peut être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus
Merci!

 

Vote positif 0 Vote négatif

A

Abf

XLDnaute Nouveau

• 3 Mai 2019

• #4

Worksheets("Menu").visible=True est surligné en jaune

 

Vote positif 0 Vote négatif

A

Argos88620

XLDnaute Junior

• 3 Mai 2019

• #5

Il faut renplacer "Menu" par le nom de la première page qui doit rester visible mais réduite

 

Vote positif 0 Vote négatif

A

Abf

XLDnaute Nouveau

• 3 Mai 2019

• #6

J'ai fait mais Worksheets(i).visible=false est surligné en jaune

 

Vote positif 0 Vote négatif

A

Abf

XLDnaute Nouveau

• 3 Mai 2019

• #7

erreur d'exécution'1004':
Impossible de définir la propriété visible de la classe Worksheet

 

Vote positif 0 Vote négatif

A

Argos88620

XLDnaute Junior

• 3 Mai 2019

• #8

"i" n'est le nom de la premiere page!
Feuil1, Page1, Accueil ....

 

Vote positif 0 Vote négatif

A

Abf

XLDnaute Nouveau

• 3 Mai 2019

• #9

C'est mais c'est une feuille qui s'affiche sur 16 et mon userform est toujours activé dans ma feuilles. Y-a-t-il une codification spéciale ?

 

Vote positif 0 Vote négatif

A

Argos88620

XLDnaute Junior

• 3 Mai 2019

• #10

exemple

 

Pièces jointes

• Afficher.xlsm

  21.8 KB · Affichages: 23

Vote positif 0 Vote négatif