Excel: insértion d'image comme commentaire

Résolu
nopo Messages postés 8 Statut Membre -  
 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

3 réponses

  1.
    Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    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
    1. bob
       
      merci pour l'aide très bien expliqué
      cordialement
      0
  2. nopo Messages postés 8 Statut Membre
     
    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
    1. dede
       
      super merci
      0
  3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    1. nopo Messages postés 8 Statut Membre
       
      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
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
    3. nopo Messages postés 8 Statut Membre
       
      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
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
    5. nopo Messages postés 8 Statut Membre
       
      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