VB excel - masquer / afficher des colonnes
Résolu
oganouo
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
oganouo Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
oganouo Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VB excel - masquer / afficher des colonnes
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Comment faire des colonnes sur word - Guide
- Liste déroulante excel - Guide
3 réponses
Bonjour,
Je propose le code VB suivant :
On suppose que les colonnes vont de 1 à 24 et on teste si le mois dans l'entête de colonne est le même que le mois courant. Tant que ce n'est pas le mois courant on cache les colonnes puis on affiche et ensuite on cache à nouveau.
Cordialement,
Je propose le code VB suivant :
Dim CACHER As Boolean
Dim ICOL As Integer
CACHER = True
For ICOL = 1 To 24
If Month(Now) = Month(Cells(1, ICOL)) Then
Columns(ICOL).EntireColumn.Hidden = False
CACHER = Not (CACHER)
Else
Columns(ICOL).EntireColumn.Hidden = CACHER
End If
Next ICOL
On suppose que les colonnes vont de 1 à 24 et on teste si le mois dans l'entête de colonne est le même que le mois courant. Tant que ce n'est pas le mois courant on cache les colonnes puis on affiche et ensuite on cache à nouveau.
Cordialement,