Ajouter un commentaire sous condition VBA

[ExcelDow]

Bonjour à tous et bonne fin d'été,
Ce code, que j'ai téléchargé sur le net, ajoute un commentaire si l'on saisi "0" dans une cellule,
mais sur toute la feuille. C'est intéressant, mais, j'aimerais utiliser ce code dans la colonne "A".
Y aurait-il, s'il vous plaît, un membre qui pourrais me dépanner ??
Merci et A+++++

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 And Target <> "" Then
Target.Select
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:= _
""" une opération sans frais n'existe pas, merci de corriger""."
Else
Target.ClearComments
End If
End Sub

 

[ExcelDow]

Voici le classeur
Merci

 

[pierrejean]

Bonjour

Vois si cela te convient

 

[ExcelDow]

Bonjour Pierrejean,
Impeccable, merci beaucoup Pierrejean de votre aide, bon dimanche à vous.
A+++++

 

[ExcelDow]

Re Bonjour Pierrejean,
Est-ce que vous êtes toujours en ligne ??
J'ai un petit souci s'il vous plaît pourriez vous m'aider, lorsque j'utilise une formule par exemple en colonne "E", je dois faire double clic sur la cellule pour afficher le commentaire, comment corriger cette erreur Pierrejean ??
Merci
A++++

 

[pierrejean]

Vois si cela convient
NB: Lorsqu'une cellule contient une formule Excel ne voit pas changement

 

[Jacky67]

Bonjour à tous et bonne fin d'été,
Ce code, que j'ai téléchargé sur le net, ajoute un commentaire si l'on saisi "0" dans une cellule,
mais sur toute la feuille. C'est intéressant, mais, j'aimerais utiliser ce code dans la colonne "A".
Y aurait-il, s'il vous plaît, un membre qui pourrais me dépanner ??
Merci et A+++++

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 And Target <> "" Then
Target.Select
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:= _
""" une opération sans frais n'existe pas, merci de corriger""."
Else
Target.ClearComments
End If
End Sub

Bonjour,
Avec une liste de validation en Colonne2

 

[BOISGONTIER]

Bonjour,

Fonction perso d'un commentaire conditionnel

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCmtAffiche3.xls

-La Maj est automatique
-Réutilisable
-Peut être utilisé par une personne ui ne connaît pas VBA

JB

 

[ExcelDow]

Vois si cela convient
NB: Lorsqu'une cellule contient une formule Excel ne voit pas changement

Re Bonjour Pierrejean,
J'ai un peux de retard pour vous répondre en m'excusant, et un grand merci de m'avoir répondu.
Alors super, ça fonctionne tip top. C'est juste ce que je voulais. Merci Pierrejean et bonne soirée
A++++

 

[ExcelDow]

Bonjour,
Avec une liste de validation en Colonne2

Bonsoir Jacky67,
A oui, merci beaucoup, une variante qui fonctionne aussi bien.
Extra, et merci beaucoup de votre aide
A+++++

 

[ExcelDow]

Bonjour,

Fonction perso d'un commentaire conditionnel

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionCmtAffiche3.xls

-La Maj est automatique
-Réutilisable
-Peut être utilisé par une personne ui ne connaît pas VBA

JB

Bonsoir à vous Boisgontier,
Et merci beaucoup de votre aide, c'est fantastique toutes ces aides, ça fais du bien de trouver un peux d'aide dans les soucis d'Excel, surtout pour moi en VBA.
Bonne soirée et A+++++