Code pour masquer ligne automatiquement

[SLIJACK]

bonjour!!
je suis un grand novice sur VBA.
j'ai créé un planning qui est alimenté par un autre fichier Excel et je voudrai masquer les lignes vide a partir de la valeur des cellules A37 à A628 = 0 et ré-afficher les lignes A37 à A628 si besoin.
dans le fichier original les cellules A37 à A628 contiennent une formule donc le résultat et 1,2 ou 0 donc si le résultat et 0 masquage de la lignes automatiquement ou par l'action d'un bouton.
j'ai déjà une macro sur le fichier mais cela ne fonctionne pas vraiment bien les masquage et très long et l'affichage dépasse les bornes de mon tableaux
en espérant être claire dans ma demande je vous remercie d'avance pour l'aide

 

[DoubleZero]

Re : Code pour masquer ligne automatiquement

Bonjour à toutes et à tous,

Bienvenue, SLIJACK, sur XLD 🙂 !

Une proposition en pièce jointe.

A bientôt.

 

[mth]

Re : Code pour masquer ligne automatiquement

Bonjour,

Dans le code que tu utilises, si tu bloques le rafraichissement de l'écran (Application.ScreenUpdating=False, et tu remets à True à la fin) cela va beaucoup plus vite:

Sub MasquerLignesVide()
' Macro réalisé par Excel-lent
Application.ScreenUpdating = False
    For i = [A638].End(xlUp).Row To 37 Step -1
 
        If Application.WorksheetFunction.CountBlank(Range(Cells(i, 2), Cells(i, 5))) = 4 Then
           Rows(i).EntireRow.Hidden = True
        End If
 
    Next i
Application.ScreenUpdating = True
End Sub

Bonne journée,

mth

Edit: oups... pas rafraichi ... Bonjour 00 🙂

 

[TempusFugit]

Re : Code pour masquer ligne automatiquement

Bonjour Mesdames, Messieurs


On peut aussi utiliser le filtre automatique (avec ou sans macro)

Ici avec macro

Sub MasquerLignes()
Rows("37:37").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
End Sub

En espérant que j'ai compris correctement la question.

 

[SLIJACK]

Re : Code pour masquer ligne automatiquement

Bonsoir
Tout abord merci pour vos réponses, une fois les macros transférés dans mon fichier d'origine les macros fonctionnent mais pour masquer c'est toujours très long.
la proposition de TempusFugit marche très bien, peux t’ont me dire comment faire pour ré-afficher les lignes masquées entre A37 et A638, merci a vous vos réponse mon fais avancer dans ma compréhension des codes VBA

 

[mth]

Re : Code pour masquer ligne automatiquement

Bonsoir,

Essaie avec cette ligne:

Rows("37:37").AutoFilter Field:=1

Bonne soirée,

mth

 

[SLIJACK]

Re : Code pour masquer ligne automatiquement

bonsoir mth,
un grand merci cela fonctionne nickel pour masquer et aussi pour ré-afficher