Insertion automatique photo en fonction valeur d'1 cellule [Résolu/Fermé]

Signaler
-
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
-
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

Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
Bonjour,

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

http://www.cjoint.com/c/EGDf5guXOXQ
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
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
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.
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
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
il suffit de double cliquer dans la colonne G pour que les images correspondantes s'affichent:

http://www.cjoint.com/c/EGDoEbMoMTQ
Super! Merci beaucoup
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
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