Faire apparaître et dispparaître une cellule
1 réponse
-
ContributeurBonjour,
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 -
ContributeurTu 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
-
