Création d'un bouton pour appliquer une couleur dans une cellule

Bonjour,

Je souhaiterais réaliser la création d'un bouton qui permettrait d'appliquer une couleur à une cellule.

Exemple :

Je sélectionne une cellule, je clique sur le bouton et la couleur rouge est appliquée uniquement à cette cellule. La cellule ne remplie pas de condition particulière, la couleur est appliquée uniquement lors du clic sur le bouton.

Est-ce possible et si oui, comment réaliser cette action?

Merci pour votre aide.

Bonjour à tous!

Raphael, place ce code dans module standard et créer le bouton sur la feuille

Sub test()
ActiveCell.Interior.ColorIndex = 3
End Sub

Bonne journée !

Bonjour,

Un exemple avec un événement clic droit. La couleur est paramétrée dans la zone nommée CouleurChoisie dans l'onglet paramètres.

Merci à tous les deux c'est top.

J'ai pris la solution du bouton qui correspondait plus dans mon cas à mon besoin mais merci à tous les deux.

Concernant le bouton, est-il possible d'ajouter une couleur à la cellulle + un texte ainsi qu'une couleur à ce dernier (exemple : maladie en blanc) ?

Bonjour,

Raphael, oui comme ceci

Sub test()
ActiveCell = "Maladie"
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Font.ColorIndex = 2
ActiveCell.Font.Bold = True
End Sub

Bonne journée!

Bonjour Nordik_Nation,

Une dernière chose pour les boutons liés à une maccro VBA.

J'ai réalisé le planning ci-dessous :

J'aurais souhaité que le bouton effacer planning ne nettoie que les cellules qui contiennent un numéro d'affaire, les autres contenant la recherchev, elles doivent rester en l'état.

Existe-il une formule simple pour réaliser cette fonction?

Merci encore pour ton aide.