Masquer et Afficher des zones de colonnes

[Amilo]

Bonsoir le forum,

J'ai un pb un peu corsé à réaliser en tout cas pour moi qui n'a pas de connaissance en VBA.

J'ai un tableau avec des zones de colonnes homogènes distinguées par les 12 mois de l'année.

Je souhaite comme schématisé dans mon fichier ci-joint, garder toujours les colonnes en vert et masquer tout le reste sauf le n° de mois saisie dans une cellule quelconque (ici cellule J1).

Et les refaire apparaître en cliquant sur le bouton "Afficher/Masquer". Tout ça dans le même onglet d'origine.

Je pense qu'il n' y a qu'en VBA qu'on peut effectuer une telle cette opération !!!

Faut-il créer noms pour chaque zone ??

Merci d'avance pour votre aide.

Cordialement

 

[Amilo]

Re : Masquer et Afficher des zones de colonnes

re
un peu plus pro:

Option Explicit
Dim CompteurDeColonne As Byte
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Cells.EntireColumn.Hidden = False
End If
If ToggleButton1.Value = False Then
Range("A1").Select
CompteurDeColonne = 16
Do Until ActiveCell.Offset(2, CompteurDeColonne) = ""
If Month(ActiveCell.Offset(2, CompteurDeColonne)) <> Range("J1") Then
ActiveCell.Offset(0, CompteurDeColonne).Columns("A:F").EntireColumn.Hidden = True
End If
CompteurDeColonne = CompteurDeColonne + 6
Loop
End If
End Sub

Bonsoir Jean-Marcel,

merci pour ton aide mais en affectant ton deuxième code ci-dessus à mon bouton, j'ai un message d'erreur "erreur de compilation" ...

Aurais-je mal effectuer une muvaise manipulation ??

Merci d'avance.

 

[Amilo]

Re : Masquer et Afficher des zones de colonnes

Ci joint le fichier

Désolé Jean-Marcel,

j'ai du m'absenter un instant et me revoilà, effectivement la macro fonctionne sans problème dans le fichier ex utilisé. Je testerai à nouveau sur le fichier d'origine.
J'étais allé sans doute un peu trop vite dans mon test !!!

Et mille merci

Bonne soirée.