XL 2019 Masquer colonne si cellules non remplies

LuanaDDC · 26 Janvier 2023

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.

job75 · 26 Janvier 2023

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 · 26 Janvier 2023

Bonjour LuanaDDC,

LuanaDDC à dit:
je souhaiterai que "SAMEDI" et "DIMANCHE" soient masquées dès lors que les cellules les concernant sont vides.

A partir de la ligne 19 et dessous ?

A+

LuanaDDC · 26 Janvier 2023

Bonjour job75,

Merci pour ta réponse.

Du coup le fichier est rempli à partir de la ligne 18

A+

job75 · 26 Janvier 2023

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

LuanaDDC · 30 Janvier 2023

Merci !

XL 2019 Masquer colonne si cellules non remplies

LuanaDDC

XLDnaute Junior

Pièces jointes

job75

job75

XLDnaute Barbatruc

LuanaDDC

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

LuanaDDC

XLDnaute Junior

Discussions similaires