Comment supprimer des lignes et des colonnes indésirables dans une feuille de calcul Excel
( Cela ne prendra pas aussi longtemps qu'un premier coup d'œil pourrait le suggérer et c'est sûr!)
Il y a deux feuilles mentionnées dans la procédure ci-dessous.
Appelons votre feuille d'origine YourOriginalSheet(elle représente le nom réel de votre feuille d'origine).
Appelons l'autre feuille ShortSheet, qui contiendra une copie des seules cellules pertinentes.
(1) Dans YourOriginalSheet, Selectet Copyla plage de cellules pertinentes (ne collez pas encore).
(2) Ajoutez une nouvelle feuille nommée ShortSheet, placez le curseur dans la cellule représentant le coin supérieur gauche de la plage copiée (probablement A1), et collez comme suit:
(2a) Paste Special...> Formulas[cliquez avec le bouton droit sur la cellule du coin supérieur gauche]
(2b) Paste Special...>Values
(2c) Paste Special...>Formats
(2d) Paste Special...>Column Widths
(2e) Inclure d'autres Paste Specialoptions qui, selon vous, pourraient aider à améliorer l'aspect de la feuille.
(3) Appuyez sur Ctrl-Shift-Endpour trouver le coin inférieur droit de ShortSheetpour vous assurer qu'il contient toutes les données pertinentes.
(4) Savele classeur. ( Save As ...un nouveau fichier si vous voulez une sauvegarde.)
(5) Supprimer YourOriginalSheet(les données pertinentes sont actuellement enregistrées dans ShortSheet.)
(6) Renommez ShortSheetle nom réel de votre feuille d'origine ».
Rien n'a changé sauf pour rendre le classeur beaucoup plus petit, donc toutes les macros, les références externes à cette feuille de calcul, etc. devraient toujours fonctionner.
Voici un macropour accomplir les étapes de (2).
Sub pasteSpecialAll()
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Avant d'utiliser la macro Select et Copy la plage pertinente, comme cela a été fait à l'étape (1).
J'ai enregistré ma macro dans mon Personal.xlsbclasseur pour une utilisation future partout et lui ai assigné une touche Ctrl + Shift + V.