|
Utiliser le clavier
Sélectionnez toutes les lignes masquées à supprimer.
Appuyez sur Ctrl + 9.
Aller à la commande spéciale
Sélectionnez n’importe quelle cellule de la plage contenant des lignes masquées.
Dans le menu Accueil, sélectionnez Rechercher et sélectionner> Aller à spécial.
Sélectionnez l'option Blancs.
Sélectionnez OK.
Clic droit.
Sur l’une des lignes sélectionnées, cliquez avec le bouton droit et choisissez Supprimer dans le menu contextuel.
Supprimer des lignes masquées entières à l'aide de la boîte de dialogue Rechercher et remplacer
Sélectionnez n'importe quelle cellule contenant des lignes masquées.
Appuyez sur le raccourci Ctrl + H pour lancer la boîte de dialogue Rechercher et remplacer.
Cliquez sur le bouton Options>> et vérifiez si la liste déroulante Rechercher dans affiche Classeur entier. Sinon, sélectionnez-le.
Tapez ^~ dans la zone de texte Rechercher.
Laissez la zone de texte Remplacer par vide.
Cliquez sur Tout trouver.
Sélectionnez Tout.
Cliquez sur le bouton Remplacer tout.
Méthode UDF pour supprimer les lignes masquées
Sélectionnez n’importe quelle cellule.
Dans l'onglet Formules, sélectionnez Définir le nom.
Entrez Delete_Rows dans la zone de texte Nom.
Dans la zone de texte Fait référence à, tapez la formule suivante.
`Public Function Delete_Rows() As Boolean Dim ws As Worksheet For Chaque ws In ThisWorkbook.Worksheets If Not ws.Visible Then Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseIf ws.Visible =xlSheetVisible Puis ensuite ws Delete_Rows =True End Function`
Cliquez sur OK.
Sélectionnez les lignes visibles qui ne contiennent pas de lignes masquées et cliquez sur F5 pour afficher la boîte de dialogue Aller à.
Dans la liste déroulante Spécial, sélectionnez l'option Formules et cliquez sur OK.
Appuyez sur Ctrl + C.
Sélectionnez n’importe quelle cellule.
Appuyez sur Ctrl + H pour lancer la boîte de dialogue Rechercher et remplacer.
Cliquez sur le bouton Options>>.
Sélectionnez Par valeurs dans la liste déroulante Rechercher.
Cliquez sur OK.
Cliquez avec le bouton droit sur la cellule active et sélectionnez Collage spécial dans le menu contextuel.
Sous Coller, choisissez Formules.
Cliquez sur OK.
Cliquez sur le bouton Remplacer tout.
Enregistrez votre classeur sous un nom de fichier différent pour conserver une sauvegarde.
|
