Besoin d'aide pour menu deroulant smiley

  • Initiateur de la discussion Initiateur de la discussion davidp
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

davidp

XLDnaute Occasionnel
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
 

Pièces jointes

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
2 K
Réponses
3
Affichages
2 K
Réponses
9
Affichages
1 K
Retour