VBA - Supprimer des lignes selon conditions

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

  • fichiertest2.xlsx
    12.7 KB · Affichages: 9

GALOUGALOU

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

  • Copie de fichiertestV3.xlsm
    92.5 KB · Affichages: 5

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
 

Pièces jointes

  • fichiertest2V2.xlsm
    18 KB · Affichages: 10

GALOUGALOU

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

Discussions similaires

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088