Liste déroulante qui masque et affiche des colonnes

Bonjour
et avec le volet bloqués sur la colonne F et un tableau des mois avec des liens hyper texte ne suffirait pas?

Voir ici en cliquant en haut à gauche sur les mois

https://www.cjoint.com/c/DJchPwvNFUM

Pour mettre en place ou modifier
__Lien hyper texte: clic droit sur la cellule du mois et "lien hyper texte" ou "modifier...."
__Blocage du volet: sélection colonne F et figer les volets
__zoom pour vision maxi d'un seul mois:
afficher janvier/sélectionner A1:AM10 et zoom ajusté à la sélection

C'est simple et basique, si ça ne convient pas, il faudra passer par VBA

crdlmnt

Errare humanum est, perseverare diabolicum

Bonjour Vaucluse,

merci pour cette proposition, malheureusement la place bloquée est déjà occupée.
D'où l'idée d'une liste déroulante pour limiter la prise de place !
Je vais tout de même garder l'idée des liens en mémoire, je la trouve très intéressante...

Merci pour l'astuce !

Si vous avez la possibilité de me proposer l'idée de la liste (cela me permettra d'apprendre aussi à la faire) car j'imaginais bien qu'elle allait fonctionner avec des VBA.

Cordialement,

Marine

Bonjour,

Salut Vaucluse, comment va?

Je veux bien prendre la suite...

1- Définir des noms pour toutes les plages de colonnes :
par exemple pour Janvier :
Sélectionner les colonnes entières de F à AM
Onglet Formules, cliquez sur définir un nom
nom : Janvier
fait référence à : =Feuil1!$F:$AM (déjà indiqué si colonnes sélectionnées)

Faire la même chose pour chaque mois, en changeant les plages bien entendu.

2- En C3 : Faire une liste des mois avec validation de données :
Onglet Données, cliquez sur Validation des données.
Autoriser : Liste
Source : saisir : Janvier;Février;Mars;Avril;Mai;Juin;Juillet;
!!!!!! Attention même orthographe que pour les noms définit avant...

3- Clic droit sur l'onglet de la feuille / Visualiser le code
copier/coller ces codes :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Noms As Name
'ne fonctionne qu'avec la cellule C3 :
If Target.Address <> "$C$3" Then Exit Sub
'Boucle sur tous les noms définis du classeur :
For Each Noms In ThisWorkbook.Names
  If Noms.Name = Target.Value Then
    Range(Noms.Name).EntireColumn.Hidden = False
  ElseIf Est_Une_Colonne(Noms.Value) Then
    Range(Noms.Name).EntireColumn.Hidden = True
  End If
Next
End Sub


Function Est_Une_Colonne(Adresse As String) As Boolean
Dim suffix As String, i As Byte
Est_Une_Colonne = True
suffix = Split(Adresse, "!")(1)
For i = 1 To Len(suffix)
  If IsNumeric(Mid(suffix, i, 1)) Then Est_Une_Colonne = False: Exit Function
Next i
End Function

4- Tester

Bonjour

Voir aussi avec un Select Case

http://cjoint.com/?3Jcl0Q3Jf4s

A+

Maurice

Bonjour à tous !!!

je suis désolée de ma réponse tardive mais les impondérables du travail m'ont fait mettre mon tableau de côté.
Je me replonge dessus dès maintenant et vais essayer les formules que vous avez eu la gentillesse de me proposer.

En tout cas je suis toujours aussi satisfaite de ce CCM parce que nous obtenons toujours des réponses rapides :)

Je vous tiens au courant des résultats !!

Merci

Marine

Bonjour

J'ais un peux jouer aver ton calendier

http://cjoint.com/?DJesqVnSkle

A toi de voir si ca te va

A+
Maurice

Bonjour

rectification d'un bug
& avec ouverture sur le mois en cours

http://cjoint.com/?0Jgkug43ucf

A+

Maurice