Accéder à une liste d'image en cliquant sur une image [Résolu/Fermé]

Signaler
Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015
-
Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015
-
Bonjour à tous,

Sur excel, dans l'optique de réaliser un tableau de bord, je souhaiterai utiliser des smileys sous forme d'image pour indiquer la tendance du moment ( un smiley sourire & un smiley triste par exemple). Je souhaiterai pouvoir cliquer sur l'image smiley pour choisir l'un des deux. L'objectif est qu'en cliquant sur l'image j'aille une genre de liste dans laquelle je peux sélectionner le smiley que je veux.

Est-ce possible ?

Un grand merci :)





4 réponses

Messages postés
17304
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
15 avril 2021
4 570
Re,
dans une plage X12:X15 nommée "Critère_C" parce que sur ma page initiale j'ai plusieurs plages Critères ensuite j'ai copié les émoticones que j'ai nommé du même nom que le contenu des cellules de la plage 'Critères_C
dans mon exemple la binette qui sourie nommée Rire et correspond au contenu de X12

la plage N8:N26 destinée à recevoir les émoticones paramétrée police Wingdings taille 14

dans les propriété de la feuille (clic droit sur l'onglet/Visualiser le code) j'ai ce code qui appelle la macro "Plag_N

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("N8:N26"), Target) Is Nothing Then
Call Plag_N
End If
End Sub


dans un module qui crée le menu et affecte un lettre à la cellule active , J pour le rire, K pour neutre et L pour mal ce qui correspond en Wingdinds aux binettes et gère leurs couleurs

Option Explicit
Public cb As CommandBar
Public Liste_1 As Range
Dim i, nbl As Long

Sub Plag_N()
Set Liste_1 = Sheets("Feuil1").Range("Critère_C")
If Liste_1.Columns.Count > 1 Then Exit Sub
On Error Resume Next
CommandBars("Menu_Gw").Delete
On Error GoTo 0
Set cb = Application.CommandBars.Add("Menu_Gw", msoBarPopup)
nbl = Liste_1.Count
For i = 1 To nbl
ThisWorkbook.Sheets("Feuil1").Shapes(Liste_1(i)).Copy
With cb.Controls.Add(msoControlButton, 1, Liste_1(i), , True)
.PasteFace
If ActiveCell.Column = 15 Then .Caption = .Parameter 'pour afficher que les smiley mettre la colonne en erreur N= 14 si différent de 14 affichage simple
.OnAction = "Note_N(" & i & ")"
End With
Next i
cb.ShowPopup
Set Liste_1 = Nothing
ActiveCell(1, 0).Select
End Sub

Sub Note_N(index As Long)
ActiveCell = cb.Controls(index).Parameter
If ActiveCell = "Rire" Then
ActiveCell = "J"
ActiveCell.Font.ColorIndex = 4
ElseIf ActiveCell = "Neutre" Then
ActiveCell = "K"
ActiveCell.Font.ColorIndex = 45
ElseIf ActiveCell = "Mal" Then
ActiveCell = "L"
ActiveCell.Font.ColorIndex = 3
ElseIf ActiveCell = "Muet" Then
ActiveCell = ""
ActiveCell.Font.ColorIndex = xlNone
End If
End Sub


--
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015

Super ça marche merci beaucoup !! :)
Messages postés
17304
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
15 avril 2021
4 570
Bonjour,

si je comprends bien tu souhaiterais afficher une liste de validation avec des smileys pour l'afficher dans une cellule la sélection, si c'est cela, il faut passer par du VBA si tu as quelques notions ou te contenter d'afficher du texte dans une liste de validation et avoir dans une cellule une image ça c'est possible
Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015

Hello Mike, c'est bien ça. Je ne maîtrise absolument pas le VBA, je vais m'informer sur la mise en place d'une liste de validation du coup. Merci :)
Messages postés
17304
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
15 avril 2021
4 570
Re,

Voila ce que ça peut donner plage colonne N
https://www.cjoint.com/c/EFsko6CJTJj

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015

Ah super : c'est parfait ! Je vais essayer de faire ce que tu as fais avec des pouces verts et des pouces rouges. Peux-tu, en quelques mots, m'indiquez le chemin à utiliser s'il te plait ?

Je voulais également te demander, s'il est possible de filtrer ces images (admettons que je souhaite uniquement afficher les cellules avec un petit smiley vert)

Merci encore une fois ^^
Messages postés
17304
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
15 avril 2021
4 570
Re,

à voir, tu peux copier quel genre de pouce tu veux
Messages postés
25
Date d'inscription
mercredi 24 décembre 2014
Statut
Membre
Dernière intervention
19 juin 2015

Re,

Ah d'accord, tu peux m'expliquer comment tu l'a créer avec les smileys pour que je fasse la même chose avec les pouces s'il te plait ? ^^