Ajouter commentaires depuis autre feuille

Bonjour le forum et joyeux noël,

J' ai 2 feuiiles: "SUIVI" sur laquelle il y a une colonne NOM "B" qui est modifiable.

"Enr" sur laquelle il y a différentes informations.

Ce que j'essaye de faire , c'est que si la valeur de la colonne A sur la feuille "Enr" est égale à la valeur de la colonne B de la feuille "SUIVI" + la valeur de la ligne 4 de la feuille "SUIVI" alors la valeur de la colonne E de la feuille "Enr" s'integre à l'intersection de ces 2 valeurs sous forme de commentaire.

ex: A2 de "Enr" = "Mr CHARLIE C2" alors D7 de "SUIVI" = "12/10/2017" en commentaire.

Merci.

Bonjour,

les commentaires se mettent à jour en quittant la feuille Enr.

Private Sub Worksheet_Deactivate()
    Dim datas, c As Range, lig As Long
    datas = [A1].CurrentRegion.Value
    For lig = 2 To UBound(datas)
        Set c = Sheets("SUIVI").Columns(2).Find(datas(lig, 2), , xlValues, xlWhole)
        If Not c Is Nothing And datas(lig, 5) <> "" And datas(lig, 6) <> "" Then
            With c.Offset(, datas(lig, 6))
                .ClearComments
                .AddComment Format(datas(lig, 5), "dd/mm/yyyy")
                .Comment.Shape.TextFrame.AutoSize = True
            End With
        End If
    Next lig
End Sub

eric

edit : ajout fichier oublié

Merci eriiic, c'est parfait.