Liste de choix de couleurs pour une cellule

deudecos

XLDnaute Impliqué

• 22 Novembre 2007

• #2

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

 

Pièces jointes

• CouleurMichel.xls

  35.5 KB · Affichages: 294

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Novembre 2007

• #3

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 22 Novembre 2007

• #4

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 22 Novembre 2007

• #5

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.

 

Pièces jointes

• Couleur cellule.xls

  40 KB · Affichages: 248
• Couleur cellule.xls

  40 KB · Affichages: 298
• Couleur cellule.xls

  40 KB · Affichages: 308

Dernière édition: 22 Novembre 2007

Vote positif 0 Vote négatif