A voir également:
- Afficher ou masquer une colonne par rapport a une valeur
- Déplacer une colonne excel - Guide
- Masquer une conversation whatsapp - Guide
- Excel colonne a disparue ✓ - Forum Excel
- Figer une colonne excel - Guide
- Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
1 réponse
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
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