Logo en menu liste déroulante

[anthoYS]

Bonsoir,

Comment faire pour que quand je selectionne le menu liste déroulante apparaisse, une image logo dans la cellule...

Par exemple je choisi mon magazin dans une cellule par menu liste déroulante, je souhaite que le vrai logo apparaisse plutôt que de lire "Carrefour" ou "Leclerc"...
Logo collé par image...

Merci d'avance aux "excel-downloads forumeurs"

 

[BOISGONTIER]

Re : Logo en menu liste déroulante

Bonsoir,

Les images et shapes
La mise en forme conditionnelle

JB

 

[anthoYS]

Re : Logo en menu liste déroulante

merci à toi.

 

[mth]

Re : Logo en menu liste déroulante

Bonsoir anthoys,

Voici un essai ci-joint (fait sur Excel 2007, j'espère que ça fonctionne sur les autres versions ...)

Bonne soirée

mth

 

[mth]

Re : Logo en menu liste déroulante

oups.... ben dis donc, c'est ce qui s'appelle avois un métro de retard là !!!
le temps que je fasse mon tit' exemple c'est déjà résolu bouclé 😀

Désolée pour mon message du coup inutile

Très bonne soirée anthoYS et Boisgontier 🙂

mth

 

[anthoYS]

Re : Logo en menu liste déroulante

Re,

Mais non, merci mth, ton fichier m'a été utile.
Je le remercié pour son lien... Bien que mon problème n'étais pas encore résolu.
Pas mal du tout.

@+

 

[anthoYS]

Re : Logo en menu liste déroulante

Re,

J'ai réussi à modifier ton fichier à ma convenance... ou presque. Je m'explique, il faut savoir savoir, que -en feuil2- j'ai déplacer le (les) logo(s), vers la cellule B (de C), de sorte que quand je selectionne par menu liste déroulante l'enseigne, son logo apparaît dans la cellule. Or quand j'incrémente vers le bas (B4, B5, etc.), ça ne fonctionne pas, car cela fige le logo de l'enseigne choisi en B3...

😕

Merci par avance.

 

[Hulk]

Re : Logo en menu liste déroulante

Hello,

Expérience faite, avec cette solution et donc les logos dans le fichier, plus tu auras de logos, plus ton fichier s'alourdira et donc il sera chaque fois plus lent...

Si tu n'as qu'une vingtaine d'images, ça va avec ce que te proposent les amis Boisgontier et mth, si plus, je te propose une version macro dont le fichier et ses logos doivent être stockés dans un même dossier.

Donc le fichier ne s'alourdit pas et sera plus rapide... Si tu le souhaites, prends le ici.

Le code est dans le ThisWorkbook.

Vois si ça te va.

 

[BOISGONTIER]

Re : Logo en menu liste déroulante

Voir PJ


Permet la recopie

Images internes:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
        If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
          s.Delete
        End If
      End If
    Next s
    '--
    Sheets("logos").Shapes(Application.Substitute(Target, " ", "")).Copy
    Target.Offset(0, 1).Select
    ActiveSheet.Paste
    Selection.ShapeRange.Left = ActiveCell.Left + 9
    Selection.ShapeRange.Top = ActiveCell.Top + 5
    Target.Select
  End If
End Sub

Images externes

Les images sont dans le même répertoire que le classeur

=afficheimage(B3&".jpg")

Function AfficheImage(NomImage, Optional rep As String)
  Application.Volatile
  If IsMissing(rep) Then rep = ThisWorkbook.Path & "\"
    Set adr = Application.Caller
    Set adr2 = Range(adr.Address).MergeArea
    temp = NomImage & "_" & adr.Address
    Existe = False
    For Each s In adr.Worksheet.Shapes
      If s.Name = temp Then Existe = True
    Next s
    If Not Existe Then
      For Each k In adr.Worksheet.Shapes
        P = InStr(k.Name, "_")
        If Mid(k.Name, P + 1) = adr.Address Then k.Delete
      Next k
      Set s = adr.Worksheet.Shapes.AddPicture(rep & NomImage, True, True, adr.Left, adr.Top, adr2.Width, adr2.Height)
      s.Name = NomImage & "_" & adr.Address
   End If
End Function

JB

 

[anthoYS]

Re : Logo en menu liste déroulante

Bonsoir,

BOISGONTIER, j'ai revu tes fichiers merci.

Mais ce que je souhaite, c'est que le logo apparaisse dans la même cellule par menu liste déroulante, et non pas dans la cellule voisine.

@+

 

[BOISGONTIER]

Re : Logo en menu liste déroulante

Bonsoir,

Voir PJ

JB

 

[anthoYS]

Re : Logo en menu liste déroulante

Merci, c'est ça que je voulais.

Le fichier s'alourdira t-il vite ainsi -comme l'a souligné "Hulk" precedemment-?

Car je pense, qu'il y aura beaucoup de lignes comportant des images ainsi?

Merci encore.

 

[Hulk]

Re : Logo en menu liste déroulante

Hello tout le monde,

Comme je l'ai dis, oui il s'alourdira vite et il sera vite lent (tiens c'est marrant ça "vite lent" 😀).

J'avais fais un classeur foot avec pleins de petits drapeaux (à peu près 50) amenés via cette méthode et 1) trop lourd, 2) trop lent.

Attention, je ne dis pas que cette méthode est nulle, elle est nickel mais que pour peu d'images... A mon sens.

Qui sait peut-être je me trompe et que c'était mon pc qui ramait (à l'époque j'avais un assez vieux coucou) mais je ne crois pas.

Le mieux c'est que tu testes et que tu t'en rendes compte par toi-même.

 

[anthoYS]

Re : Logo en menu liste déroulante

oK "Hulk", je te fait confiance...

Pour ma part j'ai des fichiers Excel lourd de 7 Mo (pleins d'onglets) et ça ne rame pas, c'est juste un peu plus long à s'ouvrir que ceux qui sont légers...

Merci donc.

 

[BOISGONTIER]

Re : Logo en menu liste déroulante

88 ko pour 70 images.

JB