XL 2010 Copie de commentaire avec image dans une autre feuille.

[Francky79]

Bonsoir le forum,

Je n'arrive pas à adapter ce code pour copier une cellule avec commentaire image dans une autre feuille.
Copier la cellule (I) de la feuille (1) dans la cellule (B) de de la feuille (Alertes).
je pense qu'il faut utiliser .PasteSpecial Paste:=xlPasteComments mais après plusieurs essais pas moyen de trouver la bonne syntaxe.
Pouvez-vous m'aider ?

ZoneSelect = Range(Cells(ActiveCell.Row, "I"), Cells(ActiveCell.Row, "I")).Value
Sheets("Alertes").Select
derLig = [A1000000].End(xlUp).Row + 0
Range(Cells(derLig, "B"), Cells(derLig, "B")).Value = ZoneSelect
Sheets("Alertes").Select

Merci,

 

[Jacky67]

Copier la cellule (I) de la feuille (1) dans la cellule (B) de de la feuille (Alertes).

Bonjour,
2 pistes en PJ
Ceci copie la totalité de la cellule sélectionnée(colonne i) de la feuil1 vers la colonne B de la feuille "Alertes" selon la dernière ligne de la colonne A

Sub CopierCollerTout()
Dim Derlg&
    With Sheets("Alertes")
        Derlg = .Cells(.Rows.Count, "a").End(xlUp).Row
        Feuil1.Cells(ActiveCell.Row, "I").Copy .Cells(Derlg, 2)
    End With
End Sub

 

[Francky79]

Bonjour Jacky67,

Merci de ton aide,
Problème réglé.

Bon dimanche