XL 2019 Sélection, Résolution et visualisation d'image

[ARaul]

Bonsoir chers Experts à divers niveaux. ça fait très longtemps que j'ai pris par ici.

Aujourd'hui je voudrais solliciter votre assistance sur trois grandes difficultés:

1. Affichage de l'image après sélection d'une ligne de la listview.
Lorsque je clique sur une ligne du Listview2 (Userform 1) et qu'une image avait été enregistrée, celle-ci s'affiche normalement. Maintenant le problème est que lorsque je clique ensuite sur une ligne où aucune image n'avait été enregistrée; au lieu de ne rien afficher, l'image de la récente ligne sélectionnée s'affiche. Voir fichier

2. Mauvaise résolution de l'mage
La résolution de l'imge qui s'affiche est mauvaise lorsque je clique sur une ligne du Listview où une image avait été enregistrée. Voir fichier

3. La visualisation de l'image (Userform2, Image 1) de la ligne sélectionnée dans le listview2 ne répond pas en un coup (bouton Voir Pic, Userform 1).
Il faut d'abord cliquer une première fois sur le bouton puis le userform de visualisation apparaîtra sans aucune image et il faut ferme puis cliquer encore une deuxième fois sur le bouton avant que l'image s'affiche. Voir fichier

 

[fanch55]

Bonsoir,
1. Code modifié dans Userform1 :

Function show_picture_in_image_frame_INSCRIPTION()
Dim MyUrl As String
    MyUrl = ActiveWorkbook.Path & TextBox16.Value
    If TextBox16.Value = "" Or Dir(MyUrl) = "" Then
        Me.Image1.Picture = Nothing
    Else
        Me.Image1.Picture = LoadPicture(MyUrl)
    End If
End Function

2. Je ne rencontre pas ce cas, mais je n'ai pas vos images .
3. Code modifié dans Userform1 :

Function VisualisePictureInImage_INSCRIPTION()
    If Not UserForm1.Image1.Picture Is Nothing Then
        UserForm2.Image1.Picture = UserForm1.Image1.Picture
        UserForm2.Image1.PictureSizeMode = fmPictureSizeModeStretch
        UserForm2.Show
    Else
        MsgBox "Aucune image à afficher.", vbExclamation
    End If
End Function