Résolu VBA - Supprimer des lignes selon conditions

kaisermpt

XLDnaute Junior
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
 

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
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
 

Fichiers joints

kaisermpt

XLDnaute Junior
Bonjour, je te remercie pour ton retour.
Néanmoins compte tenu qu'elle doit être adaptée à mon fichier de données, elle semble moins efficace.
@Seb
 

Ikito

XLDnaute Occasionnel
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
 

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas