Supprimer des pages

Question

Bonjour, 
Comment faire pour supprimer rapidement des pages/lignes Excel quand, par "hasard", des dizaines de milliers ont été crées, d'un seul coup, par inadvertance ?
Merci
Frenchy7th


Configuration: Windows / Chrome 89.0.4389.90

cs_Le Pivert · Answer

Bonjour,

il faut passer par vba, car tu as un message d'alerte à chaque suppression de feuille

Sub suppression()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Application.DisplayAlerts = False
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Feuil1" And Ws.Name <> "Feuil2" And Ws.Name <> "Feuil3" Then ' feuilles à garder et à adapter
     Ws.Delete
    End If
Next Ws
Application.DisplayAlerts = True
End Sub

ccm81 · Answer

Bonjour à tous les deux

Pour supprimer une feuille
Clic-droit sur l'onglet (le nom de la feuille)
Supprimer

Cdlmnt

Raymond PENTIER · Answer

Salut, ccm81 et Le Pivert .

Pourquoi voulez-vous lui supprimer des feuilles, alors qu'il souhaite supprimer des lignes, qui finissent par faire des pages à l'impression ?
Tout au moins c'est ainsi que j'ai compris sa demande ...

Frenchy, veux-tu préciser ton problème, et expliquer comment tu as fait pour multiplier les lignes et les pages ?
Le mieux, à mon avis, serait de créer un nouveau fichier vierge et de tout recommencer ...

Supprimer des pages

3 réponses

Discussions similaires

Newsletters