la question a déjà été posée il y a un mois ou deux, j'avais donné une macro permettant d'avoir ce menu de palette pour la cellule active à partir d'un bouton ajouté à une barre de menu. Fais une recherche dans les anciens posts, tu devrais la retrouver
oups, non, en fait c'était sur Vériti. Alors voilà la macro
Sub DialogueCouleur() 'Ti
Dim Res As Boolean
On Error GoTo erreur
With ActiveCell
Res = Application.Dialogs(xlDialogEditColor).Show(.Interior.ColorIndex)
If Res And (Selection.Count > 1) Then Selection.Interior.ColorIndex = .Interior.ColorIndex
End With
erreur:
End Sub
et voilà le commentaire qui l'accompagnait :
'tu peux utiliser la macro suivante, que tu peux placer dans ton perso.xls ou dans un xla de référence, comme 'Mes Macros' et à laquelle tu affecteras un bouton'
et une remarque :
Attention, elle ne fonctionnera que si la cellule active a déjà une couleur, sinon rien ne se passera. D'autre part, il ne faudra pas oublier que la couleur renvoyée remplacera la couleur actuelle dans la palette du classeur (si ta cellule était noire et que tu modifies ses propriétés pour la rendre rose, il n'y aura plus de noir dans le fichier, mais du rose uniquement).
Cependant cette macro est intéressante pour modifier une couleur rapidement dans un fichier justement, moi je l'ai rajoutée à ma barre de menu perso.
Message édité par: Ti_, à: 21/04/2005 13:51