Formule pour insérer des images en fonction d'une recherche de nom
Bonjour,
Je voudrais savoir s'il y avait une formule pour insérer des images directement à partir d'un dossier local sur le Pc,
Exemple théorique: RechV("code barre";"disque dur C/image";Faux)
Je voudrais donc insérer une photo dans une cellule en cherchant le code barre du produit, bien sûr le nom de la photo à le nom du code barre,
Merci de votre aide!
Bien à vous,
Robert
Bonjour Rogany,
Il existe plusieurs manières de traiter l'insertion d'images.
Vu que tu ne précises pas trop si l'image est toujours insérée sur une cellule fixe et toujours la même cellule (façon Logo).
Je suppose qu'elle sera placée juste à côté du code barre. Et que cette image a la taille de la cellule.
Donc vois si le code réalisé ci-dessous te convient. Il ajoute une fonction personnalisée.
Function Img(codbar As String)
'Codbar doit être inscrit entre guillemets "123...etc...789"
'La cellule B1 est le nom d'utilisateur.
If Range("B1") = "" Then MsgBox ("Erreur"): Exit Function
'Les codes Barre au format jpg sont ici dans le dossier Image
Repert = "C:\Users\" & Range("B1") & "\Pictures\"
Set Image = ActiveSheet.Pictures.Insert(Repert & codbar & ".jpg")
Image.Left = ActiveCell.Offset(, 1).Left
Img = codbar
End FunctionIl suffit de le copier dans un module de l'éditeur VBA.
Faire ALT F11 puis CTRL R
Ensuite par clic droit de la souris. Faire insertion module et coller dans la fenêtre ouverte.
Après sur la feuille Excel inscris dans une cellule = Img("le n° de code barre").
Bons tests, bonne continuation.