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

[almoha]

Bonjour,

J'ai un tableau tout simple avec 2 colonnes : 1 colonne "OBJET" et 1 colonne "QUANTITÉ". J'utilise la formule SOUS.TOTAL dans les cellules de la 2eme colonne à chaque changement d'OBJET. Je souhaiterais supprimer les lignes dont le sous-total est égal à 0. Je vous joins mon fichier. Voyez-vous comment arriver au résultat escompté ? Merci.

 

[Staple1600]

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 ?

 

[almoha]

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...

 

[Staple1600]

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

 

[Staple1600]

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

Re

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

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

 

[almoha]

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

 

[Staple1600]

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

Re


Et comme ceci, cela correspond plus à tes attentes

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

 

[almoha]

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

Merci beaucoup, le résultat est atteint