Liste de choix de couleurs pour une cellule

[MJ13]

Bonjour à tous.


Connaissez-vous une méthode pour avoir dans une cellule une liste de choix de couleurs ?

Voir l'exemple joint où j'ai une piste mais pas très pratique et visuelle.


Merci par avance.

 

[deudecos]

Re : Liste de choix de couleurs pour une cellule

Salut Michel, le forum,

En passant par vba je sais faire... Un petit exemple en piece jointe

Bonne journee

Olivier

 

[Pierrot93]

Re : Liste de choix de couleurs pour une cellule

Bonjour Michel, Olivier

peut être une autre solution par macro événementielle, en utilisant l'événement "double cick" dans une cellule :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Application.CommandBars("Fill Color")
    .Visible = True
    .Top = Target.Offset(6, 0).Top
    .Left = Target.Left
End With
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Fill Color").Visible = False
End Sub

pas top, mais bon...

bon après midi
@+

 

[MJ13]

Re : Liste de choix de couleurs pour une cellule

Bonjour à Deudecos, Pierrot93 et le forum.

Vos 2 solutions m'ont ravi.


Et, on ne pourrait pas avoir juste une sélection de couleurs sans passer par un usf (je crains qu'il ne faille passer pas un USF comme la solution de Deudecos)?
Sinon je je vais essayer de faire un mix des 2.

Encore Merci à tous les 2.

 

[MJ13]

Re : Liste de choix de couleurs pour une cellule

Rebonjour à tous

Voici le fichier en prenant un mix des codes de Deudecos et Pierrot93.

Il me manque une chose.
Peut-on faire en sorte que le USF se positionne à côté de la cellule lorsque l'on double-clique?

Merci aux USFistes éclairés.