XL 2010 Supprimer lignes à 0 sur plusieurs colonnes

[malou1006]

Bonsoir,

J'ai un fichier dans lequel j'ai des colonnes de 2018 à 2022 mais pour certaines lignes il y a des 0 mais pas dans chaque colonne.

Je cherche un moyen pour supprimer les lignes qui sont à 0 de 2018 à 2022 par exemple les lignes des comptes 62118 et 6214 doivent être supprimées et celle du 62141 doit rester.

Pourriez-vous m'aider je ne trouve pas de solutions.

PS : je suis sur Excel 2010

Merci à tous

 

[sylvanu]

Bonjour Malou,
Difficile de répondre sur une image.
D'où deux solutions :
- On se retape le fichier pour pouvoir tester.
- On attend un fichier représentatif et anonyme.

 

[Staple1600]

Bonjour @malou1006

Deux questions
1) Ne pas afficher les valeurs 0 ne ne suffit pas ?

2) Tu veux supprimer les lignes ou les masquées?

PS: Si tu joignais un extrait allégé et anonymisé de ton fichier (donc un fichier Excel) se serait plus simple pour faire des tests
(Avec une image, on ne peut rien faire : ni formules, ni macro)

EDITION: Bonjour @sylvanu

 

[malou1006]

Bonjour @malou1006

Deux questions
1) Ne pas afficher les valeurs 0 ne ne suffit pas ?

2) Tu veux supprimer les lignes ou les masquées?

je voudrais les supprimer

 

[malou1006]

Bonjour @malou1006

Deux questions
1) Ne pas afficher les valeurs 0 ne ne suffit pas ?

2) Tu veux supprimer les lignes ou les masquées?

PS: Si tu joignais un extrait allégé et anonymisé de ton fichier (donc un fichier Excel) se serait plus simple pour faire des tests
(Avec une image, on ne peut rien faire : ni formules, ni macro)

EDITION: Bonjour @sylvanu

 

[malou1006]

Bonjour Malou,
Difficile de répondre sur une image.
D'où deux solutions :
- On se retape le fichier pour pouvoir tester.
- On attend un fichier représentatif et anonyme.

Désolée

 

[Staple1600]

Re

@malou1006
En ajoutant une colonne supplémentaire avec cette formule
=NB.SI(C2:F2;0)=4
( à recopier vers le bas)
Ensuite sur cette colonne, on applique un filtre automatique avec comme critère : VRAI
Il suffit ensuite de supprimer les lignes filtrées.

NB: Si le volume de lignes est plus conséquent que ton exemple, on peut utiliser une macro pour se simplifier la tâche.

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub SuppLignes()
    Application.ScreenUpdating = False                  ' On fige l'écran
    DL = [A65000].End(xlUp).Row                         ' Dernière ligne de Résultat
    f = "=SI(SOMME(D2:G2)=0;CAR(1);0)"                  ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A."
    With Range("ZZ2:ZZ" & DL)                             ' Plage où coller la formule en colonne A qui sera triée
        .FormulaLocal = f                               ' Coller formule
        .EntireRow.Sort .Cells, xlDescending            ' Tri pour regrouper et accélérer
        .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete  ' Suppression des lignes concernées
        .ClearContents                                  ' Effacement colonne formules
    End With
    Columns.AutoFit                                     'Ajustement largeurs colonnes
    With ActiveSheet.UsedRange: End With                'Ajustement barres de défilement
    [A1].Select
End Sub

 

[malou1006]

Re

@malou1006
En ajoutant une colonne supplémentaire avec cette formule
=NB.SI(C2:F2;0)=4
( à recopier vers le bas)
Ensuite sur cette colonne, on applique un filtre automatique avec comme critère : VRAI
Il suffit ensuite de supprimer les lignes filtrées.

NB: Si le volume de lignes est plus conséquent que ton exemple, on peut utiliser une macro pour se simplifier la tâche.

oui j'avais plus de 250 lignes mais ça va c'est top merci beaucoup et bonne soirée

 

[malou1006]

Re,
Un essai en PJ avec :

Sub SuppLignes()
    Application.ScreenUpdating = False                  ' On fige l'écran
    DL = [A65000].End(xlUp).Row                         ' Dernière ligne de Résultat
    f = "=SI(SOMME(D2:G2)=0;CAR(1);0)"                  ' Formule utilisée. Attention ajouter 1 aux colonnes pour compenser nouvelle colonne en A."
    With Range("ZZ2:ZZ" & DL)                             ' Plage où coller la formule en colonne A qui sera triée
        .FormulaLocal = f                               ' Coller formule
        .EntireRow.Sort .Cells, xlDescending            ' Tri pour regrouper et accélérer
        .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete  ' Suppression des lignes concernées
        .ClearContents                                  ' Effacement colonne formules
    End With
    Columns.AutoFit                                     'Ajustement largeurs colonnes
    With ActiveSheet.UsedRange: End With                'Ajustement barres de défilement
    [A1].Select
End Sub

c'est top aussi plus rapide forcément via VB. Merci beaucoup et bonne soirée

 

[sylvanu]

Oups ! Staple a raison, on pourrait avoir une somme nulle avec des valeurs non nulles ( 10 -10 50 -50 )
Donc c'est plus intelligent de passer par un NB.SI.

 

[malou1006]

Oups ! Staple a raison, on pourrait avoir une somme nulle avec des valeurs non nulles ( 10 -10 50 -50 )
Donc c'est plus intelligent de passer par un NB.SI.

j'avais fait avec NB.SI mais j'avais pas essayé sur mon fichier à 250 lignes qui a en effet des valeurs non nulles

 

[job75]

Bonjour à tous,

Autre solution :

Sub Supprimer()
Dim ncol%, i&, flag As Boolean, v#, j%
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    ncol = .Columns.Count
    For i = .Rows.Count To 1 Step -1
        flag = False
        v = 0
        For j = 3 To ncol
            If IsNumeric(CStr(.Cells(i, j))) Then flag = True: v = v + Abs(.Cells(i, j))
        Next j
        If flag And v = 0 Then .Rows(i).Delete xlUp
    Next i
End With
End Sub

A+