Insertion automatique photo en fonction valeur d'1 cellule
Résolu
marie
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Insérer image automatiquement excel
- Insérer liste déroulante excel - Guide
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Word et excel gratuit - Guide
- Insérer sommaire word - Guide
4 réponses
Bonjour,
Regarde ceci, si cela te convient. On pourra toujours l'adapter pour une cellule:
http://www.cjoint.com/c/EGDf5guXOXQ
Regarde ceci, si cela te convient. On pourra toujours l'adapter pour une cellule:
http://www.cjoint.com/c/EGDf5guXOXQ
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.
De plus il n'y a aucune explication pour l'insertion des images!
Désolé dans ces conditions je ne peux rien faire.
il suffit de double cliquer dans la colonne G pour que les images correspondantes s'affichent:
http://www.cjoint.com/c/EGDoEbMoMTQ
http://www.cjoint.com/c/EGDoEbMoMTQ
Vu le nombre de ligne.
Si tu veux insérer toutes les images, tu mets ce code dans un Bouton:
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
Voici le document sur lequel je travaille + les images que je cherche à insérer
http://www.cjoint.com/c/EGDmHXvz8OR
Merci