Insertion conditionnelle d'une image

[NABLA49]

Bonjour,

Voici mon problème :

Dans une cellule il y a le résultat d'un calcul .
Dans un dossier : une série d'image (jpg ou bmp) par exemple : XX16; ZZ9, etc ...

Je désire que dans une cellule adjointe du résultat du calcul, une image bien précise apparaisse.
Exemple : supposons le résultat du calcul = 16 alors devrait apparaître le cheval XX16. Si le résultat est 9 alors c'est la photo du cheval ZZ9 qui apparaît.

Je ne trouve pas la solution !

Quelqu'un aurait-il une solution : éventuellement avec une macro !

D'avance merci.

Bien à vous.

NABLA49

 

[fabio]

Re : Insertion conditionnelle d'une image

bonsoir

tu trouveras ta réponse dans le site : VeriTi V 3, le site des amis d'Excel et OOo

cordialement

fabio

 

[Tibo]

Re : Insertion conditionnelle d'une image

Bonjour,

Regarde également les liens en bas de page écran.

Le cas échéant, tu peux approfondir en utilisant la Recherche du Forum.

@+

 

[BOISGONTIER]

Re : Insertion conditionnelle d'une image

Bonjour,

Image conditionnelle

JB

 

[NABLA49]

Re : Insertion conditionnelle d'une image

Merci à ceux qui m'ont apporté leur aide.

Aux regards de leur réponse, j'ai pu résoudre mon problème.
Bien que l'image désiré apparaisse bien sur la feuille, le problème de l'endroit où doit se positionner cette image n'est pas résolu.

Voici la macro que j'utilise :

Dim MonImage As String
MonImage = Range("v11").Value
Range("c38").Select
ActiveSheet.Pictures.Insert("k:\imagerie\JPG\" & MonImage & ".jpg").Select


J'avais espéré que cette image se positionne en C38 mais le résultat que j'obtiens est un positionnement en ± A4 (!!!???) et de plus l'image est cliquée.

Solution s'il vous plaît ou erreur oui omission de ma part !

D'avance merci.

🙄

 

[NABLA49]

Re : Insertion conditionnelle d'une image

Merci à ceux qui m'ont apporté leur aide.

Aux regards de leur réponse, j'ai pu résoudre mon problème.
Bien que l'image désiré apparaisse bien sur la feuille, le problème de l'endroit où doit se positionner cette image n'est pas résolu.

Voici la macro que j'utilise :

Dim MonImage As String
MonImage = Range("v11").Value
Range("c38").Select
ActiveSheet.Pictures.Insert("k:\imagerie\JPG\" & MonImage & ".jpg").Select


J'avais espéré que cette image se positionne en C38 mais le résultat que j'obtiens est un positionnement en ± A4 (!!!???) et de plus l'image est cliquée.

Solution s'il vous plaît ou erreur oui omission de ma part !

D'avance merci.