1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2010 Masquer colonne si plage entièrement vide

Discussion dans 'Forum Excel' démarrée par Elodie195, 19 Juin 2017.

  1. Elodie195

    Elodie195 XLDnaute Occasionnel

    Inscrit depuis le :
    4 Mai 2012
    Messages :
    117
    "J'aime" reçus :
    0
    Utilise:
    Excel 2013 (PC)
    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.
     

    Pièces jointes:

  2. Robert

    Robert XLDnaute Barbatruc

    Inscrit depuis le :
    20 Février 2005
    Messages :
    9420
    "J'aime" reçus :
    633
    Habite à:
    Sète
    Utilise:
    Excel 2010 (PC)
    Bonjour Élodie, bonjour le forum,

    Essaie comme ça :

    Code (Visual Basic):
    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
     
  3. Elodie195

    Elodie195 XLDnaute Occasionnel

    Inscrit depuis le :
    4 Mai 2012
    Messages :
    117
    "J'aime" reçus :
    0
    Utilise:
    Excel 2013 (PC)
    Bonjour Robert,

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

    Bonne journée.
     

Partager cette page