XL 2010 Masquer colonne si plage entièrement vide

Elodie195 · 19 Juin 2017

Bonjour,

Je sollicite votre aide pour une macro Excel.
J'ai un tableau qui va de A à T et jusqu'à la ligne 35.
Les colonnes qui nous intéressent sont celles de G à S.

Je souhaiterais que les colonnes entièrement vide (plage : ligne 16 à 35) se masquent toutes seules.
Si une valeur est présente sur une seule de ces colonnes on la laisse visible.

Dans l'exemple ci joint, cela doit masquer uniquement les colonnes M et O.

Merci pour votre aide.

Bonne journée.

Robert · 19 Juin 2017

Bonjour Élodie, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim COL As Byte 'déclare la variable COL (COLonne)

For COL = 7 To 19 'boucle sur les colonne 7 à 19 (=> colonnes G à S)
  'si le nombre de valeurs dans la plage des ligne 16 à 35 de la colonne COL est égal à 0, masque le colonne COL
  If Application.WorksheetFunction.CountA(Range(Cells(16, COL), Cells(35, COL))) = 0 Then Columns(COL).Hidden = True
Next COL 'prochaine colonne de la plage
End Sub

Elodie195 · 19 Juin 2017

Bonjour Robert,

C'est exactement ce que je souhaitais.
Merci beaucoup pour votre aide.

Bonne journée.

XL 2010 Masquer colonne si plage entièrement vide

Elodie195

XLDnaute Occasionnel

Pièces jointes

Robert

XLDnaute Barbatruc

Elodie195

XLDnaute Occasionnel

Discussions similaires