Bonjour Vgendron,
J'ai un petit problème sur mon macro,
If Target = "image" Then
Target.Offset(0, 10).Select
ad = Selection.Address
ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")
ActiveSheet.Pictures.Insert(ficimg).Select
With Selection.ShapeRange
.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez
.Top = Range(ad).Top ' haut de la cellule
.Left = Range(ad).Left ' gauche de la cellule
.Height = Range(ad).Height ' hauteur de la cellule
.Width = Range(ad).Width ' largeur de la cellule
End With
With Selection
.PrintObject = True ' l'objet est imprimé en même temps que le document
.Placement = xlMoveAndSize ' manière dont l'objet est lié aux cellules
End With
End If
J'avais ajouter ce macro pour quand je clique sur image a gauche, je vais chercher une image dans mon ordinateur que je place dans la cellule colonne L.
Mais il y a un petit beug, quand il y a la fenetrre qui s'affiche pour aller chercher mon image et quand je ferme cette fenetre sans mettre d'image j'ai un beug dans ma macro ?
Aurais-tu une solution s'il te plait
!
Merci beaucoup