Besoin d'aide pour menu deroulant smiley

Modeste

XLDnaute Barbatruc

• 8 Novembre 2014

• #2

Re : Besoin d'aide pour menu deroulant smiley

Bonjour davidp,

Tu auras sans doute constaté que ce sont précisément ces trois lettres en Majuscules qui donnent -en police Wingdings- les trois smileys.
Remplacer ces trois lettres par un texte différent donnera donc un résultat ... différent (et beaucoup moins évocateur que les smileys)
... on peut sans aucun doute proposer quelque chose qui se rapproche de la situation actuelle, mais pas précisément ce que tu demandes (ou alors, par macro!)

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 8 Novembre 2014

• #3

Re : Besoin d'aide pour menu deroulant smiley

Bonjour Modeste ,

merci pour ta réponse .
En effet , c'est compliqué.

Si ce n'est pas faisable par macro , ce n'est pas grave je ferai autrement .

Bon week-end

davidp

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2014

• #4

Re : Besoin d'aide pour menu deroulant smiley

Bonjour davidp, hello Modeste,

Oui bien sûr par macro :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'les références des cellules peuvent être adaptées
Dim r As Range
Set r = Intersect(Target, [B10:B17])
If Not r Is Nothing Then
  For Each r In r
    Select Case r
      Case [B21]: r = "J": r.Font.ColorIndex = 50 'vert
      Case [B22]: r = "K": r.Font.ColorIndex = 54 'prune
      Case [B23]: r = "L": r.Font.ColorIndex = 3 'rouge
    End Select
  Next
End If
End Sub

Fichier joint.

A+

 

Pièces jointes

• Smileys(1).xls

  59 KB · Affichages: 55
• Smileys(1).xls

  59 KB · Affichages: 61
• Smileys(1).xls

  59 KB · Affichages: 65

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 8 Novembre 2014

• #5

Re : Besoin d'aide pour menu deroulant smiley

Bonjour JOB75,

Super!

Un grand merci à tous les 2

Bonne journée

davidp

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2014

• #6

Re : Besoin d'aide pour menu deroulant smiley

Re,

Sur Excel 2003 on voit peu souvent le texte provisoire, sur Excel 2010 on le voit souvent (sur mon ordi).

On ne peut malheureusement pas éviter cet ennui.

A+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Novembre 2014

• #7

Re : Besoin d'aide pour menu deroulant smiley

Bonjour à tous

Une solution moins jolie, sans VBA, à base de format de nombre et MFC.

 

Pièces jointes

• ListeIcones.xlsx

  9.7 KB · Affichages: 58

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 8 Novembre 2014

• #8

Re : Besoin d'aide pour menu deroulant smiley

Bonjour Chris ,

c'est également top!

Un grand merci pour aide , je vais pouvoir utilser les 2 exemples et les adapter à mes besoins.

Bon week-end à tous

davidp

 

Vote positif 0 Vote négatif