Afficher/Maquer des colonnes Résolu/Fermé

Question

Bonjour, 

Je voudrais savoir s'il est possible de modifier des colonnes en fonction d'un menu déroulant ?

Je m'explique :

Admettons que j'ai une liste déroulante dans ma colonne A (Permis) avec 2 options (Oui / Non)
Je souhaiterais savoir s'il était possible de faire apparaître ou disparaître des colonnes en fonction du résultat (Si "Oui" dans la colonne A, alors la colonne demande la date d'obtention en B apparaît si "Non" elle reste masquée)
 
Merci par avance pour vos réponses

PS : Pour le moment il s'agit juste d'une question, je ne sais pas ce qu'il est possible de faire avec VBA, masquer des colonnes (.hide ?) ou les afficher (.unhide ? // .ShowAllData ?)
Si vous pensez que cela est possible je joindrais alors un fichier pour que ce soit plus simple

rEVOLV3r · Answer

Bonjour,

J'ai fais exactement cela pour un ami dernièrement, mais à l'aide de cases à cocher et non d'un menu déroulant.

Je peux vous expliquer en détail si cela vous intéresse.

Villette54 · Answer

Effectivement je suis très intéressé !

Je veux bien vos explications, mais je préfère vous prévenir je suis débutant en VBA.

Je vous joint un exemple de mon fichier afin que ce soit plus facile.

--> http://cjoint.com/data3/3GmoUjDNZQs.htm

Merci pour votre aide.

eriiic · Answer

Bonjour, Une proposition. L'affichage dépend de la ligne sélectionnée, ou bien seulement de la dernière sélection en B (activer l'un ou l'autre choix en mettant en commentaire la ligne de code avec une ') Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Column = 2 And Target.Row > 1 Then masquer (Target) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub ' choix 1 : sélection d'une ligne change l'affichage If Target.Row > 1 Then masquer (Cells(Target.Row, "B")) ' choix 2 : sélection en colonne B change l'affichage 'If Target.Column = 2 And Target.Row > 1 Then masquer (Target) End Sub Sub masquer(typeRDP As String) ' typeRDP="Blessure sans arrêt" : afficher L:M ' typeRDP="Blessure avec arrêt" : afficher L:O ' typeRDP= autres cas : masquer L:O Range("L:O").EntireColumn.Hidden = True Select Case typeRDP Case "Blessure sans arrêt" Range("L:M").EntireColumn.Hidden = False Case "Blessure avec arrêt" Range("L:O").EntireColumn.Hidden = False Case Else End Select End Sub Clic-droit sur le nom de l'onglet et choisir 'visualiser le code...' pour modifier. https://www.cjoint.com/c/CGmpYpFoSul eric Jamais tu ne répondras à un mp non sollicité... Bon, ça c'est fait.

Afficher/Maquer des colonnes

3 réponses

Discussions similaires

Newsletters