ExcelDow
XLDnaute Occasionnel
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
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