Afficher ou cacher des lignes/colones
Bonjour à tous,
alors voilà je dois créer un tableau Excel pour mon boulot qui servira à l'ensemble des services d'outil d'évaluation. Je souhaiterais savoir si c'est possible de cacher ou d'affiche des lignes/colonne selon la réponse sélection plus haut. Par exemple si on sélectionne lycéen à l'aide du menu déroulant les lignes "2nd, premier, terminal" s'affiche, si on sélectionne collégien ce sont les lignes "3e, 4e, 5e et 6e" m" qui s'affichent ?
Je ne sais pas si je suis clair et si c'est possible. J'ai essayé de chercher un peu dans les autres sujets du forum mais je n'ai pas trouvé ...
Merci d'avance pour vos réponses
Bonjour et bienvenue sur le forum
stessy.c a écrit :Je souhaiterais savoir si c'est possible de cacher ou d'affiche des lignes/colonne selon la réponse sélection plus haut.
Cela me semble possible.
Mais encore faut-il disposer de ton fichier pour te montrer.
Bye !
gmb a écrit :Bonjour et bienvenue sur le forum
stessy.c a écrit :Je souhaiterais savoir si c'est possible de cacher ou d'affiche des lignes/colonne selon la réponse sélection plus haut.
Cela me semble possible.
Mais encore faut-il disposer de ton fichier pour te montrer.
Bye !
Merci de votre réponse
Je vous joint mon fichier, sachant que j'ai déjà créer les cellules et les différents déroulants. Je souhaite que selon la réponse sélectionner, tel ou tel cellule apparaît.
Sur d'autre post on parle d'utiliser la fonction si ou les déroulant en cascade mais je ne sais pas comment faire.
Merci d'avance !
Bonjour,
Une proposition à voir :
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$B$2"
Me.[B3].ClearContents
Me.Rows(3).Hidden = (Me.[B2] <> "Flux")
Target.Select
Case "$B$4"
Me.[B5:B6].ClearContents
Me.Rows(5).Hidden = (Me.[B4] <> "Interieur")
Me.Rows(6).Hidden = (Me.[B4] <> "Exterieur")
Target.Select
Case "$B$11", "$B$12"
Me.Rows(12).Hidden = (Me.[B11] <> "Education Nationale")
If Me.Rows(12).Hidden Then
Me.[B12:B15].ClearContents
Me.Rows(13 & ":" & 15).Hidden = True
Else
Me.[B13:B15].ClearContents
Me.Rows(13).Hidden = (Me.[B12] <> "Primaire")
Me.Rows(14).Hidden = (Me.[B12] <> "College")
Me.Rows(15).Hidden = (Me.[B12] <> "Lycée")
End If
Target.Select
End Select
End Sub
dans le module de la feuille...
[NB-les masquages-démasquages provoquent dans certains cas l'apparition de la flèche de déroulement à la ligne en dessous, alors que la cellule active n'a pas changé et que la liste si on la déroule correspond bien à cette dernière, ce qui pourrait provoquer des erreurs dans les manipulations, d'où la re-sélection forcée de la cellule active pour l'éviter, en ramenant la flèche au bon niveau.]
Tu es un peu fâché avec les accents...
Super !! Merci beaucoup pour votre aide je n'aurais jamais été capable de trouver la solution moi même !
Oui moi et l'orthographe en générale on est pas très amis
Encore merci !!!