Je ne manquerai pas de transmettre ;-) -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
Frédéric Sigonneau
Bonjour,
Une autre approche possible :
Sub test() With Sheets("Feuil1") If .Range("A1").NoteText <> "" Then _ Sheets("Feuil2").Range("D10").Value = .Range("A1").NoteText End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous,
Quelqu'un pourrait-il me dire comment copier un commentaire, S'IL EXISTE d'une feuille sur une autre (voir sur une autre d'un autre classeur) ?
Pour info, j'essaye avec: "ActiveCell.Comment.Shape.OLEFormat.Object.Copy" et comme la tarte aux concombres; c'est pas bon !
Merci de votre aide et bon dimanche
Gg
Bonjour,
Une autre approche possible :
Sub test()
With Sheets("Feuil1")
If .Range("A1").NoteText <> "" Then _
Sheets("Feuil2").Range("D10").Value = .Range("A1").NoteText
End With
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous,
Quelqu'un pourrait-il me dire comment
copier un commentaire, S'IL EXISTE d'une feuille sur une autre
(voir sur une autre d'un autre classeur) ?
Pour info, j'essaye avec: "ActiveCell.Comment.Shape.OLEFormat.Object.Copy"
et comme la tarte aux concombres; c'est pas bon !
Sub test() With Sheets("Feuil1") If .Range("A1").NoteText <> "" Then _ Sheets("Feuil2").Range("D10").Value = .Range("A1").NoteText End With End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous,
Quelqu'un pourrait-il me dire comment copier un commentaire, S'IL EXISTE d'une feuille sur une autre (voir sur une autre d'un autre classeur) ?
Pour info, j'essaye avec: "ActiveCell.Comment.Shape.OLEFormat.Object.Copy" et comme la tarte aux concombres; c'est pas bon !
Merci de votre aide et bon dimanche
Gg
gégé
Salut Fred,
ton approche me parait plus que parfaite, voir même géniale !
tu as bien écouté et donc bien répondu !
"NoteText" ==> il fallait le savoir !??
Merci à J.François et à toi Fred pour votre aide précieuse !
Bons Progs et bons rêves !
Gg
Salut Fred,
ton approche me parait plus que parfaite, voir même géniale !
tu as bien écouté et donc bien répondu !
"NoteText" ==> il fallait le savoir !??
Merci à J.François
et à toi Fred pour votre aide précieuse !
