Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
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
Jacky
Bonsoir, '------------ Sub jj() Dim sh As Worksheet For Each sh In ActiveWorkbook.Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then Application.DisplayAlerts = False sh.Delete End If Next Application.DisplayAlerts = True End Sub '---------------- Salutations JJ
"IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
Bonsoir,
'------------
Sub jj()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "zaza" And sh.Name <> "toto" Then
Application.DisplayAlerts = False
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
'----------------
Salutations
JJ
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
7C6B64A1-3F6A-4818-B7E9-D48567538F8A@microsoft.com...
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et
toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Bonsoir, '------------ Sub jj() Dim sh As Worksheet For Each sh In ActiveWorkbook.Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then Application.DisplayAlerts = False sh.Delete End If Next Application.DisplayAlerts = True End Sub '---------------- Salutations JJ
"IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
Daniel.C
Bonsoir.
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
Bonsoir.
Sub test()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "zaza" And sh.Name <> "toto" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Cordialement.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
7C6B64A1-3F6A-4818-B7E9-D48567538F8A@microsoft.com...
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et
toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
IMER09
Re grd merci a vous 2 c'est nikel -- IMER09
Bonsoir.
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
Re grd merci a vous 2 c'est nikel
--
IMER09
Bonsoir.
Sub test()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "zaza" And sh.Name <> "toto" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Cordialement.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
7C6B64A1-3F6A-4818-B7E9-D48567538F8A@microsoft.com...
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et
toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
LSteph
Bonsoir,
Au cas ou la liste de celles à conserver s'allongerait une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Sheets Select Case sh.Name Case "zaza", "toto" Case Else sh.Delete End Select Next Application.DisplayAlerts = True End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci
Bonsoir,
Au cas ou la liste de celles à conserver s'allongerait
une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Sheets
Select Case sh.Name
Case "zaza", "toto"
Case Else
sh.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Au cas ou la liste de celles à conserver s'allongerait une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Sheets Select Case sh.Name Case "zaza", "toto" Case Else sh.Delete End Select Next Application.DisplayAlerts = True End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci
IMER09
En effet merci -- IMER09
Bonsoir,
Au cas ou la liste de celles à conserver s'allongerait une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Sheets Select Case sh.Name Case "zaza", "toto" Case Else sh.Delete End Select Next Application.DisplayAlerts = True End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci
En effet merci
--
IMER09
Bonsoir,
Au cas ou la liste de celles à conserver s'allongerait
une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Sheets
Select Case sh.Name
Case "zaza", "toto"
Case Else
sh.Delete
End Select
Next
Application.DisplayAlerts = True
End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Au cas ou la liste de celles à conserver s'allongerait une variante ou il suffit d'ajouter , le nom dans le Case:
Sub dltSh() Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Sheets Select Case sh.Name Case "zaza", "toto" Case Else sh.Delete End Select Next Application.DisplayAlerts = True End Sub
'lSteph
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci
Jacky
Re... Même que tu as de la chance que ta carte réseau n'ait pas court-circuitée à la réception des deux messages en même temps. ;o)))
-- Salutations JJ
"IMER09" a écrit dans le message de news:
Re grd merci a vous 2 c'est nikel -- IMER09
Bonsoir.
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
Re merci -- IMER09
Re...
Même que tu as de la chance que ta carte réseau n'ait pas court-circuitée à
la réception des deux messages en même temps.
;o)))
--
Salutations
JJ
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
723DAB72-D2F8-45FD-B454-3BB72DBA189D@microsoft.com...
Re grd merci a vous 2 c'est nikel
--
IMER09
Bonsoir.
Sub test()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name <> "zaza" And sh.Name <> "toto" Then
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub
Cordialement.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
7C6B64A1-3F6A-4818-B7E9-D48567538F8A@microsoft.com...
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et
toto
Sans avoir a confirmer a chaque feuille
je ne connait ni le nom des feuilles ni la quantite
Re... Même que tu as de la chance que ta carte réseau n'ait pas court-circuitée à la réception des deux messages en même temps. ;o)))
-- Salutations JJ
"IMER09" a écrit dans le message de news:
Re grd merci a vous 2 c'est nikel -- IMER09
Bonsoir.
Sub test() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If sh.Name <> "zaza" And sh.Name <> "toto" Then sh.Delete End If Next sh Application.DisplayAlerts = True End Sub
Cordialement. Daniel "IMER09" a écrit dans le message de news:
Re bonjour
Comment supprimer toute les feuilles d'1 classeur sauf deux : zaza et toto Sans avoir a confirmer a chaque feuille je ne connait ni le nom des feuilles ni la quantite
