Menu

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

- - Dernière réponse : cs_Le Pivert
Messages postés
6110
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 juin 2019
- 30 juil. 2015 à 15:35
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
Afficher la suite 

4 réponses

Messages postés
6110
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 juin 2019
371
0
Merci
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
6110
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 juin 2019
371
0
Merci
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
6110
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 juin 2019
371
0
Merci
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
6110
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 juin 2019
371
0
Merci
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