Discussion :

[Monte_Carlo]

Bonjour à tous,

J'ai un fichier avec plusieurs photo et des noms et je voudrais créer un userform qui lorsqu'on clique sur un nom il y a le userform qui s'affiche avec le nom et la photo.
J'ai donc créer un contôleur d'image (InkPicture1) sur le userform et j'ai donc mis toutes les photos du fichier dans des contrôle d'image.
Malheureusement je ne trouve pas la solution pour pouvoir changer la photo du contrôleur d''image du userform. A savoir que tous les contrôleurs d'image dans le fichier portent le nom de la personne.

Voici mon code:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim line, i As Integer
Dim tabeau_presentation(), tableau_position() As String
Dim name As InkPicture
 
UserForm1.Label1.Caption = ""
UserForm1.Label2.Caption = ""
line = Target.Row
name = "toto"
 
tableau_presentation = Split(Range("R" & line), "*")
tableau_position = Split(Range("R" & line), "*")
 
If Left(Target.Address, 3) = "$D$" Or Left(Target.Address, 3) = "$E$" Then
    UserForm1.Label3.Caption = Range("E" & line) & " " & Range("D" & line) & " (" & Range("O" & line) & " , based " & Range("Q" & line) & ")"
    UserForm1.InkPicture1.Picture = ActiveSheet.name.Picture
    For i = 0 To UBound(tableau_presentation, 1)
        UserForm1.Label2.Caption = UserForm1.Label2.Caption & tableau_presentation(i) & Chr(10)
    Next i
    For i = 0 To UBound(tableau_position, 1)
        UserForm1.Label2.Caption = UserForm1.Label2.Caption & tableau_position(i) & Chr(10)
    Next i
    UserForm1.Show
End If
 
End Sub

Si quelqu'un a une solution même si en n'utilisant pas les contôleurs d'image.

Merci d'avance

[Monte_Carlo]

Personne n'a de solution pour mon problème ?