Bonsoir à tous,

Je n'arrive pas à positionner mon image dans une Cellule en haut à droite !

Pour la positionnée à gauche pas de soucis

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Fichier = (répertoirePhoto & "\IMAGES\" & "Li" & A & ".JPG")
    Set objImg = ActiveSheet.Pictures.Insert(Fichier)
 Set Emplacement = Feuil5.Range("B1")
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
 With objImg.ShapeRange
    .LockAspectRatio = msoFalse
    .Left = Emplacement.Left
    .Top = Emplacement.Top
End With
Penser comme je l'ai fait remplacer Left par Right, vous mènera comme moi à venir poser la question lol

Merci par avance pour vos aides