j'ai trouvé sur le forum une méthode pour mettre en forme auto une image dans une cellule mais si je désire la mettre dans un ensemble de cellules fusionnées A2, B2, A3, B3 quel "range" dois je saisir? merci d'avance.
Sub InsertPicture()
'J Walkenbach, mpep
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$
image = Range("a2")
Set MyCell = Range("b2")
MyCell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShapeRange
.LockAspectRatio = msoFalse
.Height = MyCell.Height
.Width = MyCell.Width
End With
MyCell.Select
Range("c2") = MyCell.Height & " x " & MyCell.Width
End Sub