XL 2010 Créer boutons qui colorie une cellule sélectionnée.

[DAVID-44-]

Bonjour à tous,
Je souhaiterais créer des boutons qui colorient avec une police en blanc une cellule sélectionnée.
Je sélectionne la cellule "B4" et en cliquant sur le bouton bleu, la cellule avec le numéro "2" se transforme comme dans l'exemple (fichier joins).
Pour la cellule "B7", je clique sur le bouton rouge, etc.
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[Eric C]

Bonjour le forum
Bonjour David

Une solution par USF avec click droit sur cellule.
Bonne journée à toutes & à tous

 

[DAVID-44-]

Bonjour Eric C,
Merci beaucoup.
Est-il possible d'avoir une police blanche dans les cellules ?
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[Eric C]

RE
Code modifié

Private Sub Rouge_Click()
With ActiveCell
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Bleu_Click()
With ActiveCell
.Interior.ColorIndex = 5
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Vert_Click()
With ActiveCell
.Interior.ColorIndex = 4
.Font.ColorIndex = 2
End With
Unload USF1
End Sub
Private Sub Orange_Click()
With ActiveCell
.Interior.ColorIndex = 46
.Font.ColorIndex = 2
End With
Unload USF1
End Sub

@+

 

[DAVID-44-]

Bonjour Eric C,
Je dois mal m'y prendre, car ça ne marche pas !
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[Eric C]

Je te joints le fichier

@+

 

[DAVID-44-]

Bonjour Eric C,
Merci c'est parfait
Bonne journée.
Cordialement.
David.