Faire apparaître et dispparaître une cellule

Fermé

andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 21 juin 2018 à 10:08
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 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 !

A voir également:

Faire apparaître et dispparaître une cellule
Apparaitre hors ligne instagram - Guide
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Comment faire apparaître la tabulation sur word - Guide
Verrouiller cellule excel - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
21 juin 2018 à 10:58

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 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
21 juin 2018 à 11:22

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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
21 juin 2018 à 11:39

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

Discussions similaires

Bibliothèque

Excel si cellule contient texte alors...