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

almoha

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

Fichiers joints

Staple1600

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

almoha

XLDnaute Nouveau
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 ;)
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas