Masquer ligne si = 0
Bonjour,
le sujet existe sur le sujet de masquer une ligne si = 0
c'est pourquoi j'ai cela en code
Sub masquer_ligne_Vide()
Dim cel As Range
For Each cel In Range("V13:V157")
If cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End Sub.
Le code utiliser fonctionne très bien, mais j'aimerai de l'aide pour le modifier afin que le code s’exécute plus rapidement,
comme sur le fichier joint. Je ne n'ai pas réussi a adapter le code a mon fichier.
Merci d'avance
Bonjour,
Dans un premier essaie :
Public Sub masquer_ligne_Vide()
Dim cel As Range
Application.ScreenUpdating=False
For Each cel In Range("V13:V157")
If cel = 0 Then
cel.EntireRow.Hidden = True
End If
Next
End SubA te relire.
tout bêtement ^^.
Ça fonctionne merci beaucoup
Je dévalide le sujet, car j'avais une autre question, et je ne vais pas refaire un sujet.
Je voulais savoir si c’était possible d'appliquer la macro masquer ligne et afficher ligne sans bouton, qu'il se fasse automatiquement.
L'onglet ou sont masquer les lignes si elles sont a zéro sont les résultat d'autres onglets.
Si c'est pas très clair je ferai un modèle.
voila le code que j'ai mis
Sub masque()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Range("V13:V157")
If cel = 0 Then
cel.EntireRow.Hidden = True
ElseIf cel <> 0 Then
cel.EntireRow.Hidden = False
End If
Next
End Sub
Merci d'avance
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("V13:V157")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Call masque
End If
End Sub
J'ai testé avec cela, mais ça fonctionne pas, elle fonctionne uniquement quand je change une donnée manuellement dans la cellule.
Dans mon onglet les cellules change juste de résultat (fonction somme).
il faudrait exactement cela, mais que la macro voit que le résultat a changé