Microsoft 365 Afficher ou Masquer Colonne

sousou

XLDnaute Barbatruc

• 19 Novembre 2019

• #2

Bonsoir
Tu ne nous dit pas dans quelle feuille cela se passe!
mais essai ceci code dans la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$4" Then
If Target = "" Then
Columns(13).Hidden = True
Else
Columns(13).Hidden = False
End Sub

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 19 Novembre 2019

• #3

Oups désolé,

alors la feuille c'est "échéancier", j'ai mis m4 pour exemple mais il faudrait que cela fonctionne pour toutes les colonnes et il y en a beaucoup (environ 700) potentiellement.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Novembre 2019

• #4

il faut controler tes colonnes essai comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Target.Column > 5 And Target.Column < 700 Then
Columns(Target.Column).Hidden = True

End If
Else
Columns(Target.Column).Hidden = False
End If
End Sub

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 19 Novembre 2019

• #5

Ca ne fonctionne pas quand je change la date dans ma liste déroulante mais uniquement quand je modifie une cellule autre de plus il m'indique une "erreur de compilation", "else sans if"!!!

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Novembre 2019

• #6

Effectivement c'est pas good
Veux -tu que toutes les colonnes ou la ligne 4 est vide soient masquée?

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 19 Novembre 2019

• #7

Oui c'est ce que j'aimerais

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Novembre 2019

• #8

tu parles bien de 700colonnes?

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 19 Novembre 2019

• #9

oui

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 19 Novembre 2019

• #10

meme s'il n'y aura pas 700 colonnes à masquer mais seulement certaines

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 19 Novembre 2019

• #11

Regarde ceci
Il faut affecter chaque listbox à la macro changement
j'ai mis 150 colonnes à toi de modifier.
A voir si ca peux convenir

 

Pièces jointes

• test affichage colonnes-1.xlsm

  625.7 KB · Affichages: 9

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 20 Novembre 2019

• #12

Bonjour,
Merci beaucoup cela fonctionne à merveille!!!
Si j'osais je te demanderais bien comment masquer des colonnes par exemple si nous sommes le 1er mars 2020, masquer le mois de janvier, si nous sommes le 1er avril masquer février etc...

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 20 Novembre 2019

• #13

Questions! (on est le 1 avril)
1/tu veux que tous les colonnes avant mars soient masquer c'est à dire janvier et février ou seul février.
2/ est-ce que tu veux masquer la colonnes comportant le nom du mois : ex (colonne d, o....)
Ci joint un essai avec la macro masque mois, à voir comment tu veux l'utiliser

 

Pièces jointes

• test affichage colonnes-2.xlsm

  626.8 KB · Affichages: 6

Dernière édition: 20 Novembre 2019

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 20 Novembre 2019

• #14

l'idéal serait qu'au 1er mars 2021 toutes les colonnes de janvier 2020 à janvier 2021 soient masquées, puis au 1er avril toutes soient masquées de janvier 2020 à février 2021, qu'il ne reste que le mois -1 d'affiché.
J'espère être assez clair!!!
Merci beaucoup pour ton aide.
Eric

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 20 Novembre 2019

• #15

La difficulté, est que la notion d'année n'existe pas réellement dans tes données (ligne 6)
tu notes janvier février..... janvier, février,
Il faudrait que tu remplaces le mois par une date au format mois 1/1/2019,1/2/2019.....
dans ce cas la macro fournit dans le fichier fonctionnerai en modifiant quelques trucs.
Mais je ne sais pas si ca peut perturber le reste de tes formule?

 

Vote positif 0 Vote négatif