Afficher ou masquer des colonne en fonction des valeurs saisie dans une cellule

Résolu/Fermé

SAYRO Messages postés 154 Date d'inscription mardi 6 mars 2018 Statut Membre Dernière intervention 7 septembre 2022 - 17 oct. 2019 à 14:29
SAYRO Messages postés 154 Date d'inscription mardi 6 mars 2018 Statut Membre Dernière intervention 7 septembre 2022 - 4 nov. 2019 à 16:18

Bonjour à tous,

J'aurais besoin d'une astuce qui me permet de faire afficher ou masquer des colonnes en fonction d'une valeur saisie dans une cellule

Exemple j'ai dans les cellules de la feuille 2 des données à savoir

Dans A2 : trimestre 1 / B2 : Trimestre 2 / C2 : Trimestre 3 / D2 : Semestre 1

Quand je saisie Trimestre dans la cellule B2 de la feuille 1 je souhaite que les colonne A, B et C se masquent et n'afficher que la colonne D et quand je saisie Semestre dans la cellule B2 de la feuille 1 la colonne D se maque et n'afficher que les colonne A, B et C

Pourriez vous m'aider ?

Je vous remercie par avance

Cordialement

Configuration: Windows / Chrome 77.0.3865.120

A voir également:

Masquer des colonnes en fonction de la valeur d'une cellule
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
Fonction si et - Guide
Aller à la ligne dans une cellule excel - Guide
Renseigner cellule en fonction de la valeur d'une autre cellule ✓ - Forum Excel
Masquer conversation whatsapp - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 oct. 2019 à 14:57

Bonjour,

Faire Alt F11 pour accéder à l'éditeur

Allez dans le module de la Feuille1 et mettre ce code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Target.Value = "" Then Exit Sub
If Target.Value = "Trimestre" Then
  Sheets("Feuil2").Columns("A:C").EntireColumn.Hidden = True
 Sheets("Feuil2").Columns("D:D").EntireColumn.Hidden = False
   ElseIf Target.Value = "Semestre" Then
  Sheets("Feuil2").Columns("A:C").EntireColumn.Hidden = False
 Sheets("Feuil2").Columns("D:D").EntireColumn.Hidden = True
End If
End If
End Sub

SAYRO Messages postés 154 Date d'inscription mardi 6 mars 2018 Statut Membre Dernière intervention 7 septembre 2022 2
21 oct. 2019 à 11:02

Bonjour,

Je vous remercie pour votre aide c'est fort aimable

J'ai toutefois 3 petites questions :

1- Comment dois-je faire afin de masquer des lignes au lieu des colonnes "Il suffit juste de remplacer Columns par rows ??)

2 - Comment je fais dans le cas où mes colonnes ne sont pas l'une au coté de l'autre ? C-à-d si je veux masquer ou afficher A et D et L comment je ferai ?

3- Comment je fais pour afficher et masquer des colonnes sur plusieurs onglets "recopier la partie où on déclare les feuilles et puis remplacer les noms à chaque fois ?

Merci beaucoup

Bonne journée

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
21 oct. 2019 à 11:27

pour 1 voir ceci:

https://forums.commentcamarche.net/forum/affich-36255489-afficher-masquer-des-lignes-en-fonction-d-une-cellule-liste-deroulante#5

pour 2 se servir de l’enregistreur de macro

pour 3 c'est exactement cela

vous avez tout compris!

@+ Le Pivert

SAYRO Messages postés 154 Date d'inscription mardi 6 mars 2018 Statut Membre Dernière intervention 7 septembre 2022 2
4 nov. 2019 à 16:18

Merci Beaucoup !

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel : si ma cellule contient tel texte ou tel texte

Remplir une cellule (texte) en fonction d'une autre (texte).

Masquer une colonne selon le contenu d'une cellule

calculer le nombre de valeurs uniques avec conditions excel

Discussions similaires

Newsletters