Sujet Précédent Sujet Suivant

Excel: insértion d'image comme commentaire

Résolu/Fermé
nopo Messages postés 8 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 12 juillet 2010 - 6 juil. 2010 à 11:59
 bob - 12 juin 2017 à 15:26
Bonjour,

je travaille sur un petit projet d'excel pour la gestion de clients.

J'ai crée un excel de gestion qui travail ensemble avec un deuxieme excel pour les clients.

Maintenant il me faut un macro ou d autre solution pour inserer une image
en temps que commentaire sur une cellule.


Vous aurez de l'aide?


Mercii en avance


NOPO
A voir également:

3 réponses

Réponse 1 / 3
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
6 juil. 2010 à 12:25
Salut le forum

C'est assez simple à faire.
Sélectionne une cellule d'excel
1) Insertion / Commentaire un petit triangle rouge apparait
2) Supprime le texte qui se trouve à l'interieur
3) Clic sur le cadre hachuré puis clic droit : format de commentaire
4) Dans onglet couleur et traits / zone remplissage / couleur / motif et texture choisi l'onglet Image
5) Sélectionne une image de ton disque dur (ou tout autre support)
6) OK
7) OK

Mytå
5
bob
12 juin 2017 à 15:26
merci pour l'aide très bien expliqué
cordialement
0
Réponse 2 / 3
nopo Messages postés 8 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 12 juillet 2010
6 juil. 2010 à 14:38
Merci pour ta reponse Mytå.
Cette solution la est la plus facile et fonctionne nikel..

mais

ce n'es pas que je cherche.

Je m'explique mieux, ce fichier apres serai pris en charge par d'autre personne.
Qui fait donc que le fichier dois etre basé le plus simple possible.

Pour mes employer je pourrai pas leur expliker ce chemain pour mettre la photo du client sur la bonne place.

Il faut absolument ca en macro. Pour pouvoir l'appliquer sur un bouton ou pareille.

Esperont que ces infos vous aides.
0
dede
11 févr. 2015 à 08:23
super merci
0
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
6 juil. 2010 à 14:45
Salut,
Vu ici et légèrement modifié...: 

Sub Img_dans_Commentaire()
With Application.FileDialog(msoFileDialogFilePicker)
         .AllowMultiSelect = False         'Un seul Fichier possible
         .InitialFileName = CurDir         'Répertoire d'ouverture de la fenetre
         .Filters.Clear                    'Annuler les filtres au cas où
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
         .Title = "Choix de l'image"
    'verification au cas ou click sur annul dans la boite + lance la boite
         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'signaler à la personne qu'aucun fichier n'est choisi
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
Range("A1").AddComment
    Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
End Sub

Ajoutera en A1 (à adapter) un commentaire avec l'image sélectionnée...
0
nopo Messages postés 8 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 12 juillet 2010
6 juil. 2010 à 16:49
trés grand merci pijaku =)

c'est exactement ca que j'ai rechercher :D
et ca fonctionne niikel avec mon excel.

Maintenant pour amiliorer encore le macro (le rendre parfait pour mon cas :P )
ca serrai

que le macro insère l'image dans la cellule sélectionné..

donc sélectionner la cellule et puis afficher le commentaire sur la cellule sélectionner!

mercii pour tout =)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
7 juil. 2010 à 08:42
Salut,
Je me doutais un peu... Voici le même code adapté à ta situation. En fait, il suffit de remplacer dans le 1er code les : "range("A1")" ou "[A1]" par "activeCell" (cellule active). En gras ci dessous les modifications apportées : 
Sub Img_dans_Commentaire()
With Application.FileDialog(msoFileDialogFilePicker)
         .AllowMultiSelect = False         'Un seul Fichier possible
         .InitialFileName = CurDir         'Répertoire d'ouverture de la fenetre
         .Filters.Clear                    'Annuler les filtres au cas où
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
         .Title = "Choix de l'image"
    'verification au cas ou click sur annul dans la boite + lance la boite
         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
    End With
'signaler à la personne qu'aucun fichier n'est choisi
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
ActiveCell.AddComment
    ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Fill.UserPicture TheFile
End Sub
0
nopo Messages postés 8 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 12 juillet 2010
7 juil. 2010 à 14:10
ok mercii pour ton aide..
c'est exactement ca de ce que j'avais besoin pour mon excel.
maintenant j ai rajouter des petits fonction et j ai un peu amiliorer le macro avec un petit redimensionnement d'image à l'insertion.

Bon maintenant pour le rendre parfait mon petit excel... si tu veux bien m'aider encore ( :P )
ca serrai de coloré automatiquement les cellules dans les quelles il y a un commentaire.

Donc au moment ou un commentaire serrai rajouter sur la cellule que la en suivit la couleur de la cellule ( donc l'arriere plan) changerai avec.

Aprés ca j'aurai finit mon projet.. avec un très grand merci a vos aides...
Merci le Forum =)
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
Modifié par pijaku le 7/07/2010 à 14:35
au moment ou un commentaire serrai rajouter sur la cellule corresponds dans le code au passage : 
ActiveCell.AddComment 
    ActiveCell.Comment.Visible = True 
ActiveCell.Comment.Shape.Fill.UserPicture TheFile

Il suffit d'y ajouter : 
With ActiveCell.Interior 
        .ColorIndex = 3 
End With

Ce qui te donne : 
ActiveCell.AddComment 
    ActiveCell.Comment.Visible = True 
ActiveCell.Comment.Shape.Fill.UserPicture TheFile 
With ActiveCell.Interior 
        .ColorIndex = 3 
End With 
End Sub

3 = rouge pour les autres couleurs sous VBA télécharge ce fichier
0
nopo Messages postés 8 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 12 juillet 2010
7 juil. 2010 à 16:35
merci pijaku,
le macro fonction parfait!
c' était juste encore ca qui a manqué encore.

Merci en tout cas pour ton aide Pijaku.

Merci aussi au reste du Forum pour vos efforts envers mon problème:

Allez à la prochaine les geeks :P
0