Excel: insértion d'image comme commentaire

Résolu
nopo Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
 bob -
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   Statut Contributeur Dernière intervention   953
 
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
 
merci pour l'aide très bien expliqué
cordialement
0
Réponse 2 / 3
nopo Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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
 
super merci
0
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
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   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
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