Commentaire auto

Bonjour.
Mets ce code dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
If Target.Comment Is Nothing Then
Target.AddComment
Target.Comment.Text Text:=[A3].Comment.Text
End If
End If
End Sub

--
Cordialement.
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 2386CDB2-2245-4E9D-ACC0-0EA70B307118@microsoft.com...

Bonjour à toutes et à tous,
Excel 2003.
J'ai un commentaire en A3.
Existe-t-il une ligne de code qui me permettrait d'insérer ce même
commentaire à chaque saisie d'une info dans une autre cellule de la col A
(en
a4, a5....).
Merci d'avance pour votre aide
Michel

Bonjour Daniel.C
Merci pour ta réponse rapide. C'est nickel, tout fonctionne.
Cordialement
Michel69

"Daniel.C" a écrit :

Bonjour.
Mets ce code dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
If Target.Comment Is Nothing Then
Target.AddComment
Target.Comment.Text Text:=[A3].Comment.Text
End If
End If
End Sub

--
Cordialement.
Daniel
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 2386CDB2-2245-4E9D-ACC0-0EA70B307118@microsoft.com...
> Bonjour à toutes et à tous,
> Excel 2003.
> J'ai un commentaire en A3.
> Existe-t-il une ligne de code qui me permettrait d'insérer ce même
> commentaire à chaque saisie d'une info dans une autre cellule de la col A
> (en
> a4, a5....).
> Merci d'avance pour votre aide
> Michel