Affecter image sous conditions

Bonjour le forum,

je souhaite affecter, suivant conditions, des images dans une feuille de calcul, les images étant stockées

sur une autre feuille du classeur.

Voir fichier joint.

Cordialement.

bonsoir

un essai je te laisse le soin de finir (c'est pas complexe)

cordialement

Bonsoir,

merci pour ta réponse. Efficace et plus simple qu'une macro.

Mais je souhaite effectuer tout de même cette opération par l'intermédiaire de VBA.

Comme j'ai pu l'indiquer dans mon premier fichier, je sais effectuer cette opération par VBA mais en allant

chercher les images suivant un chemin spécifique, mais je n'ai pas trouver le moyen pour récupérer ces images sur une autre

feuille du classeur

Rappel de la macro que j'utilise:

Sub InsertionImage()

Dim objImg As Object

Fichier = "C:\Users\Patrick\plein soleil.bmp"

Set objImg = ActiveSheet.Pictures.Insert(Fichier)

Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)

With objImg.ShapeRange

.LockAspectRatio = msoFalse

.Left = 85

.Top = 230

.Height = 40

.Width = 40

End With

End Sub

Est-ce possible ?

Merci pour vos réponse .

Bonjour Tulipe,

je viens de regarder mais je ne comprends pas tes explications notamment "insertion>nom".

De plus je n'est que la formule EQUIV mais pas DECALER. Ou alors je n'ai réellement pas

compris ce que tu as fait en fait c'est peut-être ça).

As-tu la possibilité de me donner d'autres explications pour m'éclairer?

bonjour

je t'ai mis des explications ; c'est vrai que la maneouvre est particuliere

ensuite tu pourras deplacer et dimensionner chaque image a ta guise

cordialement

Merci tulipe pour le complément d'info, sauf que j'ai Excel 2010 et que dans insertion je ne trouve pas Nom.

Je regarde sur la version 2003 que j'ai (sur un autre PC), et je reviendrai vers toi si nécessaire

Sur ce, bonne soirée et merci encore.