Suppression de lignes
Bonjour,
Dans un tableau par rapport à une colonne précise j'aimerais supprimer les lignes correspondant à des données qui ne m’intéresse pas.
Exemple : dans la colonne H supprimer les lignes dont les cellules commence par AMT et/ou GAH.
Merci pour votre aide
Bonjour,
Un sujet similaire : https://forum.excel-pratique.com/excel/suppression-de-ligne-sous-condition-de-cellule-145699
Dans votre cas, il s'agit d'une correspondance partielle du texte, il faut donc adapter légèrement le code. C'est aussi réalisable sans macro, à l'aide d'un filtre.
Un essai :
Sub SuppressionConditionnelle()
Dim n%, i%
With Sheets(1) 'On travaille sur la 1ère feuille
Application.ScreenUpdating = False
n = .Cells(.Rows.Count, 1).End(xlUp).Row 'La colonne A sert de référence pour identifier la dernière ligne
For i = n To 2 Step -1 '2 implique la présence d'une ligne d'en-tête
If UCase(.Cells(i, 8)) Like "AMT*" Or UCase(.Cells(i, 8)) Like "GAH*" Then .Rows(i).Delete
Next i
End With
End SubBonjour Esteban,
Voici une réponse à ton message de Pedro22 qui devrait répondre à ta question.
https://forum.excel-pratique.com/excel/suppression-de-ligne-sous-condition-de-cellule-145699
Bonjour,
Un sujet similaire : https://forum.excel-pratique.com/excel/suppression-de-ligne-sous-condition-de-cellule-145699
Dans votre cas, il s'agit d'une correspondance partielle du texte, il faut donc adapter légèrement le code. C'est aussi réalisable sans macro, à l'aide d'un filtre.
Un essai :
Sub SuppressionConditionnelle() Dim n%, i% With Sheets(1) 'On travaille sur la 1ère feuille Application.ScreenUpdating = False n = .Cells(.Rows.Count, 1).End(xlUp).Row 'La colonne A sert de référence pour identifier la dernière ligne For i = n To 2 Step -1 '2 implique la présence d'une ligne d'en-tête If UCase(.Cells(i, 8)) Like "AMT*" Or UCase(.Cells(i, 8)) Like "GAH*" Then .Rows(i).Delete Next i End With End Sub
Merci à vous pour votre aide, cela correspond parfaitement à mes attentes.