XL 2010 macro couleur tableau

[coke2a]

Bonjour à tous,

Sur un calendrier annuel que j'utilise comme agenda événementiel, j'attribue une couleur a chaque événement. Serait il possible de faire apparaître ou disparaître la couleur de mon choix.. j'aurais une meilleur visibilité de l'évènèment souhaité.

Merci à tous pour votre aide.

 

[JBARBE]

Bonjour à tous,
En double cliquant dans une cellule( choix : effacer - couleurs )
Bonne journée

 

[coke2a]

Bonjour et merci pour votre aide mais, je voudrais que toute les cellules d'une même couleur disparaissent en même temps du tableau.

Bonne fin de journée

 

[JBARBE]

Re,
J'ai créé un bouton EFFACER rouge !
Il suffit de sélectionner les cellules à effacer ( couleur et saisie ) et de cliquer sur le bouton !
Par ailleurs s'il ne faut pas supprimer la saisie supprimer cette ligne de macro :
Selection = "" ' à supprimer s'il ne faut pas supprimer la saisie

Sub effacer()
Reponse = MsgBox("Voulez-vous EFFACE", vbYesNo + vbInformation, "Attention")
 If Reponse = vbYes Then
 Selection.Interior.ColorIndex = xlNone
 Selection = "" ' à supprimer s'il ne faut pas supprimer la saisie
 Selection.Interior.PatternColorIndex = xlAutomatic
 End If
End Sub

Bonne soirée !

 

[JBARBE]

Re,
J'ai supprimé le double clic qui ne pouvait concerner qu'une cellule à la fois (on ne peut faire autrement )!
Maintenant en cliquant sur les petits boutons GO à coté de chaque couleur ( ligne 2), l'on peut sélectionner plusieurs cellules concernées afin de les colorier !
Bonne soirée !