Evelynetfrancois
XLDnaute Impliqué
Bonjour tout le forum !
Nettoyage de printemps..........!!
Sur presque chaque bouton j'ai ce genre de macro, qui fonctionne, mais qui me semble bien, ""lourde""
Est il possible, de l alléger en écriture
((Le principe de cette macro est de faire apparaître en bleu l'optionbutton cliqué
et de griser tous les autres qui se trouvent dans le même frame ))
MERCI pour tout !!!
E et F
Private Sub OptionButton13_Click()
Range("F7").Value = "Activité ergo"
Range("H23").Value = " Aucune livraisons"
Range("H25").Value = " "
Range("G25").Value = " "
If OptionButton13.Value = True Then
OptionButton13.Font.Bold = True
OptionButton13.ForeColor = &HC00000
OptionButton1.Font.Bold = True
OptionButton1.ForeColor = &H808080
OptionButton2.Font.Bold = True
OptionButton2.ForeColor = &H808080
OptionButton3.Font.Bold = True
OptionButton3.ForeColor = &H808080
OptionButton4.Font.Bold = True
OptionButton4.ForeColor = &H808080
OptionButton5.Font.Bold = True
OptionButton5.ForeColor = &H808080
OptionButton6.Font.Bold = True
OptionButton6.ForeColor = &H808080
OptionButton19.Font.Bold = True
OptionButton19.ForeColor = &H808080
OptionButton20.Value = False
OptionButton20.Font.Bold = True
OptionButton20.ForeColor = &H808080
OptionButton21.Value = False
OptionButton21.Font.Bold = True
OptionButton21.ForeColor = &H808080
OptionButton22.Value = False
OptionButton22.Font.Bold = True
OptionButton22.ForeColor = &H808080
OptionButton9.Value = False
OptionButton9.Font.Bold = True
OptionButton9.ForeColor = &H808080
OptionButton10.Value = False
OptionButton10.Font.Bold = True
OptionButton10.ForeColor = &H808080
OptionButton18.Value = False
OptionButton18.Font.Bold = True
OptionButton18.ForeColor = &H808080
TextBox4.SetFocus
End If
End Sub
Nettoyage de printemps..........!!
Sur presque chaque bouton j'ai ce genre de macro, qui fonctionne, mais qui me semble bien, ""lourde""
Est il possible, de l alléger en écriture
((Le principe de cette macro est de faire apparaître en bleu l'optionbutton cliqué
et de griser tous les autres qui se trouvent dans le même frame ))
MERCI pour tout !!!
E et F
Private Sub OptionButton13_Click()
Range("F7").Value = "Activité ergo"
Range("H23").Value = " Aucune livraisons"
Range("H25").Value = " "
Range("G25").Value = " "
If OptionButton13.Value = True Then
OptionButton13.Font.Bold = True
OptionButton13.ForeColor = &HC00000
OptionButton1.Font.Bold = True
OptionButton1.ForeColor = &H808080
OptionButton2.Font.Bold = True
OptionButton2.ForeColor = &H808080
OptionButton3.Font.Bold = True
OptionButton3.ForeColor = &H808080
OptionButton4.Font.Bold = True
OptionButton4.ForeColor = &H808080
OptionButton5.Font.Bold = True
OptionButton5.ForeColor = &H808080
OptionButton6.Font.Bold = True
OptionButton6.ForeColor = &H808080
OptionButton19.Font.Bold = True
OptionButton19.ForeColor = &H808080
OptionButton20.Value = False
OptionButton20.Font.Bold = True
OptionButton20.ForeColor = &H808080
OptionButton21.Value = False
OptionButton21.Font.Bold = True
OptionButton21.ForeColor = &H808080
OptionButton22.Value = False
OptionButton22.Font.Bold = True
OptionButton22.ForeColor = &H808080
OptionButton9.Value = False
OptionButton9.Font.Bold = True
OptionButton9.ForeColor = &H808080
OptionButton10.Value = False
OptionButton10.Font.Bold = True
OptionButton10.ForeColor = &H808080
OptionButton18.Value = False
OptionButton18.Font.Bold = True
OptionButton18.ForeColor = &H808080
TextBox4.SetFocus
End If
End Sub