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

XL 2019 insérer un commentaire selon la valeur de la cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion oukthr
  • 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
O

oukthr

XLDnaute Nouveau
Bonjour, comme exprimé dans le titre, j'aimerai bien une aide pour inserer un commentaire automatiquement selon la valeur de la cellule,
par exemple, j'ai un tableau avec des références correspondants à des désignation, j'aimerai que quand je met la référence dans une cellule, un commentaire contenant la désignation correspondante s'insère dans cette cellule, comme dans la feuille cal, cellules B2 et C2 dans le fichier joint.
Merci d'avance.
 

Pièces jointes

Solution
Bonjour @oukthr🙂, @TooFatBoy 😉,

Voici la v3 sans tableau structuré :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TS As ListObject, plage As Range, xrgRef As Range, x, n
 
   With Sheets("liste")
      If .FilterMode Then .ShowAllData
      Set xrgRef = .Range("a1").CurrentRegion.Columns("a:b"): End With
   With Sheets("Cal")
      n = .Range("a1").End(xlToRight).Column
      Set plage = .Range("a1").CurrentRegion.Offset(, 1).Resize(, n - 1)
      On Error Resume Next
      For Each x In Intersect(plage, Target)
         x.Comment.Delete
         If x <> "" Then
            n = Application.Match(x, xrgRef.Columns(1), 0)
            If Not IsError(n) Then
               x.AddComment...
Trier par date Trier par votes
Bonsoir @oukthr 🙂,

Une solution par VBA.
Le commentaire se met à jour ou s'efface quand on modifie ou efface un user.
Le code est dans le module de la feuille"Cal".
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TS As ListObject, plage As Range, xrgRef As Range, x As Range, n

   Set xrgRef = Sheets("liste").Range("a1").ListObject.DataBodyRange
   With Range("a1").ListObject
      Set plage = .DataBodyRange.Offset(, 1).Resize(, .ListColumns.Count - 1)
      On Error Resume Next
      For Each x In Intersect(plage, Target)
         x.Comment.Delete
         If x <> "" Then
            n = Application.Match(x, xrgRef.Columns(1), 0)
            If Not IsError(n) Then
               x.AddComment
               x.Comment.Text Text:=xrgRef(n, 2)
            End If
         End If
      Next x
   End With
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 1 Vote négatif
Bonjour, désolé pour le dérangement, je pense avoir un problème, quand j'ai activer les partage du classeur, j'étais obligé de convertir les tableaux en plages normales, ce qui a pour effet que votre code ne marche plus.
 
Vote positif 0 Vote négatif
Bonjour @oukthr🙂, @TooFatBoy 😉,

Voici la v3 sans tableau structuré :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TS As ListObject, plage As Range, xrgRef As Range, x, n
 
   With Sheets("liste")
      If .FilterMode Then .ShowAllData
      Set xrgRef = .Range("a1").CurrentRegion.Columns("a:b"): End With
   With Sheets("Cal")
      n = .Range("a1").End(xlToRight).Column
      Set plage = .Range("a1").CurrentRegion.Offset(, 1).Resize(, n - 1)
      On Error Resume Next
      For Each x In Intersect(plage, Target)
         x.Comment.Delete
         If x <> "" Then
            n = Application.Match(x, xrgRef.Columns(1), 0)
            If Not IsError(n) Then
               x.AddComment
               x.Comment.Text Text:=xrgRef.Cells(n, 2).Value
            End If
         End If
      Next x
   End With
End Sub
 

Pièces jointes

Vote positif 1 Vote négatif
Solution
TooFatBoy à dit:
Bonjour,

Une proposition en pièce jointe, en attendant le retour du camarade à la magnifique pomme bleue.
Cliquez pour agrandir...

Bonjour, merci a tout les deux, les 2 codes me donnent le résultat que je cherchais, encore merci et bonne journé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

P
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
184
Payne
P
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
133
sylvanu
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
128
Yogean
Y
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
275
Guy_M
G
E
  • Résolu(e)
Microsoft 365 Fonction Si - Ne renvoie pas à la bonne référence
2
Réponses
22
Affichages
533
eoliv
E
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
J
  • Résolu(e)
Microsoft 365 afficher image selon valeur cellule
Réponses
2
Affichages
180
juju91
J
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
H
  • Question Question
XL 2010 taux en fonction de valeurs mini de cellules
Réponses
1
Affichages
295
JHA
J
K
  • Question Question
XL 2016 Tiret ligne graphique
Réponses
4
Affichages
307
Karen38000
K
L
  • Résolu(e)
Autres Lier une cellule texte a une cellule valeur ou utiliser la formule max avec du texte
Réponses
4
Affichages
159
LBE
L
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
202
mamarus1
M
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
375
Perceval973
P
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
150
patricktoulon
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
229
Thomas75
T
I
  • Résolu(e)
XL 2021 Somme cellule a droite du critère 1 ligne plusieurs colonnes
Réponses
5
Affichages
278
Idealnight
I
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
145
Phil69970
  • Question Question
Microsoft 365 Calculer le nombre de valeur
Réponses
5
Affichages
143
Jean-Eric
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
991
jojo4738
J
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
924
fanfan38
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…