Besoin d'aide pour menu deroulant smiley

[davidp]

Bonjour le forum ,
j'ai une nouvelle fois besoin de votre aide.
j'aimerai remplacer
le menu déroulant actuelle dans la cellule B10 ( J K L par
correct - vigilance- attention)
tout en conservant les smileys

Merci d'avance pour votre aide

Bonne journée

davidp

 

[Modeste]

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!)

 

[davidp]

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

 

[job75]

Re : Besoin d'aide pour menu deroulant smiley

Bonjour davidp, hello Modeste,

Oui bien sûr par macro :

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+

 

[davidp]

Re : Besoin d'aide pour menu deroulant smiley

Bonjour JOB75,

Super!

Un grand merci à tous les 2

Bonne journée

davidp

 

[job75]

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+

 

[chris]

Re : Besoin d'aide pour menu deroulant smiley

Bonjour à tous

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

 

[davidp]

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