Microsoft 365 Commentaire conditionnel en fonction d'un tableau de référence

Mat2

XLDnaute Nouveau
Bonjour,

J'ai pu voir plusieurs forums sur la mise en place d'un commentaire automatique à partir d'une condition.
Malheureusement, je ne maîtrise pas encore très bien les macros sur Excel et j'ai besoin de votre aide pour résoudre mon problème.

Je cherche à mettre un commentaire ("Attention") intégré aux cellules de mon tableau dans la colonne C (sans cacher d'éventuelles données dans la colonne B et D).
Ce commentaire serait apparent uniquement pour les cellules contenant les textes suivants: "Personne A", "Personne E" et "Personne F".
Une particularité est que ces cellules doivent rester sous forme de RechercheV. Je ne sais pas si cela peut poser problème.

Je vous joins le fichier Excel.
Merci d'avance,
Amicalement,
 

Pièces jointes

  • Exemple.xlsx
    9.6 KB · Affichages: 3
Solution
OK. :) Alors un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:B15")) Is Nothing Then   ' B3:B15 à modifier selon besoin
        Dim DL%, L%, Nom$
        DL = Range("B65500").End(xlUp).Row
        For L = 3 To DL
            Nom = Cells(L, "C")
            If Nom = "Personne A" Or Nom = "Personne E" Or Nom = "Personne F" Then
                Cells(L, "C").ClearComments ' Au cas où un commentaire est déjà présent
                Cells(L, "C").AddComment
                Cells(L, "C").Comment.Text Text:="Attention ! " & Chr(10) & "Ceci est un commentaire."    ' Evidemment à modifier
            Else
                Cells(L, "C").ClearComments...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Mat,
Si le commentaire est "Attention" c'est pour avertir l'utilisateur d'un "danger" quelconque et appelle à une action.
Or, perso, un commentaire me semble peu visible et risque d'être non vu donc non traité.
Cela serait peut être plus visible par une MFC avec :
VB:
=OU($C3="Personne A";$C3="Personne E";$C3="Personne F")
 

Pièces jointes

  • Exemple (2).xlsx
    9.1 KB · Affichages: 2

Mat2

XLDnaute Nouveau
Bonjour sylvanu,

Merci pour ta réponse.
Sur le fichier final, j'ai déjà une Mise en Forme Conditionnelle sur cette colonne. Donc il est difficile de rajouter une autre couleur.
Le commentaire ne sera pas vraiment "attention" sur mon fichier final mais plutôt une phrase. Je cherche à faire en sorte que cette phrase soit comme dans les images ci-dessous.

Je ne peux malheureusement pas vous partager mon fichier.
Amicalement,
 

Pièces jointes

  • 1637080282457.png
    1637080282457.png
    11 KB · Affichages: 18
  • 1637080381903.png
    1637080381903.png
    18.2 KB · Affichages: 18

sylvanu

XLDnaute Barbatruc
Supporter XLD
OK. :) Alors un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:B15")) Is Nothing Then   ' B3:B15 à modifier selon besoin
        Dim DL%, L%, Nom$
        DL = Range("B65500").End(xlUp).Row
        For L = 3 To DL
            Nom = Cells(L, "C")
            If Nom = "Personne A" Or Nom = "Personne E" Or Nom = "Personne F" Then
                Cells(L, "C").ClearComments ' Au cas où un commentaire est déjà présent
                Cells(L, "C").AddComment
                Cells(L, "C").Comment.Text Text:="Attention ! " & Chr(10) & "Ceci est un commentaire."    ' Evidemment à modifier
            Else
                Cells(L, "C").ClearComments
            End If
        Next L
    End If
End Sub
A chaque modification de la colonne B, les commentaires sont ré évalués de façon automatique.
 

Pièces jointes

  • Exemple (3).xlsm
    18.2 KB · Affichages: 3

Discussions similaires