insertion d'image

[Roland]

Bonjour aux excelliens,

Quelqu'un pourrait il m'aider à ecrire le code pour inserer une image en fonction d'un texte.
Je m'explique :

en A1 peut apparaitre plusieurs mots( noms de stade)
et je voudrais qu'apparaisse la photo du stade lorsque j'écris le nom du stade. Est ce possible?

Je vous remercie de l'attention que vous me porterez

A bientot
Roland

 

[léa]

Bonjour Roland,

Voici le petit bout de code qu'il faut utiliser pour coller l'image dont tu précises le chemin d'accès au fichier qui la contient. Ici cette image se collerra de façon que le coin supérieur gauche soit en D8

Range("D8").Select
ActiveSheet.Pictures.Insert( "C:\" & chemin).Select

pour qu'elle s'affiche dès que tu auras validé la frappe de ton texte tu colles ceci dans l'évennement "Change" de "Worksheet" ce qui donnera

Private Sub Worksheet_Change(ByVal Target As Range)
Range("D8").Select
ActiveSheet.Pictures.Insert("C:\" & chemin).Select
End Sub

Bon courage
Léa

 

[Roland]

Merci léa
Il me manquait quelques détails, je te remercie bonne journée à toi et à tous les excelliens
Roland