masquer ligne si somme=0

[Hamidexcel]

Bonjour

=====================
je veux masquer les lignes dont la somme est égale à 0
ou vide avec formule si(somme() =0;"")

cellule de AA9 à AA 850

===============================
avant d'crire ce message
j'ai cherché dans le forum
mais j'ai pas vraiment
trouvé la solution

exp
ligne 1 somme=0
ligne 2 somme =0


merci

 

[Robert]

Re : masquer ligne si somme=0

Bonjour Sihamidi, bonjour le forum,

Tu vas dire que je cherche Sihamidi à quatorze heures... Mais, la somme de quoi ? La somme de toutes les cellules de la ligne ? La somme des cellules des colonnes A à Z (avant AA) ? Pourrais-tu préciser et/ou mettre un petit exemple en pièce jointe.

 

[Hamidexcel]

Re : masquer ligne si somme=0

Voilà

je veux masquer les ligne dont la somme en colonne n =0

voir pièce jointe

merci

 

[JBARBE]

Re : masquer ligne si somme=0

Bonjour,

Avec cette macro par exemple !

Dim i As Integer

Sub Essai()
For i = 7 To 26
 If Cells(i, 6) = 0 Then
  Range(Cells(i, 1), Cells(i, 6)).EntireRow.Hidden = True
  Else
  Cells(i + 1, 6).Select
  End If
Next
End Sub

 

[Efgé]

Re : masquer ligne si somme=0

Bonjour sihamidi, Bonjour Robert , JBARBE
Une proposition pour masquer / afficher les lignes (et pas les supprimer)

Private Sub CommandButton1_Click()
Dim i&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CommandButton1.Caption = "Masquer les lignes" Then
    CommandButton1.Caption = "Afficher les lignes"
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        Rows(i).Hidden = Cells(i, 6) = 0
    Next i
Else
    CommandButton1.Caption = "Masquer les lignes"
    Rows.Hidden = False
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Le code est dans le code de la feuille.
Cordialement

 

[Hamidexcel]

Re : masquer ligne si somme=0

Rebonjour;


Merci à

JBARBE et à Efgé pour la réponse rapide

ça marche impeccable