Suppression de ligne automatique suivant un critère sur cette même ligne

StephanC

XLDnaute Nouveau
Bonjour à tous,

Voici ma problématique :

En extrayant une base de donnée d'un ERP, je me retrouve avec une base de donnée avec l'exemple en pièce-jointe.

Je souhaiterai pouvoir isolé sans avoir à filtrer en faisant ressortir uniquement les lignes qui ont pour ordre "TR90DCI0" et supprimer les lignes n'ayant pas ce critère.

Après de nombreux essaie ainsi que de recherche s'il n'y avait pas de sujet déjà existant, je n'en ai pas trouvé et c'est pourquoi je me permet de poster ça ici.

Cordialement,
Stephan
 

Pièces jointes

  • Exemple.xlsx
    16.6 KB · Affichages: 14

Jacky67

XLDnaute Barbatruc
Bonjour à tous,

Voici ma problématique :

En extrayant une base de donnée d'un ERP, je me retrouve avec une base de donnée avec l'exemple en pièce-jointe.

Je souhaiterai pouvoir isolé sans avoir à filtrer en faisant ressortir uniquement les lignes qui ont pour ordre "TR90DCI0" et supprimer les lignes n'ayant pas ce critère.

Après de nombreux essaie ainsi que de recherche s'il n'y avait pas de sujet déjà existant, je n'en ai pas trouvé et c'est pourquoi je me permet de poster ça ici.

Cordialement,
Stephan
Bonjour,
...sans avoir à filtrer ????
Il y a une raison ?
Si tu n'es pas rébarbatif au VBA
Une proposition en PJ
 

Pièces jointes

  • stephanC.xlsm
    26.1 KB · Affichages: 10

WTF

XLDnaute Impliqué
Bonjour Stephan,
Je ne suis pas très bon en VBA, mais je te propose le code suivant qui sera peut être amélioré par un autre membre du forum

VB:
Sub StephanC()
'
' StephanC Macro
'

'
    Range("G1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$L$20").AutoFilter Field:=9, Criteria1:= _
        "<>TR90DCI0", Operator:=xlAnd
    Rows("2:2").Select
    Range("G2").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.End(xlUp).Select
    Selection.AutoFilter
End Sub

Pour le mettre tu fais Alt F11 et tu le colles dans une feuille Module.
 

Discussions similaires