suppresion de lignes

[PHILIP]

Bonsoir,

Je suis en train de créer une macro qui me permets de faire une mise en page automatique d'un dossier importé tous les matins. Mon soucis est le suivant comment supprimer les données recherchées apparaissant aprés un filtrage sachant que celles ci me sont inutiles , et que tous les matins la plage de données n'a jamais la même grandeur (hors macro je supprime simplement les lignes) Y'a t'il une manip spécifique à faire ?
Merci pour votre aide

 

[Staple1600]

Re : suppresion de lignes

Bonsoir

Il nous faudrait savoir les critères de ton filtre, et l'adresse de ta plage de cellules

En bref, un fichier exemple nous offrirai tout cela.

En attendant ton fichier , voici un exemple de macro supprimant les lignes retournées par un filtre

Sub Supprimer_PlageFiltree()
Dim PLG_FIL As Range
Application.ScreenUpdating = False
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A1").AutoFilter Field:=1, Criteria1:="1"
        Set PLG_FIL = .AutoFilter.Range
        Application.DisplayAlerts = False
        PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).Rows.Delete
        .AutoFilterMode = False
    End With
Application.ScreenUpdating = True
End Sub

 

[PHILIP]

Re : suppresion de lignes

J'ai pris le code et je l'ai executé malheureusement il ne marche pas voici ce qu'il me marque la methode run de l'application a echoué
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$L$20").AutoFilter Field:=7, Criteria1:="=ABX", _
Operator:=xlOr, Criteria2:="=GLS"
Application.Run "Classeur2.xlsx!Feuil1.Supprimer_PlageFiltree"[/COLOR]
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$21").AutoFilter Field:=7, Criteria1:="=ABX", _
Operator:=xlOr, Criteria2:="=GLS"
Application.Run "Classeur2.xlsx!Feuil1.Supprimer_PlageFiltree"
Sheets("Feuil1").Select
Cells.Select
Selection.AutoFilter
Range("H4").Select
ActiveSheet.Range("$A$1:$L$21").AutoFilter Field:=7, Criteria1:="=ABX", _
Operator:=xlOr, Criteria2:="=GLS"
Range("B36").Select
Application.Run "Classeur2.xlsx!Macro1"
End Sub

Comment on joint un fichier ?

 

[Staple1600]

Re : suppresion de lignes

Re


Tu es sous Excel 2007

Ton extension devrait être xlsm si ton fichier contient des macros.

La macro fonctionne mais en autonome

Sub Supprimer_PlageFiltree2()
Dim PLG_FIL As Range
Application.ScreenUpdating = False
    With ActiveSheet
        .AutoFilterMode = False
        .Range("$A$3:$L$20").AutoFilter Field:=7, Criteria1:="=ABX", Operator:=xlOr, Criteria2:="=GLS"
        Set PLG_FIL = .AutoFilter.Range
        Application.DisplayAlerts = False
        PLG_FIL.Offset(1, 0).Resize(PLG_FIL.Rows.Count - 1, 1).Rows.Delete
        .AutoFilterMode = False
    End With
Application.ScreenUpdating = True
End Sub

Joins un petit fichier exemple , de quelques lignes.

Pour cela : Edites ton message, Aller en mode avancé, Gérer les pièces jointes

 

[PHILIP]

Re : suppression de lignes

Voici le fichier , les criteres a eliminé sont abx et gls dans la ligne G

 

[Staple1600]

Re : suppresion de lignes

Re



je venais de créer un fichier de test

donc comme il prêt je le poste


Testes le tu verras que cela fonctionne

 

[PHILIP]

Re : suppresion de lignes

Merci Staple 1600

Je me permets de l'essayer demain je vous donnerais des nouvelles
PHILIp