Contrôleur d'image et userform
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:
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
