Masquer des colonnes dans calendrier excel

Résolu
Utilisateur anonyme -  
LatelyGeek Messages postés 1759 Statut Membre -
Bonjour,
j'ai crée un calendrier/planning sous excel avec un mois par feuille.
Dans la colonne A, j'ai les noms des employés.
Dans la ligne 3, j'ai les jours qui s'affichent automatiquement, en fonction des dates saisies en ligne 4.
J'ai fais une formule dans les cellules correspondant aux dates 29, 30 et 31 afin qu'elles s'affichent en fonction du mois. J'ai donc pour le mois de février, par exemple, les dates jusqu'au 29 (pour cette année) et pour mars jusqu'au 31.
Je voudrais que les colonnes correspondant au 30 et 31 (pour février) se masquent automatiquement pour que mon tableau se finisse au 29, et ainsi de suite pour les autres mois.
Quelqu'un aurait-il une solution à me proposer?
Merci de votre aide

2 réponses

Réponse 1 / 2
LatelyGeek Messages postés 1759 Statut Membre 550
 
Bonjour,

qu'appelles-tu "masquer les colonnes"??? Si tu as mis une formule, elles sont vides de toute façon, non? A moins que tu ne parles des bordures, auquel cas tu devrais y mettre une mise en forme conditionnelle.

Pour toute ta colonne AD (qui doit correspondre au 29) tu choisis Format, Mise en forme conditionnelle
Condition1
La formule est
=AD$1 <>""

Et tu mets tes bordures par l'intermédiaire du bouton Format.

C'est plus simple et moins lourd que du VB...

0
Utilisateur anonyme
 
Merci pour ta réponse,
mais en fait, j'ai oublié de dire que j'avais une colonne après celle du 31 que je veux garder. C'est pourquoi, je voulais masquer les colonnes 29, 30 ou 31, comme quand on fait "clic droit", "masquer". Je veux éviter de le faire manuellement tous les mois.
En plus, je n'ai pas les mêmes bordures sur toute la colonne et j'ai certaines cellules ombrées.
C'est quoi du VB?
0
Réponse 2 / 2
LatelyGeek Messages postés 1759 Statut Membre 550
 
VB comme Visual Basic, langage de programmation qui permettrait de faire exactement ce que tu veux..

Comme ça:



Tu crées ta feuille de base avec les formules qui laissent les 29/30/31 éventuellement vides
Tu affiches la barre d'outils Formulaires, tu choisis l'outil Bouton de Commande.
Tu le positionnes qielque part dans ta feuille
Tu cliques sur le bouton Nouvelle de la boîte de dialogue qui apparaît
Et tu rajoutes ce que je mets en gras:

Sub Bouton1_QuandClic()

If Range("AE3").Value = "" Then Columns("AE:AE").Hidden = True
If Range("AF3").Value = "" Then Columns("AF:AF").Hidden = True
If Range("AD3").Value = "" Then Columns("AD:AD").Hidden = True

End Sub

Ceci en espérant que:
- Je ne me sois pas trompée quant aux références des colonnes
- Tu aies bien laissé à vide les colonnes du bout (Pas d'espace ni de zéro)
0