Insertion automatique photo en fonction valeur d'1 cellule Résolu

Question

Bonjour,
j'ai un classeur excel comportant diverses données dont 1 intitulée "recommandations" en Colonne G. Je souhaiterais insérer automatiquement 1 photo en colonne D en fonction de la valeur de la colonne G.
Par ailleurs je possède les photos correspondantes nommées de la même façon que les valeurs possibles de G (en .jpg) dans un répertoire (C:\marie\photo\reco)
Est-ce que cela est possible? Sachant que je suis novice en macro...
Merci

cs_Le Pivert · Answer

Bonjour,

Regarde ceci, si cela te convient. On pourra toujours l'adapter pour une cellule:

http://www.cjoint.com/c/EGDf5guXOXQ

cs_Le Pivert · Answer

Il n'y a que le classeur sans images!
De plus il n'y a aucune explication pour l'insertion des images!

Désolé dans ces conditions je ne peux rien faire.

cs_Le Pivert · Answer

il suffit de double cliquer dans la colonne G pour que les images correspondantes s'affichent:

http://www.cjoint.com/c/EGDoEbMoMTQ

cs_Le Pivert · Answer

Vu le nombre de ligne.
Si tu veux insérer toutes les images, tu mets ce code dans un Bouton:

'afficher image
Private Sub CommandButton1_Click()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
image = ActiveSheet.Shapes.Count
If image > 0 Then Exit Sub
    Set FL1 = Worksheets("Liste médicaments")
    NoCol = 7 'lecture de la colonne 1
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        FL1.Cells(NoLig, NoCol).Select
    nom = FL1.Cells(NoLig, NoCol).Value
     Selection.Offset(0, -3).Select
       InsererImage
    Next
    Set FL1 = Nothing
End Sub

Insertion automatique photo en fonction valeur d'1 cellule

4 réponses

Votre réponse

Discussions similaires