Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule et copie cette petite procédure. Dans la procédure, remplace G10 par l'adresse de la cellule où s'affiche le total.
'----------------------------------------------------- Private Sub Worksheet_Calculate() If Range("G10") = 0 Then Range("G10").EntireRow.Hidden = True Else Range("G10").EntireRow.Hidden = False End If End Sub '-----------------------------------------------------
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule et copie
cette petite procédure. Dans la procédure, remplace G10 par l'adresse de
la cellule où s'affiche le total.
'-----------------------------------------------------
Private Sub Worksheet_Calculate()
If Range("G10") = 0 Then
Range("G10").EntireRow.Hidden = True
Else
Range("G10").EntireRow.Hidden = False
End If
End Sub
'-----------------------------------------------------
Fais un clic droit sur l'onglet de la feuille où l'action se déroule et copie cette petite procédure. Dans la procédure, remplace G10 par l'adresse de la cellule où s'affiche le total.
'----------------------------------------------------- Private Sub Worksheet_Calculate() If Range("G10") = 0 Then Range("G10").EntireRow.Hidden = True Else Range("G10").EntireRow.Hidden = False End If End Sub '-----------------------------------------------------
