Supprimer des feuilles

Le
IMER09
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #5102871
Bonsoir,
'------------
Sub jj()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Name Application.DisplayAlerts = False
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
'----------------
Salutations
JJ


"IMER09"
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
Le #5102861
Bonsoir.

Sub test()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Name sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel
"IMER09"
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
Le #5102841
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 sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel
"IMER09"
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
Le #5102831
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


IMER09
Le #5102801
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





Jacky
Le #5102751
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"
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 sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel
"IMER09"
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









Publicité
Poster une réponse
Anonyme