Afficher ou masquer une colonne par rapport a une valeur
emilie
-
emilie -
emilie -
Bonjour,
je cherche a afficher ou masquer une colonne par rapport a une valeur de cette colonne.
je m'explique j'ai un tableau d'une soixantaine de colonne et beaucoup de ses valeurs sont nul mais elles peuvent changer. j'aimerais alors les masquer quand elles sont nulles et les afficher si elles changent!
suis je claire?
je cherche a afficher ou masquer une colonne par rapport a une valeur de cette colonne.
je m'explique j'ai un tableau d'une soixantaine de colonne et beaucoup de ses valeurs sont nul mais elles peuvent changer. j'aimerais alors les masquer quand elles sont nulles et les afficher si elles changent!
suis je claire?
A voir également:
- Afficher ou masquer une colonne par rapport a une valeur
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Masquer une conversation whatsapp - Guide
- Colonne word - Guide
- Excel additionner une colonne - Guide
1 réponse
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
emilie
merci beaucoup c'est exactement ce que je voulais! c'est génial
