Faire apparaître et dispparaître une cellule [Fermé]

Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6422
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
6 décembre 2019
- 21 juin 2018 à 11:39
Bonjour,

J'ai une plage avec des données groupées avec un titre au dessus. Je souhaiterai que quand cette plage est visible, le titre dispparaît est vice versa.

Voici une illustration :



Est-ce possible ?

Merci !
Afficher la suite 

1 réponse

Messages postés
6422
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
6 décembre 2019
420
0
Merci
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
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019
-
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
cs_Le Pivert
Messages postés
6422
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
6 décembre 2019
420 -
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