Discussion :

[reglaet]

Bonjour,

j'ouvre un premier userform1 avec une combobox qui m'affiche mes produits et dans mon userform1 j'ai le chargement de l'image de mon produit jusque la tous fonctionne quand je change de produit l'image se charge bien.

Mon probleme arrive quand je double click sur mon image de produit j'ouvre un userform image qui me fait un focus du produit et lorsque je ferme cet userform par la croix en haut à droite de l'userform je reviens sur mon userform1 et lorsque je veux changer de produit dans mon combobox le produit change mais mon image ne se charge pas.

Pourquoi?

Je ne peut pas joindre de fichier car trop volumineux désolé.

Si ce n'est pas clair dite moi le merci.

[pijaku]

Bonjour,

Mon probleme arrive quand je double click sur mon image de produit j'ouvre un userform image qui me fait un focus du produit et lorsque je ferme cet userform par la croix en haut à droite de l'userform je reviens sur mon userform1 et lorsque je veux changer de produit dans mon combobox le produit change mais mon image ne se charge pas.
Pourquoi?
Je ne peut pas joindre de fichier car trop volumineux désolé.

Peux tu nous donner le code de l'événement ComboBox_Change()?

[reglaet]

voici le code du combobox :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim LigneEncours As Integer
Dim L As Long
Dim WS As Worksheet
Dim variable1, chemin2, Fichier As String
Dim MemoImage As Variant
 
 
Application.ScreenUpdating = False
 
 
LigneEncours = 0
  If Me.Combobox1.ListIndex = -1 Then Exit Sub
 Set WS = Sheets("Listing Produits")
    WS.Activate ' Permet de localiser la Feuille qui contient le Code Sélectionné
    For L = 7 To Range("A" & Rows.Count).End(xlUp).Row
      If Me.Combobox1 = WS.Range("A" & L) Then
        Me.TextBox8 = WS.Range("B" & L)
        Me.TextBox10 = WS.Range("C" & L)
        Me.Textbox9 = WS.Range("G" & L)
 
        Me.TextBox2 = WS.Range("D" & L)
        Me.TextBox4 = WS.Range("H" & L)
        Me.TextBox3 = WS.Range("J" & L)
        Me.TextBox5 = WS.Range("P" & L)
        Me.TextBox6 = WS.Range("O" & L)
        Me.TextBox7 = WS.Range("T" & L)
 
 
    End If
        LigneEncours = L
        TextBox1.Value = ""
 
      'End If
    Next L
 
 
    'Chargement de du controle image (PhotoPieces).
 
chemin2 = Sheets("gestionLISTE").Range("T3").Value
variable1 = UserForm1.Combobox1.Value
 
    Fichier = "" & chemin2 & "" & variable1 & ".jpg"
 
    'Vérifie si le fichier existe.
    If Dir(Fichier) <> "" Then
        'si le fichier existe, il est chargé pour visualisation.
        UserForm1.PhotoPieces.Picture = LoadPicture(Fichier)
        MemoImage = Fichier
 
    End If
 
    Application.ScreenUpdating = True
End Sub

et voici le code quand je double click sur l'image:

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
18
19
20
21
22
23
Private Sub PhotoPieces_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim chemin2, variable1, Fichier As String
Dim MemoImage As Variant
Dim Mondico As Object
Dim WS As Worksheet
 
'Chargement de du controle image (PhotoPieces).
 
chemin2 = Sheets("gestionLISTE").Range("T3").Value
variable1 = UserForm1.Combobox1.Value
 
    Fichier = "" & chemin2 & "" & variable1 & ".jpg"
 
    'Vérifie si le fichier existe.
    If Dir(Fichier) <> "" Then
        'si le fichier existe, il est chargé pour visualisation.
        UsfImage.ImagePiece.Picture = LoadPicture(Fichier)
        MemoImage = Fichier
        UsfImage.Show
    End If
 
 
End Sub

merci de se pencher sur mon problème.

[reglaet]

ci joint la photo de mon userform:

[pijaku]

...
A vue de nez, tout va bien...

Essaie toutefois ceci, dans le code du combobox :

Code :

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

1
2
3
4
5
6
7
    If Dir(Fichier) <> "" Then
        'si le fichier existe, il est chargé pour visualisation.
        UserForm1.PhotoPieces.Picture = LoadPicture(Fichier)
        MemoImage = Fichier
        Me.Repaint
        DoEvents
    End If

[reglaet]

Merci Frank.P cette petite modification fonctionne parfaitement peut tu m'expliquer rapidement le Me.Repaint, DoEvents j'aime bien comprendre.

Merci encore.