Afficher ou masquer des colonne en fonction des valeurs saisie dans une cellule
Résolu
SAYRO
Messages postés
154
Date d'inscription
Statut
Membre
Dernière intervention
-
SAYRO Messages postés 154 Date d'inscription Statut Membre Dernière intervention -
SAYRO Messages postés 154 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Masquer colonne excel en fonction d'une valeur
- Déplacer une colonne excel - Guide
- Trier colonne excel - Guide
- Fonction si et excel - Guide
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
1 réponse
Bonjour,
Faire Alt F11 pour accéder à l'éditeur
Allez dans le module de la Feuille1 et mettre ce code:
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
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
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