VBA - Supprimer des lignes selon conditions

[kaisermpt]

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

 

[kaisermpt]

Bonjour,

Si vous avez besoin de plus précisions, je suis à votre disposition.

@Seb

 

[GALOUGALOU]

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

 

[kaisermpt]

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

 

[kaisermpt]

Bonjour à tous,

Existe-t-il une autre manière d'effectuer cette suppression de lignes ?

En vous remerciant d'avance de votre aide

@Seb

 

[Ikito]

Bonjour,

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

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

 

[GALOUGALOU]

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

 

[kaisermpt]

Bonjour Ikito,

C'est parfait. je te remercie beaucoup.

@GALOUGALOU...C'est bien noté.

Merci encore

Seb