bonjour a tous
je voudrais realiser un tableau pour mon travail !
voila ce que je voudrais faire !
j ai pris des photos numerote de 1 a 100 ! je voudrais que sur la feuille 1 , lorsque je clic sur une cellule qui correspond a la photo 1 par exemple , que la photo apparaisse !
la feuille 1 prend en compte 3 niveaux de couleur : rouge , bleu et vert !
j espere etre assez clair sinon j essairais de m expliquer un peu mieux !
merci d avance
Hello,
Voila un petit bout de code que j'ai rédigé il y a quelques années qui correspond à peut prés à ce que tu recherche. En fait ca rajoute la photo en commentaire dans la cellule de ton tableau. Quand tu passe la souris tu la vois.
VB:
Sub Ajout_images()
'
' Ajoute des images sous forme de commentaire
'
'
Dim C As Range, Chemin As String
Chemin = InputBox("A quel emplacement se trouvent les images ?", "Chemin des images")
For Each C In Selection
If C.Value <> "" And Dir(Chemin & C.Value) <> "" Then
C.AddComment
C.Comment.Visible = False
C.Comment.Shape.Fill.UserPicture Chemin + C.Value
C.Comment.Shape.Height = 300
C.Comment.Shape.Width = 300
End If
Next C
End Sub
Comment ca marche : tu selectionne les cellule qui contienne le nom de l'image (avec son extension) ensuite tu lance la macro. Elle va te demander le chemin des images. Tu le colle dans la boite de dialogue. Et toutes les images présentes dans le dossier vont être mis en commentaire des cellules
Hello,
Voila un petit bout de code que j'ai rédigé il y a quelques années qui correspond à peut prés à ce que tu recherche. En fait ca rajoute la photo en commentaire dans la cellule de ton tableau. Quand tu passe la souris tu la vois.
VB:
Sub Ajout_images()
'
' Ajoute des images sous forme de commentaire
'
'
Dim C As Range, Chemin As String
Chemin = InputBox("A quel emplacement se trouvent les images ?", "Chemin des images")
For Each C In Selection
If C.Value <> "" And Dir(Chemin & C.Value) <> "" Then
C.AddComment
C.Comment.Visible = False
C.Comment.Shape.Fill.UserPicture Chemin + C.Value
C.Comment.Shape.Height = 300
C.Comment.Shape.Width = 300
End If
Next C
End Sub
Comment ca marche : tu selectionne les cellule qui contienne le nom de l'image (avec son extension) ensuite tu lance la macro. Elle va te demander le chemin des images. Tu le colle dans la boite de dialogue. Et toutes les images présentes dans le dossier vont être mis en commentaire des cellules