Supprimer des lignes précises

Résolu/Fermé

jlg44 Messages postés 4 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 9 juillet 2013 - 9 juil. 2013 à 11:58
jlg44 Messages postés 4 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 9 juillet 2013 - 9 juil. 2013 à 14:19

Bonjour,

je suis novice en utilisation de macro.

je souhaite supprimer des lignes précises, par exemples les lignes 2,3,5,6,8,9 .... à 81,82

merci de m'aider

A voir également:

Supprimer des lignes précises
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Impossible de supprimer un fichier - Guide
Supprimer pub youtube - Accueil - Streaming
Supprimer edge - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
9 juil. 2013 à 12:05

Bonjour,

Un exemple :

Sub SupprLignes()
Dim Ligne, Lignes()
Lignes() = Array(82, 81, 75, 60, 10, 9, 8, 6, 5, 3, 2) 'A ADAPTER
With Sheets("Feuil1") 'A ADAPTER
    For Each Ligne In Lignes()
        .Rows(Ligne).Delete
    Next Ligne
End With
End Sub

ATTENTION!!!
1- Bien indiquer la feuille ou doivent être supprimées les lignes
2- Les lignes doivent être placées, dans l'Array, dans l'ordre décroissant...

Réponse 2 / 4

jlg44 Messages postés 4 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 9 juillet 2013
9 juil. 2013 à 13:45

merci !

si je veux utiliser la macro sur toutes mes feuilles , que faut il indiquer ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
9 juil. 2013 à 13:51

Deux choix :
1- tu veux pouvoir la lancer depuis n'importe qu'elle feuille :

Sub SupprLignes()
Dim Ligne, Lignes()
Lignes() = Array(82, 81, 75, 60, 10, 9, 8, 6, 5, 3, 2) 'A ADAPTER
With ActiveSheet 'DEPUIS LA FEUILLE ACTIVE
    For Each Ligne In Lignes()
        .Rows(Ligne).Delete
    Next Ligne
End With
End Sub

2- Tu veux que la macro boucle systématiquement sur toutes les feuilles et supprime les lignes choisies dans TOUT ton classeur SAUF dans la feuille Feuil3 :

Sub SupprLignes()
Dim Ligne, Lignes(), Feuille As Worksheet
Lignes() = Array(82, 81, 75, 60, 10, 9, 8, 6, 5, 3, 2) 'A ADAPTER
For Each Feuille In ThisWorkbook.Worksheets 'pour toutes les feuilles du classeur
    If Feuille.Name <> "Feuil3" 'si le nom de la feuille est différent de Feuil3
        With Feuille 'alors, dans cette feuille
            For Each Ligne In Lignes() 'pour toutes les lignes dont le n° figure ci-dessus
                .Rows(Ligne).Delete 'on supprime
            Next Ligne
        End With
    End If
Next Feuille
End Sub

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
9 juil. 2013 à 13:53

Deux choix :
1- tu veux pouvoir la lancer depuis n'importe qu'elle feuille :

Sub SupprLignes()
Dim Ligne, Lignes()
Lignes() = Array(82, 81, 75, 60, 10, 9, 8, 6, 5, 3, 2) 'A ADAPTER
With ActiveSheet 'DEPUIS LA FEUILLE ACTIVE
    For Each Ligne In Lignes()
        .Rows(Ligne).Delete
    Next Ligne
End With
End Sub

2- Tu veux que la macro boucle systématiquement sur toutes les feuilles et supprime les lignes choisies dans TOUT ton classeur SAUF dans la feuille Feuil3 :

Sub SupprLignes()
Dim Ligne, Lignes(), Feuille As Worksheet
Lignes() = Array(82, 81, 75, 60, 10, 9, 8, 6, 5, 3, 2) 'A ADAPTER
For Each Feuille In ThisWorkbook.Worksheets 'pour toutes les feuilles du classeur
    If Feuille.Name <> "Feuil3" 'si le nom de la feuille est différent de Feuil3
        With Feuille 'alors, dans cette feuille
            For Each Ligne In Lignes() 'pour toutes les lignes dont le n° figure ci-dessus
                .Rows(Ligne).Delete 'on supprime
            Next Ligne
        End With
    End If
Next Feuille
End Sub

Réponse 3 / 4

jlg44 Messages postés 4 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 9 juillet 2013
9 juil. 2013 à 13:57

fonctionnement parfait ! merci

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
9 juil. 2013 à 14:00

mais de rien.
A+

Réponse 4 / 4

jlg44 Messages postés 4 Date d'inscription mardi 9 juillet 2013 Statut Membre Dernière intervention 9 juillet 2013
9 juil. 2013 à 14:19

désormais je cherche a supprimer des lignes contenant un mot précis

et ceci pour 2 mots dans la feuille

en 1 seule macro , supprimer les lignes contenant soit le mot "A" ou le mot "B" de la colonne d

Discussions similaires

Afficher toutes les lignes masquées excel

EXCEL : Supprimer des lignes vides à la fin

comment supprimer des j'aimes sur mes photos