Masquer des colonnes sous condition

Bonjour à tous,

Pour commencer, je vous souhaite une belle année 2014, pleine d'amis, de rires et de code qui fonctionne.

Je découvre le VBA et mouline un peu.

Je travaille sur un tableur qui présente des objectifs, avec un réalisé hebdo (à incrémenter à la main) et un cumul mensuel puis annuel (formules).

J'ai réussi plein de formules rigolotes, mais je pêche sur une chose :

Je voudrais masquer les colonnes correspondant à tous les mois de l'année sauf celui en cours. J'ai essayé via une formule trouvée ici en prenant comme variable le mois en cours (trouvé par un savant mélange de =aujourdhui() et de =texte(A1;"mmmm") ), et en essayent de comparer les cellules au mois (en texte)

Sub test()
'Macro Dan pour JP06 - 22/09/09
Dim cel As Range
For Each cel In Range("C10:Z10")
If cel = 0 Then
cel.EntireColumn.Hidden = True
Else: cel.EntireColumn.Hidden = False
End If
Next
End Sub

audacieusement modifiée comme suit :

Private Sub Worksheet_Activate()
'Macro Dan pour JP06 - 22/09/09
Dim cel As Range
For Each cel In Range("G1:BR1")
If cel = ("A3") Then                         'la où se situe mon mois en lettre
cel.EntireColumn.Hidden = False
Else: cel.EntireColumn.Hidden = True
End If
Next
End Sub

Et bien autant vous le dire, ca ne marche pas !

donc pouvez vous me faire part de votre savoir tellurique concernant les macros?

Merci d'avance, et bonne journée !

ps : merci à Dan pour son code qui m'a permis de faire mumuse, même si ca n'a pas marché.

Bonjour

Bonne année

Pour comparer essayes

Private Sub Worksheet_Activate()
'Macro Dan pour JP06 - 22/09/09
Dim cel As Range
For Each cel In Range("G1:BR1")
If cel = Range("A3") Then                         'la où se situe mon mois en lettre
cel.EntireColumn.Hidden = False
Else: cel.EntireColumn.Hidden = True
End If
Next
End Sub

Si pas ça

Salut banzai,

Vindiou, mais c'est que ca marche en plus!

Manque plus qu'a faire en sorte que la macro se lance a l'ouverture, mon instinct me souffle workbook_open!

Merci beaucoup pour ta reponse claire et rapide.

J'ai cependant une toute petite question: pourquoi range? (J'aime bien comprendre comment ca marche!)

Merci et bonne journee

Bonjour

Vilth a écrit :

pourquoi range?

Sacrée question existentielle

C'est comme ça , cela désigne la cellule