XL 2016 Selection d'image dans un userform et envois dans une feuille

Myst · 6 Janvier 2021

Bonjour
je voudrais solliciter votre aide afin de faire un petit fichier qui fonctionnera comme indiqué ci-dessous.
1 - j'ouvre "l'userform1" en cliquant sur le "CommandButton1"
2- je clique sur "l'image1" dans "l'userform1" pour sélectionner une image
3- l'image apparais dans "image1" et le nom de celle-ci s'inscrire dans le "Label1"
4- je clique sur "Valider" et l'image est envoyé dans le contrôle Actives X de la feuil1 et le contenu du Label dans la cellule A1
voila, si quelqu'un peu m'aider, par avance merci

job75 · 6 Janvier 2021

Bonjour Myst,

Téléchargez les fichiers joints où vous voulez, de préférence dans le même dossier.

Le code de l'UserForm :

VB:

Dim fichier As Variant 'mémorise la variable

Private Sub CommandButton1_Click()
With Feuil1.Image1
    .Picture = LoadPicture(IIf(Label1 = "", "", fichier))
    .PictureSizeMode = fmPictureSizeModeStretch 'cadrage
    .Parent.[A12] = Label1
End With
End Sub

Private Sub Image1_Click()
Image1.Picture = LoadPicture("") 'RAZ
Label1 = "" 'RAZ
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename 'choix
On Error Resume Next 'si une image n'est pas choisie
Image1.Picture = LoadPicture(fichier)
Image1.PictureSizeMode = fmPictureSizeModeStretch 'cadrage
If Err = 0 Then Label1 = Mid(fichier, InStrRev(fichier, "\")...

job75 · 6 Janvier 2021

Bonjour Myst,

Téléchargez les fichiers joints où vous voulez, de préférence dans le même dossier.

Le code de l'UserForm :

VB:

Dim fichier As Variant 'mémorise la variable

Private Sub CommandButton1_Click()
With Feuil1.Image1
    .Picture = LoadPicture(IIf(Label1 = "", "", fichier))
    .PictureSizeMode = fmPictureSizeModeStretch 'cadrage
    .Parent.[A12] = Label1
End With
End Sub

Private Sub Image1_Click()
Image1.Picture = LoadPicture("") 'RAZ
Label1 = "" 'RAZ
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename 'choix
On Error Resume Next 'si une image n'est pas choisie
Image1.Picture = LoadPicture(fichier)
Image1.PictureSizeMode = fmPictureSizeModeStretch 'cadrage
If Err = 0 Then Label1 = Mid(fichier, InStrRev(fichier, "\") + 1)
Me.Repaint
End Sub

A+

XL 2016 Selection d'image dans un userform et envois dans une feuille

Myst

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires