Macro pour afficher une photo....

merci

Voici un exemple de code si le chemin des cellules se trouve dans la valeur de la cellule.

à placer dans le code de la feuille.

Dim picIsDisplay As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If picIsDiplay Then ActiveSheet.Pictures.Delete ' Effacera toutes les images de la feuille

If Not Application.Intersect(Target,Range("M:M")) is Nothing the
On Error Goto fin
ActiveSheet.Pictures.Insert(Target.value).Select
picIsDisplay = True
On Error Goto -1
Cancel = True 
End If

Exit sub
fin:
Msgbox "Impossible d'afficher l'image.", vbCritical
Cancel = True
End Sub

Même exemple, mais si le chemin des images est dans le code :

Dim picIsDisplay As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If picIsDiplay Then ActiveSheet.Pictures.Delete ' Effacera toutes les images de la feuille

If Not Application.Intersect(Target,Range("M:M")) is Nothing the
On Error Goto fin
Select Case Target.Row
Case 9 'Pour la ligne 9
ActiveSheet.Pictures.Insert("C:\Users\ALI SAIDI\Desktop\New folder (3)\la photo.jpg").Select
Case 10 'Pour la ligne 10
ActiveSheet.Pictures.Insert("C:\Users\ALI SAIDI\Desktop\New folder (3)\la photo2.jpg").Select
Case 11,12 ' Pour la ligne 11 et 12
ActiveSheet.Pictures.Insert("C:\Users\ALI SAIDI\Desktop\New folder (3)\la photo3.jpg").Select
Case 1 To 8 ' Pour la ligne 1 à 8
ActiveSheet.Pictures.Insert("C:\Users\ALI SAIDI\Desktop\New folder (3)\la photo4.jpg").Select
End Select
picIsDisplay = True
On Error Goto -1
Cancel = True 
End If

Exit sub
fin:
Msgbox "Impossible d'afficher l'image.", vbCritical
Cancel = True
End Sub

merci je vais vous expliqué mieux
on ma demandé de crée de base de données l'une pour les contactes et l'autres pour les factures. donc deux feuils excel avec un tableau contenant non prénom ......
et numéro facture, fournisseur..... je veux pour les deux tableau mettre une photo scannée du contact et de la facture les photos se situent dans un dossier
mais le boss veux pas voir les photos sauf s'il clique sur la cellule cliqué pour afifiché et cliqué pour disparaître
la je suis coincé

C'est fesable si les nom des photos qui contienne le contact des clients est toujours le même. Par exemple, le n° de client.jpg et que pour la factures ça soit toujours le n° de facture.jpg.

Si elles sont stocker dans un dossier "\Images\Clients\" et "\Images\Factures" là c'est très simple.

Suffis que lorsque on clique sur la cellule, ça aille chercher le numéro de facture par exemple dans la colonne A, puis, le programme ira chercehr l'image sous "\Images\Factures\" & NoFacutre & ".jpg".

D'alleur au lieu d'afficher l'image sur la feuille excel, tu peux faire apparaitre une fenêtre (Userform) avec l'image dedans.

Ce n'est pas super compliquer, mais ce n'est pas super génial non plus. Car ça veux dire que chaque facture doit avoir une image, et que chaque client aussi, si non cela génèrera une erreure qu'il faudra gérer.

Oui chaque contact a une image et de meme pour les facture
Mais les fichiers contact et facture sont separes j ai cree deux fichier excel separes
Vous pouvez me montrer comment faire svp je dois finir ca ce soir et je debute avec vba

svp je suis vraiment coincé je suis entrein de faire une formation en vba mais j'avance pas trop et vous connaissais les patrons ils pense que 2 heures de cours suffisent....

Non non du moins pas encore

Il y a aussi:

Import d'images d'un répertoire

Celui là est très intéressant!

merci beacoup