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

Francky79

XLDnaute Junior
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,
 
Solution
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
VB:
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

Jacky67

XLDnaute Barbatruc
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
VB:
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
 

Pièces jointes

  • CollerAvecCommentaire.xlsm
    108.1 KB · Affichages: 11

Discussions similaires

Statistiques des forums

Discussions
291 667
Messages
1 916 972
Membres
179 500
dernier inscrit
oximo
Haut Bas