A voir également:
- Afficher ou masquer une colonne par rapport a une valeur
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier une colonne excel - Guide
- Masquer une conversation whatsapp - Guide
- Colonne word - Guide
1 réponse
via55
Messages postés
14502
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
9 décembre 2024
2 735
17 janv. 2013 à 16:55
17 janv. 2013 à 16:55
Bonjour
Une piste :
Supposons les en têtes de colonne en ligne 1
Insérer une ligne 2 (qui pourra être masquée définitivement par la suite)
Dans cette ligne faire faire la somme de chaque colonne, ainsi si la colonne ne contient que des valeurs nulles la somme sera 0
Inserer la macro suivante dans un module
Sub cache()
Dim dercolonne As Long
'recherche du numéro de la dernière colonne utilisée
dercolonne = Cells(1, 16000).End(xlToLeft).Column
'masquage/démasquage
For i = 1 To dercolonne
If Cells(2, i) = 0 Then Columns(i).Hidden = True Else Columns(i).Hidden = False
Next i
End Sub
Est-ce que tu voulais ?
Cordialement
Une piste :
Supposons les en têtes de colonne en ligne 1
Insérer une ligne 2 (qui pourra être masquée définitivement par la suite)
Dans cette ligne faire faire la somme de chaque colonne, ainsi si la colonne ne contient que des valeurs nulles la somme sera 0
Inserer la macro suivante dans un module
Sub cache()
Dim dercolonne As Long
'recherche du numéro de la dernière colonne utilisée
dercolonne = Cells(1, 16000).End(xlToLeft).Column
'masquage/démasquage
For i = 1 To dercolonne
If Cells(2, i) = 0 Then Columns(i).Hidden = True Else Columns(i).Hidden = False
Next i
End Sub
Est-ce que tu voulais ?
Cordialement
18 janv. 2013 à 10:02