Mise en forme d'une colonne par case à cocher

Bonjour j'ai besoin de votre aide pour faire un truc un peut trop complexe pour moi.

J'ai un tableau avec des données pour 3 groupes, chaque groupes comprend 2 colonnes chacun, Option 1 et Option 2.

A savoir que les données de la colonne option 1 sont les résultats d'un calcul fait avec les données de la colonne option 2

Je voudrais pouvoir grâce à une case à coche ou autre moyen pouvoir faire ressortir une colonne de chaque groupe en changeant ça mise en forme.

Option 1 activé:

les données des colonnes concernées sont en gras et plus gros

Option 2 activé:

les données des colonnes concernées sont en gras et plus gros, de plus les données des colonnes option 1 disparaissent (texte blanc sur fond blanc ou autre).

Je vous met un exemple avec le tableau dans les 2 états

(excel 2010)

Merci de votre aide

Bonjour,

Dans un module standard, tu colles le code ci-dessous et pour chaque case à cocher, clic droit puis affecter une macro et choisir "Formater" :

Sub Formater()

    Dim S As Shape

    Set S = ActiveSheet.Shapes(Application.Caller)

    Select Case S.Name
        Case "Check Box 1"
            With Range("C20:C31,E20:E31,G20:G31")
                .Font.Bold = IIf(S.ControlFormat.Value = 1, True, False)
                .Font.Size = IIf(S.ControlFormat.Value = 1, 14, 11)
            End With

        Case "Check Box 2"
            With Range("D20:D31,F20:F31,H20:H31")
                .Font.Bold = IIf(S.ControlFormat.Value = 1, True, False)
                .Font.Size = IIf(S.ControlFormat.Value = 1, 14, 11)
            End With

        Case "Check Box 3"
            With Range("C4:C15,E4:E15,G4:G15")
                .Font.Bold = IIf(S.ControlFormat.Value = 1, True, False)
                .Font.Size = IIf(S.ControlFormat.Value = 1, 14, 11)
            End With

        Case "Check Box 4"
            With Range("D4:D15,F4:F15,H4:H15")
                .Font.Bold = IIf(S.ControlFormat.Value = 1, True, False)
                .Font.Size = IIf(S.ControlFormat.Value = 1, 14, 11)
            End With

    End Select

End Sub

Oui ça marche merci mais lorsque l'on sélectionne l'option 2 les données de la colonne option 1 doivent disparaitre.

De plus pourquoi dans ton code tu t'occupes du 2eme tableau ? il n'est la que pour l'exemple du rendu désiré.

quel serait le code pour changer la couleur d'un colonne ?