Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est
pour cela que je me permet une nouvelle ficelle.
Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes
les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open()
Application.EnableEvents = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = True
End If
Next
Feuil1.Visible = xlVeryHidden
ThisWorkbook.Saved = True
End Sub
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
LSteph
Bonjour Nico, ce code est à placer dans le module de CeClasseur "Thisworkbook" voir les objets dans l'explorateur de projet. Il agit à l'ouverture. Pour agir à la fermeture utiliser before Close (voir le déroulant à droite en haut dans Thisworkbook) ou Before_Save pour agir à l'enregistrement De même tu peux faire l'inverse mais il faut toujours garder une feuille visible pour masquer les autres (tu noteras que Michdenis a pris soin de rendre visible les autres feuilles avant de masquer la Feuil1) pour l'option de sauver le classeur en fin de macro , c'est selon ton objectif.
....
Application.EnableEvents = True Feuil1.Visible = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = xlVeryHidden
End If Next ThisWorkbook.Saved = True End Sub
'lSteph
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1. D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
Bonjour Nico,
ce code est à placer dans le module de CeClasseur "Thisworkbook" voir les
objets dans l'explorateur de projet.
Il agit à l'ouverture. Pour agir à la fermeture utiliser before Close (voir
le déroulant à droite en haut dans Thisworkbook)
ou Before_Save pour agir à l'enregistrement
De même tu peux faire l'inverse mais il faut toujours garder une feuille
visible pour masquer les autres
(tu noteras que Michdenis a pris soin de rendre visible les autres feuilles
avant de masquer la Feuil1)
pour l'option de sauver le classeur en fin de macro , c'est selon ton
objectif.
....
Application.EnableEvents = True
Feuil1.Visible = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = xlVeryHidden
End If
Next
ThisWorkbook.Saved = True
End Sub
'lSteph
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
u5XDMhG1FHA.3560@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est
pour cela que je me permet une nouvelle ficelle.
Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher
toutes
les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open()
Application.EnableEvents = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = True
End If
Next
Feuil1.Visible = xlVeryHidden
ThisWorkbook.Saved = True
End Sub
Bonjour Nico, ce code est à placer dans le module de CeClasseur "Thisworkbook" voir les objets dans l'explorateur de projet. Il agit à l'ouverture. Pour agir à la fermeture utiliser before Close (voir le déroulant à droite en haut dans Thisworkbook) ou Before_Save pour agir à l'enregistrement De même tu peux faire l'inverse mais il faut toujours garder une feuille visible pour masquer les autres (tu noteras que Michdenis a pris soin de rendre visible les autres feuilles avant de masquer la Feuil1) pour l'option de sauver le classeur en fin de macro , c'est selon ton objectif.
....
Application.EnableEvents = True Feuil1.Visible = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = xlVeryHidden
End If Next ThisWorkbook.Saved = True End Sub
'lSteph
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1. D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
ChrisV
Bonjour Nico,
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1. D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
Bonjour Nico,
A copier dans un module du classeur...
Pour supprimer toutes les feuilles sauf une...
Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Delete
Next sH
End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza()
Application.ScreenUpdating = False
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden
Next sH
End Sub
Les afficher...
Sub mpfe()
Application.ScreenUpdating = False
For Each sH In Worksheets
sH.Visible = True
Next sH
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
u5XDMhG1FHA.3560@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est
pour cela que je me permet une nouvelle ficelle.
Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher
toutes
les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open()
Application.EnableEvents = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = True
End If
Next
Feuil1.Visible = xlVeryHidden
ThisWorkbook.Saved = True
End Sub
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1. D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
Nico
Génial, Merci
Nico
"ChrisV" a écrit dans le message de news:
Bonjour Nico,
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
Génial,
Merci
Nico
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
e2wGcxH1FHA.2540@TK2MSFTNGP09.phx.gbl...
Bonjour Nico,
A copier dans un module du classeur...
Pour supprimer toutes les feuilles sauf une...
Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Delete
Next sH
End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza()
Application.ScreenUpdating = False
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden
Next sH
End Sub
Les afficher...
Sub mpfe()
Application.ScreenUpdating = False
For Each sH In Worksheets
sH.Visible = True
Next sH
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
u5XDMhG1FHA.3560@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est
pour cela que je me permet une nouvelle ficelle.
Je souhaite désormais supprimer toutes les feuilles differentes de
feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher
toutes
les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à
la
mettre en pratique
Private Sub Workbook_Open()
Application.EnableEvents = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = True
End If
Next
Feuil1.Visible = xlVeryHidden
ThisWorkbook.Saved = True
End Sub
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
ChrisV
Waste yelo !
ChrisV >:-)
"Nico" a écrit dans le message de news: %
Génial, Merci
Nico
"ChrisV" a écrit dans le message de news:
Bonjour Nico,
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
Merci Nico
Waste yelo !
ChrisV >:-)
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
%23YTK3oM1FHA.3376@TK2MSFTNGP14.phx.gbl...
Génial,
Merci
Nico
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
e2wGcxH1FHA.2540@TK2MSFTNGP09.phx.gbl...
Bonjour Nico,
A copier dans un module du classeur...
Pour supprimer toutes les feuilles sauf une...
Sub zaza()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Delete
Next sH
End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza()
Application.ScreenUpdating = False
For Each sH In Worksheets
If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden
Next sH
End Sub
Les afficher...
Sub mpfe()
Application.ScreenUpdating = False
For Each sH In Worksheets
sH.Visible = True
Next sH
End Sub
ChrisV
"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
u5XDMhG1FHA.3560@TK2MSFTNGP15.phx.gbl...
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure,
c'est
pour cela que je me permet une nouvelle ficelle.
Je souhaite désormais supprimer toutes les feuilles differentes de
feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher
toutes
les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à
la
mettre en pratique
Private Sub Workbook_Open()
Application.EnableEvents = True
For Each sh In Worksheets
If sh.Name <> Feuil1.Name Then
sh.Visible = True
End If
Next
Feuil1.Visible = xlVeryHidden
ThisWorkbook.Saved = True
End Sub
A copier dans un module du classeur... Pour supprimer toutes les feuilles sauf une...
Sub zaza() With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Delete Next sH End Sub
Pour masquer toutes les feuilles sauf une...
Sub zaza() Application.ScreenUpdating = False For Each sH In Worksheets If sH.Name <> "Feuil1" Then sH.Visible = xlVeryHidden Next sH End Sub
Les afficher...
Sub mpfe() Application.ScreenUpdating = False For Each sH In Worksheets sH.Visible = True Next sH End Sub
ChrisV
"Nico" a écrit dans le message de news:
Bonjour,
Merci aux réponse deja donné, et j'ai remis mon horloge à l'heure, c'est pour cela que je me permet une nouvelle ficelle. Je souhaite désormais supprimer toutes les feuilles differentes de feuil1.
D'ailleurs comme j'y suis, quel est le code pour masquer et afficher toutes les feuil diffrentes à feuil1
j'ai recu ceci de michdenis mais n'arrive pas à bien la comprendre et à la
mettre en pratique
Private Sub Workbook_Open() Application.EnableEvents = True For Each sh In Worksheets If sh.Name <> Feuil1.Name Then sh.Visible = True End If Next Feuil1.Visible = xlVeryHidden ThisWorkbook.Saved = True End Sub
