[jtitin]

bonjour Ponge


Ajouter un commentaire à une cellule lorsque elle est modifiée et égale à une certaine valeur

Avec une procédure événementielle .
Exemple sur une plage de cellulesA1:B10 et la valeur doit être 10

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
If Target = 10 Then
With Range(Target.Address)
.AddComment
.Comment.Text Text:="La valeur de la cellule est égale à 10"
End With
Else: Range(Target.Address).ClearComments
End If
End If
End Sub