Faire apparaître et dispparaître une cellule
andy2092
Messages postés
78
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
1 réponse
-
Bonjour,
Comme ceci:
If Rows("4:15").EntireRow.Hidden = False Then MsgBox "afficher" Range("B2").Font.ColorIndex = 2 Else MsgBox "masquer" Range("B2").Font.ColorIndex = xlAutomatic End If
adapter la plage de cellule ainsi que la cellule de titre
-
Super ! Par contre je le place où le code parce que quand je le mets dans "Selection change" je suis obligé de sélectionner le titre pour qu’il apparaisse ou disparaisse. Si je le mets dans "Change", ça ne fonctionne pas.
Ps : j'ai retiré les MsgBox parce que je souhaite que ça se fasse subtilement.
Merci -
Tu mets un bouton pour masquer ou afficher avec ce code:
Option Explicit Private Sub CommandButton1_Click() Rows("4:15").EntireRow.Hidden = False = Rows("4:15").EntireRow.Hidden = True test End Sub Sub test() If Rows("4:15").EntireRow.Hidden = False Then Range("B2").Font.ColorIndex = 2 Else Range("B2").Font.ColorIndex = xlAutomatic End If End Sub
voilà
@+ Le Pivert
-
