Insertion d'image dans Excel [Résolu]

Re,

Oui tout à fait possible, pour ne pas changer tout le code afin qu'il soit adaptable à la cellule de ton choix, j'ai rajouté deux lignes en gras, une pour sélectionner la cellule de réception et une pour désélectionner l'image.

Private Sub CommandButton1_Click()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
[B2].Select
'Dimensionne la cellule
ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
'sélectionne la cellule de réception
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
[A1].SelectEnd If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Salut,

Il faut créer un bouton mais surtout écrire un code en VBA si tu as quelques notions en VBA, on peut le faire

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Salut,

jai quelques notions, si tu peux deja me donner quelques commandes et etapes, je vais essayer !! Et je vous tiendrais au courant si j'ai des soucis ou si j'ai reussi !! :)

Merci

Salut,

Ok, dans quelle cellule veux tu insérer une image
comme tu le sais la dimension d'une cellule est 12,75 sur 10,71 pour que ton image s'insére correctement et surtout soit visible il va faloir la redimensionner quel format souhaites tu, dis moi même en cm je me débrouillerai

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Je souhaite inserer des images dans plusieurs cellules avec a chaque fois un bouton parcourir different.
Je voudrais que la photo garde plus ou moins ces proportions si possible, elle qu'elle prenne la taille la plus grande qu'elle puisse dans la cellule.

Quel format?
L'ideal se serait que l'utilsateur puisse rentrer des jpeg, pdf ou meme bmp et autres formats de photos souvent utilisees... (enfin surtout jpeg)

Merci

Re,

Tu n'as pas tout à fait répondu à ma question, mais on va faire avec.
Colles ce code dans un module macro et associes le à un bouton, il dimensionne la cellule active et ouvre la fenêtre Ouvrir, colle l'image dans la cellule active aux dimensions de la cellule précédemment établi

Sub Insertion_Image_Aux_Dimension_Cellule()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Dimensionne la cellule
ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
'sélectionne la cellule de réception
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
End Sub


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Comment je l'associe a un bouton ? J'ai essaye de le mettre dans le "Private Sub ToggleButton1_Click()" mais ca ne marche pas non plus..

Private Sub ToggleButton1_Click()

End Sub

Sub Insertion_Image_Aux_Dimension_Cellule()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Dimensionne la cellule
ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
'sélectionne la cellule de réception
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
End Sub

Il est préférable d'utiliser un CommandButton, si c'est le CommandBotton1 colles ce code si non adaptes
Private Sub CommandButton2_Click() pour le deuxième etc ...


Private Sub CommandButton1_Click()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
'Dimensionne la cellule
ActiveCell.Offset().RowHeight = 63.75
ActiveCell.Offset().ColumnWidth = 13.86
'sélectionne la cellule de réception
L = ActiveCell.Left
T = ActiveCell.Top
W = ActiveCell.Width
H = ActiveCell.Height
Image = Application.GetOpenFilename
If Image <> False Then
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
End If
End Sub

Ou avec le premier code, tu crées un bouton avec la barre Formulaire et associer à une macro

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

C’est super, ca marche tres bien, juste oui, comme je n’ai pas tres bien repondu a ta reponse la derniere fois tu inseres l’image dans la case active. Je prefererais que ce soit un numero de cellule, et j’adapterais ce numero de cellule en fonction de chaque command button. Est-ce possible

Merci a toi !!

Re,

En relisant la discussion et pour compléter mon post précédent, si du dois insérer une image dans plusieurs cellules il est possible d'utiliser le code en modifiant une ligne pour faire référence à une cellule qui pourrait contenir une liste déroulante avec les références de cellule.
Par exemple en F2 tu saisis ou sélection B2 si tu souhaites insérer l’image dans cette cellule
En remplaçant
[B2].Select

par

Range([F2]).Select

Il te suffira de changer la référence contenue en F2 pour insérer une nouvelle image dans une autre cellule sans avoir à toucher à ton code VBA

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)