Insertion automatique photo en fonction valeur d'1 cellule

Résolu
marie -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

4 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 731
     
    Bonjour,

    Regarde ceci, si cela te convient. On pourra toujours l'adapter pour une cellule:

    http://www.cjoint.com/c/EGDf5guXOXQ
    0
    1. marie
       
      Merci pour cette réponse rapide, mais ça ne correspond pas vraiment à ce que je cherche à faire (mais en même temps, j'ai un niveau basique en Excel).
      Voici le document sur lequel je travaille + les images que je cherche à insérer
      http://www.cjoint.com/c/EGDmHXvz8OR
      Merci
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
     
    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.
    0
    1. marie
       
      Désolée, voici les images à insérer : http://www.cjoint.com/c/EGDm2PP2P7R
      Alors je souhaite insérer automatiquement 1 image en colonne D en fonction de la valeur de la colonne G : l'image D en D2 car G2 = D, rien en D3 car G3 est vide, l'image O en D4 car G4 = O ainsi de suite
      Merci
      0
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
     
    il suffit de double cliquer dans la colonne G pour que les images correspondantes s'affichent:

    http://www.cjoint.com/c/EGDoEbMoMTQ
    0
    1. marie
       
      Super! Merci beaucoup
      0
  4. cs_Le Pivert Messages postés 8437 Statut Contributeur 731
     
    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


    0