Modif d'un code

Bonjour le forum,

J'ai ce code, mais il ne me fais pas tout à fait l'affaire, je souhaiterais rester dans la même feuille. Si je mets un commentaire en cellule z10 de la feuille 1 est-il possible de le retrouver en b4 toujours sur la feuille 1

Merci de votre aide

Gérard

Private Sub Worksheet_Activate()

Dim c As Range

With Sheets("Feuil1")

'avec feuille 1

For Each c In .Range("A1:A10")

If c.Comment Is Nothing Then

Sheets("Feuil2").Range(c.Address) = c

Else

Sheets("Feuil2").Range(c.Address) = c.Comment.Text

End If

Next c

End With

End Sub

Bonjour,

Actuellement ton code regarde en feuille Feuil1 dans la plage A1:A10, s'il y a un commentaire il l'écrit en Feuil2 dans la même cellule sinon il écrit le contenu de la cellule.

Tu parles de Z10 et B4, c'est uniquement celles là où ça peut être variable ?

A+

Bonjour

Pour faire ce que tu demandes:

Private Sub Worksheet_Activate()
   Range("Z10").Select
    Selection.Copy
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Cordialement

Amadéus bonjour,

Je me suis mal exprimé: je souhaiterais retrouver la valeur de la cellule Z10 de la feuil 1 dans le commentaire de la B4 toujours sur la feuil1

Désolé pour ce manque de précition

Cordialement

Gérard

Bonsoir,

essaie ce code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'MAcro Dan pour Paludot le 6/10/2010
If Not Intersect(Target, Range("Z10")) Is Nothing Then
If Not Range("B4").Comment Is Nothing Then Range("B4").ClearComments
Range("B4").AddComment Target.Text
End If
End Sub

Code à placer dans la feuil1

Dès que tu changeras la cellule Z10, le commentaire en cellule B4 sera adapté.

Amicalement

Bonjour Dan,

Merci, pout-on faire en sorte que le commentaire reste masqué, la valeur de la cellule z10 et obtenue par l'intermédiaire d'un NBVAL de la colonne b10:b40 le commentaire ne se mets pas à jour, même si je ferme et ré-ouvre le fichier.

Je joint le fichier

Merci bonne journée

Amicalement

Gérard

Re,

Hum, tu n'avais pas dit que Z10 était le résultat d'une formule.

Le code est à modifier donc.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'MAcro Dan pour Paludot le 6/10/2010
If Not Range("B4").Comment Is Nothing Then Range("B4").ClearComments
Range("B4").AddComment Range("Z10").Text
End Sub

Amicalement

re Dan,le forum

Merci le principe est bon, est-il possible de le masquer ?

Merci

G......

re,

est-il possible de le masquer ?

Je ne vois pas de quoi tu parles. Le commentaire est recréé chaque fois le code et n'est jamais affiché, sauf si tu passes sur la cellule B4 avec ta souris.

Sinon essaie en ajoutant ce code :

Range("B4").Comment.Visible = False

Amicalement

Bonjour Dan,le forum

Super Nickel il manquait juste le petit bout qui fais la différence, masquer le commentaire.

Merci beaucoup

Amicalement

Gérard