Liste déroulante qui masque et affiche des colonnes
Résolu/Fermé
MarineB63
Messages postés
33
Date d'inscription
mercredi 5 septembre 2012
Statut
Membre
Dernière intervention
10 février 2016
-
2 oct. 2014 à 07:03
Maurice - 6 oct. 2014 à 10:20
Maurice - 6 oct. 2014 à 10:20
A voir également:
- Liste déroulante qui masque et affiche des colonnes
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Appel masqué - Guide
- Comment faire des colonnes sur word - Guide
7 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
Modifié par Vaucluse le 2/10/2014 à 07:43
Modifié par Vaucluse le 2/10/2014 à 07:43
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
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
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
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
2 oct. 2014 à 08:09
2 oct. 2014 à 08:09
Pas de quoi
pour ce qui est de VBA, je pourrais probablement " bricoler" quelque chose, mais mes connaissances sont trop limitées pour que ce soit rationnel et professionnel,et je cède bien volontiers la place à des compétences sur CCM (et il y en a) bien plus efficaces qui ne manqueront pas d'intervenir sur ce sujet
Bonne route
Crdlmnt
pour ce qui est de VBA, je pourrais probablement " bricoler" quelque chose, mais mes connaissances sont trop limitées pour que ce soit rationnel et professionnel,et je cède bien volontiers la place à des compétences sur CCM (et il y en a) bien plus efficaces qui ne manqueront pas d'intervenir sur ce sujet
Bonne route
Crdlmnt
MarineB63
Messages postés
33
Date d'inscription
mercredi 5 septembre 2012
Statut
Membre
Dernière intervention
10 février 2016
3 oct. 2014 à 11:31
3 oct. 2014 à 11:31
Merci beaucoup quand même...! :)
Cordialement
Marine
Cordialement
Marine
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
2 oct. 2014 à 09:02
2 oct. 2014 à 09:02
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 :
4- Tester
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
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
Modifié par Vaucluse le 2/10/2014 à 10:18
Modifié par Vaucluse le 2/10/2014 à 10:18
Salut Pïjaku
.. et merci pour elle.
Pour ma part, vu mes limites en VBA j'avais pensé à quelque chose de moins performant, mais je donne quand même pour ceux qui comme moi, ne sont pas doués.
https://www.cjoint.com/?DJckb2ItE6r
le système utilise la cellule A2 pour afficher le mois et la cellule A1 pour évaluer le déplacement nécessaire à l'affichage.
Bien sur, ça ne fonctionne plus après Août puisque les mois ne sont pas nommés sur la ligne 3 dans le fichier.
bien amicalement
.. et merci pour elle.
Pour ma part, vu mes limites en VBA j'avais pensé à quelque chose de moins performant, mais je donne quand même pour ceux qui comme moi, ne sont pas doués.
https://www.cjoint.com/?DJckb2ItE6r
le système utilise la cellule A2 pour afficher le mois et la cellule A1 pour évaluer le déplacement nécessaire à l'affichage.
Bien sur, ça ne fonctionne plus après Août puisque les mois ne sont pas nommés sur la ligne 3 dans le fichier.
bien amicalement
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
2 oct. 2014 à 10:08
2 oct. 2014 à 10:08
Pour elle... De rien!
;-)
Je trouve ta solution intéressante car moins "complexe". Du coup ce sera plus facile à maintenir en cas d'erreur ou de bug futur.
En plus cela va laisser le choix MarineB63...
Amicalement
;-)
Je trouve ta solution intéressante car moins "complexe". Du coup ce sera plus facile à maintenir en cas d'erreur ou de bug futur.
En plus cela va laisser le choix MarineB63...
Amicalement
MarineB63
Messages postés
33
Date d'inscription
mercredi 5 septembre 2012
Statut
Membre
Dernière intervention
10 février 2016
3 oct. 2014 à 11:53
3 oct. 2014 à 11:53
Pour moi MERCI !!!!!!!!!! :)
Pijaku, votre solution est parfaite !!! elle réalise exactement ce que je voulais.....
Merci merci merci merci merci !!!!!
Le problème est donc résolu !
Bonne fin de journée à tous,
Marine
Pijaku, votre solution est parfaite !!! elle réalise exactement ce que je voulais.....
Merci merci merci merci merci !!!!!
Le problème est donc résolu !
Bonne fin de journée à tous,
Marine
Bonjour
Voir aussi avec un Select Case
http://cjoint.com/?3Jcl0Q3Jf4s
A+
Maurice
Voir aussi avec un Select Case
http://cjoint.com/?3Jcl0Q3Jf4s
A+
Maurice
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
2 oct. 2014 à 12:05
2 oct. 2014 à 12:05
Salut,
Voir aussi avec un Select Case
Oui également...
Solution facile à entretenir...
Trois solutions, c'est parfait non?
Voir aussi avec un Select Case
Oui également...
Solution facile à entretenir...
Trois solutions, c'est parfait non?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
MarineB63
Messages postés
33
Date d'inscription
mercredi 5 septembre 2012
Statut
Membre
Dernière intervention
10 février 2016
3 oct. 2014 à 11:37
3 oct. 2014 à 11:37
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
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
J'ais un peux jouer aver ton calendier
http://cjoint.com/?DJesqVnSkle
A toi de voir si ca te va
A+
Maurice
MarineB63
Messages postés
33
Date d'inscription
mercredi 5 septembre 2012
Statut
Membre
Dernière intervention
10 février 2016
6 oct. 2014 à 07:09
6 oct. 2014 à 07:09
Bonjour !!
effectivement tu t'es bien amusé avec mon calendrier !! Super intéressant comme idée...
Je retiens ton fichier car pour l'instant celui que j'ai finalisé avec l'idée de Pijaku est parti au "test" .
Merci beaucoup en tout cas :)
Bonne semaine !!!
Marine
effectivement tu t'es bien amusé avec mon calendrier !! Super intéressant comme idée...
Je retiens ton fichier car pour l'instant celui que j'ai finalisé avec l'idée de Pijaku est parti au "test" .
Merci beaucoup en tout cas :)
Bonne semaine !!!
Marine