Rapport de message :*
 

Re: copier une image d'un feuille excel dans un userform

Titre du sujet : Re: copier une image d'un feuille excel dans un userform
par myDearFriend! le 14/11/2012 21:53:30

Bonsoir debeckyv, le Forum,

Oui, comme précisé dans la FAQ joindre un fichier à votre message : « ... pour des raisons de sécurité du site, le nom de votre fichier ne doit contenir qu'un seul caractère "." (point) réservé pour l'extension du fichier (.zip, .xls, etc...)... »

Cela dit, tu trouveras ci-joint une interprétation de ton fichier pour tenter de répondre à ta demande (dans cet exemple, placer la sélection sur une cellule quelconque de la ligne 4 et cliquer sur le bouton "Show Info").

J'ai fait usage d'un module de code (« modPastePicture ») issu des travaux du très grand Stephen Bullen, modifié et simplifié par le non moins grand et très regretté Thierry Pourtier (Ti).

Avec ce module de code repris tel quel, j'ai simplement ajouté le code suivant à ton userform « frmShowInfo » :
Private Sub UserForm_Initialize()
Dim Img As Shape
    'Insertion de l'image
    On Error Resume Next
    Set Img = Sheets("Data").Shapes("Picture$B$" & CStr(ActiveCell.Row))
    On Error GoTo 0
    If Not Img Is Nothing Then
        Img.CopyPicture xlScreen, xlPicture
        Set imgPic.Picture = PastePicture()
    End If
End Sub

En espérant t'avoir aidé...

Cordialement,