J'ai trouv=E9 comment lancer le userform =E0 l'ouverture=20
(Private Sub Workbook_Open()
UserForm1.Show
End Sub), mais je voudrais masquer compl=E8tement les=20
feuilles de donn=E9es, laisser juste le formulaire,=20
apparemment ce n'est pas possible, il me reste toujours=20
une feuille
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut Elisabeth,
1 feuille est le minimum effectivement. tu peux créer une feuille vierge, sans quadrillage, sans en-têtes de lignes et colonnes, et décocher Onglets de classeur par le menu Outils / Options.
Private Sub Workbook_Open() Sheets("Feuil1").Activate With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False .DisplayWorkbookTabs = False End With UserForm1.Show End Sub
et si tu veux faire réapparaître les onglets: ActiveWindow.DisplayWorkbookTabs = True
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Elisabeth" a écrit dans le message de news:16bfc01c417bd$b2175d70$ Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture (Private Sub Workbook_Open() UserForm1.Show End Sub), mais je voudrais masquer complètement les feuilles de données, laisser juste le formulaire, apparemment ce n'est pas possible, il me reste toujours une feuille
Salut Elisabeth,
1 feuille est le minimum effectivement.
tu peux créer une feuille vierge, sans quadrillage, sans en-têtes de lignes et colonnes,
et décocher Onglets de classeur
par le menu Outils / Options.
Private Sub Workbook_Open()
Sheets("Feuil1").Activate
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
UserForm1.Show
End Sub
et si tu veux faire réapparaître les onglets:
ActiveWindow.DisplayWorkbookTabs = True
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Elisabeth" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:16bfc01c417bd$b2175d70$a401280a@phx.gbl...
Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture
(Private Sub Workbook_Open()
UserForm1.Show
End Sub), mais je voudrais masquer complètement les
feuilles de données, laisser juste le formulaire,
apparemment ce n'est pas possible, il me reste toujours
une feuille
1 feuille est le minimum effectivement. tu peux créer une feuille vierge, sans quadrillage, sans en-têtes de lignes et colonnes, et décocher Onglets de classeur par le menu Outils / Options.
Private Sub Workbook_Open() Sheets("Feuil1").Activate With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False .DisplayWorkbookTabs = False End With UserForm1.Show End Sub
et si tu veux faire réapparaître les onglets: ActiveWindow.DisplayWorkbookTabs = True
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Elisabeth" a écrit dans le message de news:16bfc01c417bd$b2175d70$ Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture (Private Sub Workbook_Open() UserForm1.Show End Sub), mais je voudrais masquer complètement les feuilles de données, laisser juste le formulaire, apparemment ce n'est pas possible, il me reste toujours une feuille
Modeste
Bonjour, tu peux également essayer : Private Sub Workbook_Open() ActiveWindow.WindowState = xlMinimized UserForm1.Show End Sub
@+
-----Message d'origine----- Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture (Private Sub Workbook_Open() UserForm1.Show End Sub), mais je voudrais masquer complètement les feuilles de données, laisser juste le formulaire, apparemment ce n'est pas possible, il me reste toujours une feuille .
Bonjour,
tu peux également essayer :
Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMinimized
UserForm1.Show
End Sub
@+
-----Message d'origine-----
Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture
(Private Sub Workbook_Open()
UserForm1.Show
End Sub), mais je voudrais masquer complètement les
feuilles de données, laisser juste le formulaire,
apparemment ce n'est pas possible, il me reste toujours
une feuille
.
Bonjour, tu peux également essayer : Private Sub Workbook_Open() ActiveWindow.WindowState = xlMinimized UserForm1.Show End Sub
@+
-----Message d'origine----- Bonjour,
J'ai trouvé comment lancer le userform à l'ouverture (Private Sub Workbook_Open() UserForm1.Show End Sub), mais je voudrais masquer complètement les feuilles de données, laisser juste le formulaire, apparemment ce n'est pas possible, il me reste toujours une feuille .
