Jette un oeil là , ça pourrait te donner des idées...
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
AV
Merci mais ceci ne correspond pas à ce que je voudrais.
Jette un oeil là , ça pourrait te donner des idées...
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
AV
Merci mais ceci ne correspond pas à ce que je voudrais.
Jette un oeil là , ça pourrait te donner des idées...
http://www.excelabo.net/moteurs/compteclic.php?nom=av-trombinoscope
AV
Merci mais ceci ne correspond pas à ce que je voudrais.
Je ne peux placer toutes les photos en visuel permanent sur une feuille
de notes car cela occuperait trop de place écran.
Je ne peux placer toutes les photos en visuel permanent sur une feuille
de notes car cela occuperait trop de place écran.
Je ne peux placer toutes les photos en visuel permanent sur une feuille
de notes car cela occuperait trop de place écran.
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Intéressant... Je vais essayer MERCI.
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" a écrit dans le message de news:bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message de news: C2F48ADB-83F2-48A1-BD24-469B03E483B8@microsoft.com...
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" a écrit dans le message de news:bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
salut,
pas mal effectivement. Ceci dit ca te fait des commentaires parfois un peu
grands , non ?
M'enfin, ca dépend de ce qu'on veut.
A+Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" a écrit dans le message de news:bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
salut,
pas mal effectivement. Ceci dit ca te fait des commentaires parfois un peu
grands , non ?
M'enfin, ca dépend de ce qu'on veut.
A+
Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message de news: C2F48ADB-83F2-48A1-BD24-469B03E483B8@microsoft.com...
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
salut,
pas mal effectivement. Ceci dit ca te fait des commentaires parfois un peu
grands , non ?
M'enfin, ca dépend de ce qu'on veut.
A+Bonjour,
Je n'avais pas pensé à utiliser la propriété "motifs et textures" pour afficher l'image dans un commentaire. Je vais me le noter dans mes tablettes.
Pour éviter de placer les images ôbligatoirement dans un même dossier, je propose un additif à ta solution.
En même temps, ça n'oblige plus à avoir uen correspondance entre nom image et nom élève.
Pendant que j'y étais, j'ai aussi adapté la taille du commentaire à celle de l'image.
Je suis moyennement satisfait de ma méthode... mais bon ça fonctionne chez moi ;o))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Plig! = 2 'première ligne zone active
Dlig! = 60 'dernière ligne zone active
Pcol! = 1 'première colonne zone active
Dcol! = 2 'dernière colonne zone active
If Not (Intersect(Target, Range(Cells(Plig, Pcol), Cells(Dlig, Dcol))) Is Nothing) Then
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
ext$ = "images Gif, *.gif,images Jpeg, *.jpg,images Bmp, *.bmp"
photo$ = Application.GetOpenFilename(ext, 2, "Choisir une photo", "Choisir")
If photo <> "Faux" Then
ActiveSheet.Pictures.Insert(photo).Select
With Cells(Target.Row, Dcol)
.AddComment
.Comment.Shape.Fill.UserPicture photo
.Comment.Shape.Width = Selection.Width
.Comment.Shape.Height = Selection.Height
End With
Selection.Delete
End If
End If
End If
End Sub
Bonne continuation à tous.
Rai
"anomymousA" a écrit dans le message de news:bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà , le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
J'ai cliqué droit sur le nom de la feuille de calcul puis j'ai intégré
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+
Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel: daniel.methot@libertysurf.fr
J'ai cliqué droit sur le nom de la feuille de calcul puis j'ai intégré
bonjour,
je peux te proposer la chose suivante. On admet que tu as dans un répertoire
les photos de tes étudiants et que chacune de celles-ci ci sont dentifiées
par le nom des étudiants contenus dans chacune des cellules excel sur
laquelle tu vas double cliquer.
Dans ces conditions, tu peux écrire dans le module de la feuille la
procédure suivante
Le principe est le suivant. Quand tu doubles cliques sur la cellule, le
programme crée un commentaire s'il n'en existe pas et insère dans le
commentaire une image.
si le comentaire existe déjà, le double clic efface le commentaire.
dans l'exemple suivant,
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG" est le nom du
fichier. Tu peux remplacer ce chemin par le tien p.e en admettant que ton
étudiant s'appelle toto et que sa photo est stockée dans C:Photostoto.jpg.
On admet que la cellule sur laquelle tu doubles cliques contient toto donc
tu écris à la place de"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
"C:Photos" & target.value & ".JPG"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Intersect(Target.SpecialCells(xlComments), Target) Is Nothing Then
With Target
.AddComment
.Comment.Shape.Fill.UserPicture
"D:DONNEESPersonnelPersonnelPhotos121-2165_IMG.JPG"
End With
Else
Target.Comment.Delete
End If
End Sub
Ca peut etre amélioré bien sur
A+Bonjour,
Je désire intégrer la photo d'un élève dans une cellule excel, ou plutôt,
j'aimerai que sa photoi apparaisse, un peu comme un commentaire, quand je
clique sur la cellule contenant son nom.
Comment faire cela ?
PS: J'ai numérisé toutes les photos d'identité.
--
Cordialement
_______________________
Daniel METHOT
mel:
J'ai cliqué droit sur le nom de la feuille de calcul puis j'ai intégré
