Problème : Insérer dans une cellule provenant d'une image d'un userform

**Eleanor** · 08/07/2013, 10h45

Bonjour à toutes et à tous,

Je souhaiterai vous exposer mon problème car je ne trouve pas la solution.

J'ai un userform qui trouve une image à partir d'une combobox. Ceci a été réussi. Par contre, je souhaiterai que l'image qui a été trouvée s'insère dans une cellule (qui est définie ou non au préalable).

Cela est-il possible?

Merci d'avance pour votre aide.

**EngueEngue** · 08/07/2013, 10h53

Voilà l'esprit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If rangedefinialavance<>true then
ran=inputbox("file ton range")
Range(ran).Select 
Pictures.Insert(nomImage).Select 
else
Range("Tonrange").Select 
Pictures.Insert(nomImage).Select 
end if

**Daniel.C** · 08/07/2013, 10h57

Bonjour,

Pour mettre l'image dans la cellule A10 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ComboBox1_Click()
    [A10].Select
    ActiveSheet.Pictures.Insert (Me.ComboBox1.Value)
End Sub

A adapter à tes besoins.

**Eleanor** · 08/07/2013, 11h31

Merci pour vos réponses rapides.

J'ai réussi à insérer l'image dans une cellule définie (la F13, comme je suis sûre qu'il n'y a rien dedans).
Par contre j'ai 2 petits problèmes :

1) J'ai une liste de mes valeurs de ma combobox, et j'aimerai que l'image soit positionné à côté de celle-ci (en disant par exemple si la valeur de la combobox = valeur de la cellule (A1), mettre l'image en B1

2) L'image s'affiche en grand, est-il possible de la redimenssionner suivant la taille de la cellule qui sera choisie?

Merci pour votre aide.

**EngueEngue** · 08/07/2013, 11h39

1) Il suffit de rechercher et de trouver le .row et .column pour avoir la référence avant de l'insérer.
2)NE m'étant jamais posé la question je suis allé faire un petit tour sur l'explorateur d'objet (F2) et la classe range a des propriétés comme ColumnWidth et RowHeight.

**Eleanor** · 08/07/2013, 11h47

Merci pour ta réponse.

1)Ce doit être dans une boucle ça non?

2) Très bien je vais regarder ça également.

Merci pour votre aide

**EngueEngue** · 08/07/2013, 11h49

Dans ton combobox_Change... tu peux le faire avec .find, avec rechercheV/rechercheH ou avec une boucle et des if.. Comme tu le sens

**Daniel.C** · 08/07/2013, 11h53

Je n'ai pas compris ta première question; peux-tu donner un exemple ? Est-ce que tu veux que les images soient les unes à côté des autres à partir de A1 ?
Pour le seconde point :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Click()
    [F13].Select
    Set img = ActiveSheet.Pictures.Insert(Me.ComboBox1.Value)
    img.Height = [F13].Height
    'img.Width = [F13].Width
End Sub

La macro peut varier selon que tu veus que les proportions hauteur / largeur soient ou non conservées.