Bonjour  
Toujours débutant  
 
comment copier un commentaire d'une cellule  d'un workbook dans une autre cellule d'un autre workbook ?  
 
J'ai essayé ca mais ca marche pas  :  
 
Cells(2, 2).ClearComments  
Cells(2, 2).Select  
Cells(2, 2).AddComment  
Workbooks(1).Worksheets(1).Cells(3, 3).Comment.Text Text:=Workbooks(2).Worksheets(1).Cells(2, 2).Comment
 
en vous remerciant d'avance

a oui j'ai oublié , soucrce : commentaire d'une cellule
cible = commentaire d'un cellule ( le commentaire doit allez dans une autre cellule mais toujours en commentaire !)

Bonjour,
sais-tu enregistrer une macro??

a oui , j y ai pas pensé lol

j'arrive pas  à le faire manuellement avec le collage spécial ...

tu as quelle version excel??

oula ca doit etre celle de 2001 ou d'avant , parce dans le collage spécial je vois pas le fameuf commentaire

Clique sur le point d'interrogation et sur  à propos

point d'interrogation =>botie dialogue quaimeriez vous faire ? option ou rechercher ..

Il doit être plus vieux que moi ton excel, je ne connais pas cette présentation

à adapter à ton cas, mais je ne suis pas certain que ton excel le supporte.
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("B6" ).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E6" ).Select
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

merci bcp ca marche tres bien !!
et pour copier une cellule d'un fichier dans un commentaire d'un autre chier ?

Mais essaye de réfléchir un peu à ce que tu as déjà fait et à ce que fait le code qu'on t'a donné.
T'as un  
Range("E6" ).Select  
et ton tes autres codes pour accèder à une cellule d'un fichier tu faisais :
Workbooks("indiv08.xls" ).Worksheets("PREVI" ).Cells(105, 3).Value
 
Essaye de t'en inspirer par toi même. C'est de la logique là.

ben !!! tu m'énerve !! justement je l'es deja essayer ..ca marche pas a cause du PasteSpecial Paste:=xlPasteComments

c'est bon il m'a donné la solution papou , il gere lol

Non mais t'es un marrant toi. Comment tu veux que je sache ce que t'as déjà essayé et que ça ne marche pas ?
Faudrait être plus précis quand tu poses une question alors plutôt que de te contenter de "comment faire [une fonction générale] ?" puis un "ça marche pas !" sans plus d'explications, on sait pas si c'est que ça compile pas, que ça plante en route avec quel erreur, si le code tourne mais fait ça au lieu de ça...
 
Fais voir ce que t'as essayé déjà.

Bonjour,
notre ami foxley... se disperse, je le contacte pour le = et il me demande pour le commentaire.....
Voici la réponse que j'ai postée en MP
 
 
 
a = range("b4" ).Value  
 
range("c4" ).ClearComments  
 If not (IsNull(a) Or a = "" ) Then range("c4" ).AddComment a  
 
Je pense qu'il aurait du poster lui même ici la réponse.
 
 
 

excuse moi j'ai oublier , c'est pas que je me disperse mais bon , ma patrone m'a donné une mission à faire ... et j'ai peur  de pas y arriver !

C'est pour cela qu'il faut s'y prendre calmement..., ne te plains pas, j'ai connu beaucoup de stagiaires qui restaient à ne rien faire pendant la durée du stage et qui n'étaient là que parce que c'est obligatoire, ou bien parce que cela fait bien.
 
Ceci dit, si tu nous plaçait ton projet dans son contexte, cela nous permettrait peut-être d'essayer de te mener vers une solution fiable.
 

je dois automatiser la production d'un fichier enorme ... mais je suis bloqué à cause 2 macro type .. cf les 2 autres post sur le forum