Masquer Lignes sous 2 Conditions

Bonjour,

J'ai un soucis quant à l'effacement des lignes comportant des sommes, la macro marche bien en me laissant les sommes qui ne sont pas nulles, en revanche, cela me laisse le total qui est égal à Zéro, voir JPG.

Pourquoi mon 2ème "For" ne marche pas?

Es-ce possible de la faire marcher en automatique dès que l'on clique sur la feuille?

Je vous remercie beaucoup.

Sub Masque()

Application.ScreenUpdating = False

Rows("8:627").Hidden = False

For i = 627 To 8 Step -1

If Cells(i, 3) & Cells(i, 4) = "" Then Rows(i).Hidden = True

Next

For i = 627 To 8 Step -1

If Cells(i, 3) & Cells(i, 4) = "0" Then Rows(i).Hidden = True

Next

CreateObject("Wscript.shell").Popup " Affichage, Masquage Oki", 10, "INFO"

End Sub

Bonjour

Essayes cela (sans garantie : Pas de fichier pour tester)

Sub Masque()
  Application.ScreenUpdating = False
  Rows("8:627").Hidden = False
  For i = 627 To 8 Step -1
    If (Cells(i, 3) & Cells(i, 4) = "") Or _
       (Cells(i, 3) = 0 And Cells(i, 4) = 0) Then Rows(i).Hidden = True
  Next

  CreateObject("Wscript.shell").Popup " Affichage, Masquage Oki", 10, "INFO"
End Sub

[quote="VINCENT31300"]

Es-ce possible de la faire marcher en automatique dès que l'on clique sur la feuille?

[quote]

Oui mais cela risque d'être pénalisant car à chaque mouvement du curseur il va refaire toute la macro

Je te remercie beaucoup, la macro fonctionne très bien.

En revanche,

Oui mais cela risque d'être pénalisant car à chaque mouvement du curseur il va refaire toute la macro

Alors, c'est une option que j'abandonne.

Cordialement, Vincent.

Bonjour

A mon avis oui (mais faut essayer)

Dès que tu vas bouger le curseur il va afficher les lignes et les masquer

Clic droit sur l'onglet de la page concernée---> Visualiser le code, et tu y colles cette macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  Masque
End Sub