Cliquer une image, la faire apparaître sur une autre feuille

Du coup, je te devais bien une proposition (avec macro, tu t'en doutes) :

https://www.cjoint.com/c/NDpk7MwbBfb

Daniel

Aucun souci, il n'y a rien à modifier. Juste à copier les images.

Daniel

Voici le code modifié :

Sub CopieImage()
  Dim NomImage As String
  NomImage = Application.Caller
  On Error Resume Next
  Sheets("Console").Shapes("Hublot").Delete
  On Error GoTo 0
  ActiveSheet.Shapes.Range(Array(NomImage)).Select
  Selection.Copy
  ActiveSheet.Paste
  Set img = Selection.ShapeRange
  ActiveSheet.Shapes("TextBox 41").TextFrame2.TextRange.Characters.Text = img.Name
  With img
    .Name = "Hublot"
    .Top = 64
    .Left = 409.25
    .Height = 104.5
    .Width = 104.5
  End With
End Sub

Pour le nom qui correspond à une image, tu dois nommer l'image de  ce nom. Pour chaque image, fais un clic droit sur une image et remplace le nom actuel dans la zone "adresse" :

Bonjour Guy,

Quand tu ajoutes une image, fais un clic droit dessus, clique sur "Affecter une macro" et choisis "CopieImage" :

Tu peux supprimer la macro "Conditions", j'ai oublié de le faire. Ce qui fonctionne, c'est la macro CopieImage.

Daniel

Ou alors une liste déroulante avec images

Bonjour,

Avec EXcel365 (et des images du web), voici ce qu'on peut obtenir. Si tu es intéressé, je donnerai plus de détails :

Daniel

Bonjour,

Dans mon message, j'ai mis Excel 2010

Effectivement, c'est une macro, mais ça fonctionne.

Là ou est l'intérêt de la macro, c'est que je dois pourvoir faire la même chose en mettant mes images dans l'onglet "Console", ce qui est plus pratique (pas besoin de changer de page).

La modification, ne devrait pas être dure ?

Ok, par contre, j'étais tellement content que ça fonctionne pour les images, je n'ai pas fait attention au titre (au-dessus du hublot) qui ne change pas ?
 

Attends, je suis en train de mettre la macro dans mon classeur d'origine, et j'ai quelques ennuis.

Je te tiens au courant

Bon, j'ai réussi à coller les images (problème de liaisons entre les deux).
Je règle l'emplacement, ça devrait le faire.

Je mets mon classeur en pièce jointe.
Vois si tu trouve pourquoi.....

Images conditions

Ok, je regarde ça.
Impeccable !!!

Merci encore.

Si j'ajoute une image, elle n'est pas pris en compte, que dois-je faire ?

Pourquoi: Range("P14").Select ?

Bonjour, Daniel

Effectivement, je venais de trouver à l'instant comment faire ;-)

Merci pour tout
Bonne journée