XL 2010 Masquer colonne si plage entièrement vide

[Elodie195]

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]

Bonjour Élodie, bonjour le forum,

Essaie comme ça :

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]

Bonjour Robert,

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

Bonne journée.