XL 2013 Macro pour masquer automatiquement la collone

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2020

• #2

Bonjour,
Le problème n'est pas de masquer le colonnes. Le problème est de déterminer sur quel évènement ce masquage doit intervenir:
- Lors de la saisie d'une des 3 cellules ?
- Lors de l'enregistrement du classeur ?
- Lors de la désactivation de la feuille ?
- etc...

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 26 Octobre 2020

• #3

Bonjour,
la capture dont j'ai montré est une calendrier automatique, si un mois contient le jour 31, la colonne s'affiche. si non , elle se masque.

MErci

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Octobre 2020

• #4

Bonjour,
Je suppose qu'il y a du code VBA pour construire ce calendrier automatique.
C'est dans ce code qu'il faut intégrer le masquage des colonnes.
S'il n'y a pas de code, et que tout est manuel, il faut masquer manuellement.
On ne peut pas deviner ce qu'il y a dans un fichier qu'on n'a pas.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Octobre 2020

• #5

Bonjour lestoiles1, Dudu2,

Il y a peut-être des formules dans les cellules AE36 AF36 AG36.

Si oui dites-nous lesquelles.

A+

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 26 Octobre 2020

• #6

oui, j'ai trouvé la solution merci

 

Vote positif 0 Vote négatif

S

shynes

XLDnaute Nouveau

• 26 Octobre 2020

• #7

lestoiles1 à dit:

oui, j'ai trouvé la solution merci

Cliquez pour agrandir...

Salut, j'ai le même problème que toi. Peux-tu partager ta solution s'il te plait ?

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 27 Octobre 2020

• #8

Private Sub Worksheet_Calculate()
If Range("AD45") = "" Then Range("AD45").EntireColumn.Hidden = True Else Range("AD45").EntireColumn.Hidden = False
If Range("AE45") = "" Then Range("AE45").EntireColumn.Hidden = True Else Range("AE45").EntireColumn.Hidden = False
If Range("AF45") = "" Then Range("AF45").EntireColumn.Hidden = True Else Range("AF45").EntireColumn.Hidden = False
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Octobre 2020

• #9

Bonjour,

Eh oui lestoiles1, la macro se déclenche quand des formules se recalculent.

C'est pourquoi au post #5 je vous ai demandé s'il y en avait et lesquelles...

Et notez qu'il est plus simple d'écrire :

VB:

Private Sub Worksheet_Calculate()
Columns("AD").Hidden = Range("AD45") = ""
Columns("AE").Hidden = Range("AE45") = ""
Columns("AF").Hidden = Range("AF45") = ""
End Sub

A+

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 28 Octobre 2020

• #10

shynes à dit:

Salut, j'ai le même problème que toi. Peux-tu partager ta solution s'il te plait ?

Cliquez pour agrandir...

Private Sub Worksheet_Calculate()
If Range("AD45") = "" Then Range("AD45").EntireColumn.Hidden = True Else Range("AD45").EntireColumn.Hidden = False
If Range("AE45") = "" Then Range("AE45").EntireColumn.Hidden = True Else Range("AE45").EntireColumn.Hidden = False
If Range("AF45") = "" Then Range("AF45").EntireColumn.Hidden = True Else Range("AF45").EntireColumn.Hidden = False
End Sub

 

Vote positif 0 Vote négatif