XL 2019 Masquer colonne si cellules non remplies

LuanaDDC

XLDnaute Junior
Bonjour la communauté,

J'espère que vous allez bien.

Je viens vous solliciter pour un sujet probablement bâteau mais sur lequel je trouve des difficultés... :(

J'ai un fichier, ci-joint, avec plusieurs données et je souhaiterai que "SAMEDI" et "DIMANCHE" soient masquées dès lors que les cellules les concernant sont vides. De "AS" à "BH"

J'ai essayé une petite macro mais elle ne fonctionne pas ^^'.

Pourriez-vous s'il vous plait m'éclairer sur le sujet ?


En vous remerciant par avance et en vous souhaitant une belle fin de journée.
 

Pièces jointes

  • FOH - KIZEO - Macro.xlsm
    31.6 KB · Affichages: 11
Solution
Alors voyez le fichier joint et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("AS:AZ").Hidden = Application.CountA(Range("AS18:AZ" & Rows.Count)) = 0
Columns("BA:BH").Hidden = Application.CountA(Range("BA18:BH" & Rows.Count)) = 0
End Sub

job75

XLDnaute Barbatruc
Alors voyez le fichier joint et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("AS:AZ").Hidden = Application.CountA(Range("AS18:AZ" & Rows.Count)) = 0
Columns("BA:BH").Hidden = Application.CountA(Range("BA18:BH" & Rows.Count)) = 0
End Sub
 

Pièces jointes

  • FOH - KIZEO - Macro.xlsm
    31.7 KB · Affichages: 1

Statistiques des forums

Discussions
312 211
Messages
2 086 299
Membres
103 172
dernier inscrit
Aurelyan