masquer des lignes dans une macro Fermé

Question

Bonjour, 
Après plusieurs lectures sur le forum, je n'arrive toujours pas à faire la macro dont j'ai besoin. 
Je veux faire : si dans chaque colonne j'ai un 0, je masque la ligne au complet.


et donc dans ce cas-ci, je ne verrais que les deux premières lignes. 

pour l'instant j'ai :
Sub Macro1()
'
' Masquer les lignes
'
If Range("C10:H30") = 0 Then
    Rows("10:30").Select
    Selection.EntireRow.Hidden = True
    End If
'

'Affiche les lignes
If Range("C10:H30") <> "0" Then
    Rows("19:30").Select
    Selection.EntireRow.Hidden = False
    End If
    
End Sub

ça ne marche pas quand j'essaye de l'éxécuter, ça me met un message d'erreur.

 je suis dans Excel 2010

Merci beaucoup d'avance

f894009 · Answer

Bonjour,

Je veux faire : si dans chaque colonne j'ai un 0

Tout a fait Thierry, mais il n'y a jamais 0 d'apres l'image de votre feuille!!!!!!!!!!

gbinforme · Answer

Bonjour,
 
Une possibilité avec ce code :
Public Sub Masquer_lignes()
Dim cel As Range
Const col = "C" ' colonne de test
Const deb = 10  ' ligne début tableau
    For Each cel In Cells(deb, 1).Resize(Cells(Rows.Count, col).End(xlUp).Row - deb).Cells
        If Application.Sum(Rows(cel.Row)) = 0 Then
            Rows(cel.Row).Hidden = True
        Else
            Rows(cel.Row).Hidden = False
        End If
    Next cel
End Sub

f894009 · Answer

Re,

Pouvez-vous mettre votre fichier a dispo?

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES

soit:  cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou:
'mon partage
https://mon-partage.fr/

Masquer des lignes dans une macro

3 réponses