Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inserer image de cellule A1 dans le commentaire de la cellule B2

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tennis
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tennis

XLDnaute Nouveau
Bonjour,

J'ai dans une liste A1:A10 des noms correspodant à des cellules B1:B10 à l'intérieur desquelles j'ai mis des dessins appropriés à chacune des cellules correspondantes...

Ensuite, en fonction du choix (d'aprés la liste A1:A10) que je vais effectué dans la cellule B2, j'aimerais que lorsque je survole cette même cellule, je puisse voir apparaître le commentaire avec l'image (B1:B10) dans le commentaire...

Merci beaucoup de m'aider dans cette recherche
 
Trier par date Trier par votes
Re : Inserer image de cellule A1 dans le commentaire de la cellule B2

Voir PJ

Les images ne sont ni nommées ni groupées.

Code: 
Récupération d'un champ dans un commentaire
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 Then
    répertoire = ThisWorkbook.Path
    lig = [liste].Find(Target, LookAt:=xlWhole).Row
    col = [liste].Column + 1
    Cells(lig, col).CopyPicture
    x = ActiveCell.Width
    y = ActiveCell.Height
    ActiveSheet.Paste Destination:=Range("A1")  'crée un shape
    Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    s.Copy
    With ActiveSheet
        .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
        .ChartObjects(1).Border.LineStyle = 0
        .ChartObjects(1).Chart.Export Filename:=répertoire & "\monimage.gif", FilterName:="gif"
        .Shapes(ActiveSheet.Shapes.Count).Delete
        .Shapes(ActiveSheet.Shapes.Count).Delete
    End With
    Target.Comment.Delete
    Target.AddComment
    Target.Comment.Shape.Fill.UserPicture répertoire & "\monimage.gif"
    Target.Comment.Shape.Height = y
    Target.Comment.Shape.Width = x
  End If
End Sub


JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Inserer image de cellule A1 dans le commentaire de la cellule B2

Rebonjour,

Désolé PJ mais je reviens vers vous pour une toute dernière modification... J'ai bien essayé mais impossible d'y arriver sans de l'aide...

En fait je souhaiterais simplement faire que ma base de shéma soit dans une feuille et que la sélection puis l'affichage des commentaires se passe dans une autre feuille...

Croyez-vous que ce soit possible de m'aider une toute dernière fois.

Merci beaucoup
 
Vote positif 0 Vote négatif
Re : Inserer image de cellule A1 dans le commentaire de la cellule B2

Voir PJ

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
    répertoire = ThisWorkbook.Path
    lig = [liste].Find(Target, LookAt:=xlWhole).Row
    col = [liste].Column + 1
    Sheets("dessins").Cells(lig, col).CopyPicture
    x = Sheets("dessins").Cells(lig, col).Width
    y = Sheets("dessins").Cells(lig, col).Height
    ActiveSheet.Paste Destination:=Range("A1")  'crée un shape
    Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    s.Copy
    With ActiveSheet
        .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
        .ChartObjects(1).Border.LineStyle = 0
        .ChartObjects(1).Chart.Export Filename:=répertoire & "\monimage.gif", FilterName:="gif"
        .Shapes(ActiveSheet.Shapes.Count).Delete
        .Shapes(ActiveSheet.Shapes.Count).Delete
    End With
    On Error Resume Next
    Target.Comment.Delete
    Target.AddComment
    Target.Comment.Shape.Fill.UserPicture répertoire & "\monimage.gif"
    Target.Comment.Shape.Height = y
    Target.Comment.Shape.Width = x
  End If
End Sub


JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Inserer image de cellule A1 dans le commentaire de la cellule B2

MERCI BEAUCOUP

C'est très gentil à vous d'avoir pris tout ce temps pour m'aider... Votre fichier semble fonctionner à merveille... J'espère également qu'il est possible d'effectuer l'affichage de commentaire dans plusieurs autres cellules que B2...

Merci encore
Bonne soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
324
Nico Gre
N
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
413
job75
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
490
Guy_M
G
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
305
sylvanu
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
V
  • Question Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
967
TooFatBoy
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
541
JHA
J
M
  • Question Question
XL 2021 COPIER valeur d'une cellule pour constituer un tableau de résultats
Réponses
13
Affichages
639
matlatarte
M
  • Résolu(e)
XL 2013 Automatisation de la Saisie et de l'Affichage des Textes dans une plage
Réponses
7
Affichages
617
chaelie2015
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
2 K
xxexcel
X
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
3 K
Dudu2
O
  • Résolu(e)
XL 2019 insérer un commentaire selon la valeur de la cellule
Réponses
8
Affichages
1 K
oukthr
O
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
1 K
fanch55
T
  • Question Question
Microsoft 365 extraire plusieurs parties de texte dans le contenu d'une cellule
Réponses
4
Affichages
841
Cousinhub
C
  • Question Question
XL 2019 Recherche depuis un tableau de mapping si un texte est contenu dans une cellule
Réponses
2
Affichages
1 K
R@chid
  • Résolu(e)
XL 2019 Envoyer un mail a partir d'Excel avec une image dans le corps
2
Réponses
19
Affichages
6 K
kiki29
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
868
JHA
J
C
  • Question Question
Autres Copier/Coller différentes données d'un tableau dans la même cellule de différents onglets
Réponses
8
Affichages
1 K
Camille36
C
M
  • Résolu(e)
Microsoft 365 Variabiliser la liste déroulante de B1 selon le contenu de A1
Réponses
1
Affichages
1 K
MOA_Excel
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…