XL pour MAC Liste déroulante qui affiche une image

[6mxw9]

Bonjour à tous,

J'ai trouvé quelques fils de discussion sur ce thème, mais rien de concluant pour moi. Du moins, je n'arrive pas à comprendre avec le jargon technique...

Ce que je souhaite faire, c'est une liste déroulante avec comme choix : Blanc, Paille, Ambré, Dark. Et pour chaque choix, une petite image d'une goutte qui correspond à la couleur.

Si je choisi Blanc, l'image de la goutte blanche s'affiche. Si je choisi Paille, la goutte jaune s'affiche. Etc...

Dans l'idéal, j'aimerai que dans ma cellule, le mot et l'image soient présents. Voyez une capture d'écran en fichier joint pour mieux comprendre.

Merci à vous !

 

[6mxw9]

Bonjour,

Je crois que j'approche du but. J'ai suivi ce tutoriel de Parti'Prof, c'est exactement ce que je cherche à faire. Seulement, arrivé à la dernière étape où il faut entrer la valeur après avoir cliqué sur appareil photo, j'ai le message d'erreur suivant "La référence n'est pas valide.". Je n'arrive pas à comprendre ce que j'ai raté. Auriez-vous une idée ?

 

[job75]

Bonjour 6mxw9,

C'est un problème très classique, voyez le fichier joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes.Range(Array("Blanc", "Paille", "Ambré", "Dark")).Visible = False
If [D4] <> "" Then Shapes([D4]).Visible = True
End Sub

Les Shapes (ellipses) ont été renommées du nom de leur couleur.

A+

 

[job75]

Ah oui vous êtes sur MAC, pas sûr que ça fonctionne, dites-nous.

 

[6mxw9]

Bonjour Job75, et merci pour votre réponse.

Je ne parviens pas à trouver où ce trouve ce code dans votre fichier, afin que je puisse comprendre comment l'installer dans mon document.

Je vous mets en pièce jointe mon document, la feuille 1 est la feuille "finale", je fais mes essais dans la feuille 2 et 3, pouvez vous me dire ce qui n'est pas bon ?

Merci encore !

 

[job75]

Je ne parviens pas à trouver où ce trouve ce code dans votre fichier

J'ai bien dit dans le code de la feuille (sur Windows clic droit sur l'onglet et Visualiser le code).

Votre fichier n'est d'aucune utilité, il n'y a pas d'images.

 

[6mxw9]

Exact, j'ai trouvé le code comme vous me l'avez indiqué. Sur Mac c'est identique a priori.

J'ai donc fait la même chose, ça à l'air de fonctionner, les images changent bien en fonction du nom que je met, en revanche, j'ai une fenêtre d'erreur qui apparait, voyez la capture d'écran.

Et ensuite, comment ça se fait que l'image qui doit apparaitre dans l'encadré soit si grande en taille ?

En tout cas, merci, j'avance doucement mais surement !

 

[job75]

Sans votre fichier définitif avec les images je ne peux pas vous aider.

 

[6mxw9]

Je vous mets en pièce jointe les icônes et le fichier xls.

Mon but étant que dans les cellules "Couleur" de la feuille 1, je puisse choisir et faire apparaitre l'icône correspondante. Et que je puisse laisser les "formules" dans la feuille 2, pour ne pas "encombrer" ma première feuille.

EDIT : Même en suivant à la lettre cette vidéo, Youtube, je retrouve le même message d'erreur de "référence invalide". Est-ce un problème de version de logiciel ? Je suis sur 2019.

 

[job75]

Téléchargez les fichiers zippés joints dans le même dossier (le bureau).

La macro dans la feuille du fichier Images(2).xlsm :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [E:E], UsedRange)
If Target Is Nothing Then Exit Sub
Dim o As Object
Application.ScreenUpdating = False
For Each Target In Target 'si entrées multiples (copier-coller)
    For Each o In DrawingObjects
        If Not Intersect(o.TopLeftCell, Target.MergeArea) Is Nothing Then o.Delete 'RAZ
    Next o
    On Error Resume Next
    Set o = Pictures.Insert(ThisWorkbook.Path & "\" & Target & ".png")
    o.Top = Target.Top + (Target.MergeArea.Height - o.Height) / 2
    o.Left = Target(1, 2).Left - o.Width - 6
Next Target
End Sub

Elle se lance quand on renseigne une cellule en colonne E.

Nota : chez moi Rhum ambré ne passe pas, Rhum ambre (sans accent) passe.

A+

 

[6mxw9]

J'imagine que ça doit être quelque chose d'enfantin pour vous, mais je vous avoue ne pas du tout comprendre.
Je vais encore potasser pour ce code, mais je pense que je vais trouver une autre solution sans image. Tant pis.

Merci d'avoir pris le temps en tout cas !

 

[job75]

J'imagine que ça doit être quelque chose d'enfantin pour vous, mais je vous avoue ne pas du tout comprendre.

Si vous arrivez à faire fonctionner le fichier c'est le principal non ?

Et si vous ne comprenez pas le code posez des questions.

 

[6mxw9]

Le fichier que vous avez joins juste avant, je ne retrouve pas les manipulations telles que : créer la liste des noms, la colonne des images ainsi que la colonne de leur chemin.

Là, je suis en train d'essayer de refaire toute la vidéo, et je vais essayer votre code macro pour voir ce que ça donne.

 

[job75]

Il n'y a pas de "manipulations".

J'ai juste créé les listes de validation en colonne E et la macro où se trouve le chemin de l'image.

 

[6mxw9]

Non, vraiment, je ne comprends pas.

J'ai repris à 0 la vidéo, installé votre code, et toujours le même message d'erreur. Il y forcément quelque chose que je ne fais pas correctement.

Cette ligne du code :

Set o = Pictures.Insert(ThisWorkbook.Path & "\" & Target & ".png")

C'est là où je dois entrer le chemin où se trouvent les images ? Entre les "\" ? Et ".png", je dois le laisser tel quel ?