Bascule entre les différents mois de l'année

Bonjour à tous,

Je cherche à créer un planning avec en ligne 2 :

- 3 colonnes fusionnées C (3) à E (+2) pour le mois de Janvier,

- 3 colonnes fusionnées F (6) à H (+2) pour février,

- etc... jusqu'à 3 colonnes fusionnées AJ à AL (38) pour décembre

En cliquant sur l'un des 12 mois (et uniquement là...) j'aimerai mettre le background et la font de la sélection en couleur et retourner la valeur en ligne 3, colonnes fusionnées C (3) à AL (38)

Evidemment, si je sélectionne un nouveau mois, j'aimerai que le mois précédemment sélectionné soit en couleur de background et font réinitialisées.

Sauriez-vous me dire comment coder cela en vba svp ?

Icing on the cake, est-il possible que cela se fasse sur un simple click ou est-qu'il faut passer nécessairement par un double click ?

Merci par avance

Cordialement

Bonsoir

Voici un extrait du fichier simplifié

13planning-resa.xlsm (14.54 Ko)

Merci par avance pour toute votre aide

Thierry

Bonjour,

Normalement, le code ci-dessous devrait répondre à ton attente.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("C2:AJ2")) Is Nothing Then
        Cells.Font.ColorIndex = 1
        Cells.Interior.Pattern = xlNone
        Range("C3") = Target.Cells(1, 1)
        Target.Font.ColorIndex = 3
        Target.Interior.ColorIndex = 6
    End If

End Sub

Cordialement.

Mille merci @Yvouille

C'est très précisément le fonctionnement que je souhaitais

Je place le post en résolu

Rechercher des sujets similaires à "bascule entre differents mois annee"