Insérer une photo dans une cellule

Bonjour, à partir d'un userform je charge une photo, je rentre un nom et un prénom dans 2 textbox et je voudrais qu'a l'enregistrement ma photo entre dans une cellule comme nom et prenom.

Est il possible de mettre la photo au même dimension que le cadre image.

je joins un exemple .

Merci pour votre aide

Bonjour,

Une image (ou une photo) ne peut pas étre "attachée" à une cellule, c'est un objet posé sur une feuille de calcul.

Donc, navré mais pas de solution a ta demande

LESREMONTEES a écrit :

Bonjour, à partir d'un userform je charge une photo, je rentre un nom et un prénom dans 2 textbox et je voudrais qu'a l'enregistrement ma photo entre dans une cellule comme nom et prenom.

Est il possible de mettre la photo au même dimension que le cadre image.

je joins un exemple .

Merci pour votre aide

bonjour, est il possible de recupérer le chemin de la photo si il n'est pas possible de la mettre dans une cellule et d'enregistrer le chemin dans la cellule.

merci

Le recupérer par du code VBA peut etre, je ne suis pas assez calé pour cela

Par contre, vous pouvez mettre un lien hypertexte sur le fichier de la photo (insertion, lien hypertext

Salut le forum

A adapter selon tes besoins

    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single

    L = Range("B2").Left
    T = Range("B2").Top
    W = Range("B2").Width
    H = Range("B2").Height

    Image = Application.GetOpenFilename
    If Image <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
    End If

Mytå

Mytå a écrit :

Salut le forum

A adapter selon tes besoins

    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single

    L = Range("B2").Left
    T = Range("B2").Top
    W = Range("B2").Width
    H = Range("B2").Height

    Image = Application.GetOpenFilename
    If Image <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
    End If

Mytå

Bonsoir Mytå et merci pour avoir cherché la solution mais sur le code ci-dessus l'image chargée est toujours en "B2", ce que je voudrais c'est que l'image soit dans la cellule qui correspond à l'enregistrement. Je ne sais pas si j'ai éte assez clair sur mes explications. J'ai joins un fichier dans mon premier message.

Merci

Re le forum

Remplace Range("B2") par Cells(lignesuivante, 5)

Mytå

P.S. Au-lieu d'utiliser le bouton «Citer» utilise celui au bas du message «Répondre»

Bonsoir, l'image se met bien sur la cellule et la colonne 5 de la Feuil1, mais est il possible de mettre l'image sur la cellule et la colonne E2 de la Feuil2 ,et également que la photo soit visible sur mon userform dans le contrôle Image1 avant d'enregistrer.

Je voudrais également que à chaque enregistrement l'image soit sur la cellule suivante E3,E4 ......etc

Je ne sais pas si c'est bien exprimé.

Encore une nouvelle fois merci à vous le forum

Private Sub CommandButton2_Click()
Dim lignesuivante As Long
Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single

Sheets("Feuil1").Activate
'determination de la prochaine ligne
lignesuivante = Application.WorksheetFunction. _
CountA(Range("B:B")) + 1
'---- transfert base
Cells(lignesuivante, 3) = nom.Value
Cells(lignesuivante, 4) = prenom.Value
Cells(lignesuivante, 1).FormulaR1C1 = "=IF(AND(RC[2]<>"""",RC[3]<>""""),MAX(R1C1:R[-1]C)+1,"""")"
Cells(lignesuivante, 2).FormulaR1C1 = "=RC[1]&"" ""&RC[2]"

L = Cells(lignesuivante, 5).Left
    T = Cells(lignesuivante, 5).Top
    W = Cells(lignesuivante, 5).Width
    H = Cells(lignesuivante, 5).Height

    Image = Application.GetOpenFilename
    If Image1 <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub