Collage d'une image après une recherche

bonjour Fred,

voici un exemple a copier sur la page code de la feuille et a adapter selon les nom des feuilles et les cellules,

Private Sub Worksheet_Calculate()
If Range("A1") = 1 Then 'si la cellule A1 est egale au résultat ettendu
Sheets("Feuil2").Select
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Sheets("Feuil1").Select
Range("H1").Select
ActiveSheet.Paste
End If
End Sub

isabelle

Je souhaite, en fonction du résultat d'une cellule, coller dans une autre
cellule une image qui se trouverait soit dans une autre feuille, soit dans
un fichier séparé.
Comment faire?
Merci d'avance

Regarde là ** ça pourrait te donner des idées

** http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope

AV

SUPER c ce que je voulais. Mais quel est le mot de pass pour les lignes de
code?
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
uMssxRw0EHA.2540@TK2MSFTNGP09.phx.gbl...

Regarde là ** ça pourrait te donner des idées

** http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope

AV

SUPER c ce que je voulais.
C'est donc parfait !

Mais quel est le mot de pass pour les lignes de code?

Heu..... Il n'y a pas de mot de passe !
Des formules (index/equiv) et 2 procédures évènementielles dans le module de la
feuille "FICHE" (clic droit sur l'onglet --> visualiser le code)

AV

il y en a dans eurotool.xla mais il n'y a peut-être rien d'interessant à
voir.

Merci je vais travailler avec ton tableau et l'adapter (enfin.....,essayer)
;)
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
ewNu$Cx0EHA.1296@TK2MSFTNGP10.phx.gbl...

SUPER c ce que je voulais.
C'est donc parfait !

Mais quel est le mot de pass pour les lignes de code?

Heu..... Il n'y a pas de mot de passe !
Des formules (index/equiv) et 2 procédures évènementielles dans le module
de la
feuille "FICHE" (clic droit sur l'onglet --> visualiser le code)

AV