VBA - Supprimer des lignes selon conditions

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kaisermpt

XLDnaute Occasionnel
Bonjour à tous,

Je me permet de solliciter pour un problème de macro.

J'ai un fichier qui fait plusieurs centaines de lignes, je souhaiterais conserver les 2 lignes qui suivent la ligne "test #" et supprimer toutes les autres jusqu'au prochain "Test #"..et ainsi de suite.

je vous joints un fichier avec mon exemple et un onglet "objectif" avec le résultat souhaité.

En vous remerciant d'avance de votre aide

@Seb
 

Pièces jointes

bonsoir kaisermpt bonsoir le forum,

une macro s’exécute pour poser des formules en colonne O et ensuite procède à la suppression des lignes
pour lancer l'exécution j'ai affecté un raccourci clavier
attention à bien respecter l’ordonnancement des colonnes, la macro cherche test en colonne A
si vous l'integrer à un autre classeur attention au nom des onglets. le raccourci clavier serait à recréer.

appuyer sur CTRL + S pour lancer l'éxécution
cordialement
galougalou
 

Pièces jointes

Bonjour,

Voir le fichier joint. Alt + F11, exécuter la macro.

VB:
Sub SupLig()

Application.ScreenUpdating = False

nbLignes = Sheets("Feuil1").Cells(Rows.Count, "B").End(xlUp).Row

For i = 1 To nbLignes
    If (Sheets("Feuil1").Cells(i, "A").Value Like "*Test*") Then
        i = i + 3
    End If
    If (Sheets("Feuil1").Cells(i, "B") = Sheets("Feuil1").Cells(i + 1, "B") And Sheets("Feuil1").Cells(i + 1, "B") = Sheets("Feuil1").Cells(i + 2, "B")) Then
        End
    End If
    Rows(i).Delete
    i = i - 1
Next

Application.ScreenUpdating = True

End Sub
 

Pièces jointes

bonjour kaisermpt bonjour ikito bonjour le forum

la macro de ikito est parfaite
je rajouterais à son post ce commentaire
si vous adapter a votre ficher de données (commentaire post 4), a moins de modifier la macro, il faut respecter scrupuleusement le nom des onglets et l’ordonnancement des colonnes
cordialement
galougalou
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
319
Retour