Discussion :

[DlouJ]

Bonjour à tous,

J'ai cherché partout sur internet mais je ne trouve aucune solution à mon problème.
J'ai un classeur avec plusieurs feuilles. Sur chaque feuille il y a des noms d'objets, les photos (insérées par des controles image) et diverses explications (type base de données).
J'ouvre une userform par un bouton sur la première feuille, il contient une combobox1 qui correspond aux noms des feuilles, une textbox dans laquelle l'utilisateur tape le nom de l'objet recherché et un controle image qui doit donc afficher la photo ayant le même nom que la valeur tapée dans la textbox après un clic sur un bouton. J'ai une erreur lorsque je clic sur mon bouton apercu "erreur 438, propriété ou méthode non gérée par cet objet. Mon code s'arrête sur la ligne "UserForm2.Image1.Picture = Sheets(ComboBox1.Value).pht.picture " mais si je remplace "pht.picture" par le nom de l'objet cherché tout fonctionne. Le debogueur trouve pourtant la bonne valeur pour "pht". Pouvez vous me dire ce qui ne va pas svp?

Merci d'avance

DlouJ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Apercu_Click()
Dim photo As Variant
Dim pht As Range
photo = TextBox2.Value
With Sheets(ComboBox1.Value).Range("C:C")
        Set pht = .Find(photo, LookIn:=xlValues, LookAt:=xlPart)
 
If pht Is Nothing Then
 
         MsgBox "Aucun résultat"
        Exit Sub
        Else
 
        UserForm2.Image1.Picture = Sheets(ComboBox1.Value).pht.picture
        End If
        End With
End Sub

[clementmarcotte]

Bonjour,

Cela fait bien longtemps que je n'ai pas "joué" avec le contrôle image de VBA. Mais, après avoir jeté un œil dans l'aide, il me semble que le seul moyen de mettre une image dans un contrôle Image est de passer par LoadPicture et d'utiliser in fichier du disque et non une image dans un classeur.

[DlouJ]

Bonjour clementmarcotte,

Merci pour votre réponse mais non le controle image fonctionnne, le LoadPicture n'est pas obligatoire. D'ailleurs, si je remplace ma variable "pht" par le nom exact du controle image placé dans la feuille cela fonctionne parfaitement, c'est bien ça que je ne comprend pas... c'est à s'en arracher les cheveux!

[Chtik]

Bonjour,

Je me trompe peut-être mais tu déclare ta variable pht en tant que Range.
Une range n'a pas de méthode Picture à ma connaissance.

Sinon, pourquoi ne pas utiliser un contrôle ImageList plutôt que d'avoir les images directement dans une feuille du classeur ?

Cordialement,

[DlouJ]

Bonjour à tous,

Merci pour vos réponses. Chtik j'ai essayé l'imageList mais ça ne fonctionnait pas comme je le souhaitais.
J'ai finalement trouvé la réponse en poursuivant mes recherches donc si ça peut en intéresser certains:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set F = Sheets(ComboBox1.Value)
On Error GoTo Err_photo
  Set s = F.Shapes(CStr(Me.ListBox1))
  s.CopyPicture
 
  F.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  F.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  F.Shapes(F.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"

Cordialement

[Saiya]

ou alors on utilise pas de disque du tout, on passe par le clipboard en fesant s.copy, puis Me.Image1.Picture = PastePicture.
ça doit quand même être plus rapide...
PastePicture est une fonction d'un module à ajouter à votre projet. (http://www.developpez.net/forums/d11...ormat-jpg-bmp/)