Supprimer ligne si commence par C, G ou E
Bonjour,
J'ai besoin de votre aide. J'ai un tableau avec 11 colonnes.
Je souhaiterai (en VBA) supprimer les lignes entières si une cellule de la colonne B commence par C, G ou E.
J'ai enregistré pour une journée en question ces différentes étapes (selectionner la colonne, filtrer commence par C, selectionner de la 1ere à derniere ligne du résultat et ensuite supprimer les lignes. Puis j'ai renouvelé l'opération pour G puis E)
En utilisant cette macro pour une autre journée avec + de cellules remplies en colonne B et un emplacement différent des cellules commençant par C, G ou E j'ai bien peur que ma macro ne fonctionne pas.
Voilà ce que j'ai fait :
Sub Macrotest()
'
' Macrotest Macro
'
'
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$295").AutoFilter Field:=2, Criteria1:="=C*", _
Operator:=xlAnd
Range("A5:K5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$K$272").AutoFilter Field:=2
Range("B1").Select
ActiveSheet.Range("$A$1:$K$272").AutoFilter Field:=2, Criteria1:="=G*", _
Operator:=xlAnd
Range("A116:K116").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("116:116").Select
Range("A116:K116").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$K$270").AutoFilter Field:=2
Range("B1").Select
ActiveSheet.Range("$A$1:$K$270").AutoFilter Field:=2, Criteria1:="=E*", _
Operator:=xlAnd
Range("A269:K269").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$K$268").AutoFilter Field:=2
Selection.AutoFilter
Range("A1").Select
End Sub
Bonjour le fil
@Sumo211 merci de joindre un fichier la prochaine fois, cela éviterai aux intervenants d'en faire un eux même
@+
Merci beaucoup gmb c'est tout à fait ce que je recherche.
BrunoM45 désolé c'était un fichier d'entreprise cependant à l'avenir je fournirai un fichier excel avec des données quelconques comme a fait gmb.