Bonjour,
Déjà, je vais te montrer une petite simplification de ton code (issu de l'enregistrement de macro je suis sûr
: très bon réflexe) :
1 2 3 4
| Sub Casdoption11_QuandClic()
Range("ac17", "ae17").Interior.ColorIndex = 16
Range("a1").Select
End Sub |
Pour le changement de couleur, c'est le même principe mais au lieu de l'objet Interior, c'est l'objet font que tu vas utiliser comme ceci :
Range("ae17").Interior.ColorIndex = 26
+
Théo
PS : pense à utiliser les balises de code (bouton #) la prochaine fois
Partager