Accéder à une liste d'image en cliquant sur une image
Résolu
Koelon
Messages postés
25
Date d'inscription
Statut
Membre
Dernière intervention
-
Koelon Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
Koelon Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
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 :)
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 :)
A voir également:
- Accéder à une liste d'image en cliquant sur une image
- Liste déroulante excel - Guide
- Image iso - Guide
- Légender une image - Guide
- Transformer une image en icone - Guide
- Comment rechercher une image sur google - Guide
4 réponses
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
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
--
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
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.
Koelon
Messages postés
25
Date d'inscription
Statut
Membre
Dernière intervention
Super ça marche merci beaucoup !! :)
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
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
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.
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.
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 ^^
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 ^^