Supprimer les lignes dont le sous-total est égal à 0

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2012

• #2

Re : Supprimer les lignes dont le sous-total est égal à 0

Bonjour à tous

Si tu fais un filtre automatique personnalisé: Supérieur à 0 sur la colonne QUANTITE, cela le fait-il ?

 

Vote positif 0 Vote négatif

A

almoha

Guest

• 5 Novembre 2012

• #3

Re : Supprimer les lignes dont le sous-total est égal à 0

Merci de ton intérêt. Mais ce filtre ne fait que masquer les lignes sous.total = 0, ce qui n'est pas l'objectif recherché 🙁. C'est vrai que je n'ai pas forcément bien formulé ma question. C'est plus clair, je crois, en consultant mon tableau...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2012

• #4

Re : Supprimer les lignes dont le sous-total est égal à 0

Re

Il suffit d'adapter dans ce cas...
Filtre =0
Selection des lignes filtrées -> Suppression lignes

PS: J'avais ouvert ton fichier joint

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2012

• #5

Re : Supprimer les lignes dont le sous-total est égal à 0

Re

Pour illustrer mon précédent propos, sa transcription en VBA.

Code:

Sub Macro1()
Dim plgf As Range
Range("B1:B13").AutoFilter Field:=1, Criteria1:="0"
Set plgf = Range("_FilterDataBase")
plgf.Offset(1, 0).Resize(plgf.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
ActiveSheet.AutoFilterMode = False
End Sub

 

Vote positif 0 Vote négatif

A

almoha

Guest

• 5 Novembre 2012

• #6

Re : Supprimer les lignes dont le sous-total est égal à 0

J'ai testé tes conseils. Malheureusement, je me rends compte que mon post manque de clarté car les solutions que tu proposes ne répondent pas à ma problématique. Je joins à nouveau mon fichier avec des commentaires pour essayer de l'expliciter. Merci 😉

 

Pièces jointes

• Sous-total_2_ 0.xls

  19 KB · Affichages: 69

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Novembre 2012

• #7

Re : Supprimer les lignes dont le sous-total est égal à 0

Re


Et comme ceci, cela correspond plus à tes attentes

Code:

Sub A_LA_HUSSARDE()
Dim t$, i
For i = 1 To 13
If Range("B" & i).HasFormula And Range("B" & i) = 0 Then
t = Split(Range("B" & i).Formula, ",")(1)
Range(Left(t, Len(t) - 1)).Rows.Hidden = True
End If
Next i
End Sub

 

Vote positif 0 Vote négatif

A

almoha

Guest

• 6 Novembre 2012

• #8

Re : Supprimer les lignes dont le sous-total est égal à 0

Merci beaucoup, le résultat est atteint 🙂

 

Vote positif 0 Vote négatif