Bonjour,
Pas sûr d'avoir bien compris où devait s'afficher l'image. Regarde le classeur joint. la macro du mosule de la feuille est :
1 2 3 4 5 6 7 8 9 10
| Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String
If Target.Address = "$G$22" Then
Chemin = "C:\Users\Daniel\Pictures\"
With Me.Image1
.Picture = LoadPicture(Chemin & Target.Value)
.PictureSizeMode = fmPictureSizeModeZoom
End With
End If
End Sub |
Tu dois modifier la ligne :
Chemin = "C:\Users\Daniel\Pictures\"
pour indiquer le chemin de tes images. Lorsque tu saisis le nom d'une image (avec l'extension) en G22, l'image s'affiche.
Partager