Changement de couleur d'ecriture grace a boutons d'option

salut

j'ai deux option button (ils sont Form controls et non ActiveX) un pour oui et pour non

je voudrais qu'en cliquant sur oui ça change la couleur de plusieurs cellules en noir, et en cliquant sur non ça change les cellules en blanc

j'ai mis ces 2 macros dans un module, mais ça ne fonctionne pas (message d'erreur de syntaxe qui dit que je ne peux pas mettre "else" car il n'y a pas "if"...)

Sub optionButton28_Click() 'oui

If OptionButton28.Value = True Then Range("K21:021").Cells.Font.ColorIndex = 1

Else

If OptionButton28.Value = False Then Range("K21:021").Cells.Font.ColorIndex = 2

End If

End Sub

Sub optionButton29_Click() 'non

If OptionButton29.Value = True Then Range("K21:021").Cells.Font.ColorIndex = 2

Else

If OptionButton29.Value = False Then Range("K21:021").Cells.Font.ColorIndex = 1

End If

End Sub

c'est sûrement très simple mais je n'y arrive pas...

Bonjour,

Sub optionButton28_Click() 'oui
If OptionButton28.Value Then 
  Range("K21:021").Cells.Font.ColorIndex = 1
Else
  Range("K21:021").Cells.Font.ColorIndex = 2
End If
End Sub

Bonsoir,

Je verrai bien le code de cette façon :

Sub Colorer()

    With ActiveSheet.Shapes(Application.Caller)

        If .Name = "optionButton28" And .ControlFormat.Value = 1 Then
            Range(Cells(21, 11), Cells(21, 15)).Cells.Font.ColorIndex = 1
        Else
             Range(Cells(21, 11), Cells(21, 15)).Cells.Font.ColorIndex = 2
        End If

    End With

End Sub

Il te faut affecter le code aux deux boutons d'option (clic droit sur chacun d'eux et "Affecter une macro") et le premier doit surtout ce nommer "optionButton28" (voir dans la zone de nom en haut à gauche après l'avoir sélectionné avec un clic droit) sinon, adapter !

Ton 3e sujet sur la même question !

C'est laborieux !

Tant que tu ne sais pas faire fonctionner les solutions qu'on te fournit, ça n'avancera pas... il y a quelques bases minimales à acquérir !

A quand le 4e sujet sur la même question ?

quand j'ai cliqué sur oui ça a effectivement colorié en blanc l'écriture des cellules

mais lorsque j'ai cliqué sur l'autre bouton d'option (non), ça n'a pas colorié en noir.. et ça reste blanc toujours

avez-vous modifier le code de la macro Sub optionButton29_Click()

tel que j'ai modifié celui de la macro Sub optionButton28_Click() ?

oui

et ça met la ligne en jaune: If OptionButton38.Value Then

la macro de Theze fonctionne partiellement (change une couleur mais ensuite ne remet pas l'autre couleur)

l'autre continue de mettre en jaune cette ligne: If OptionButton38.Value Then

Re,

As-tu affecté la macro aux deux boutons d'option ?

THEZE, ça fonctionne, merci bcp!!!!