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

Francky79 · 7 Novembre 2020

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 · 8 Novembre 2020

Francky79 à dit:
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 · 8 Novembre 2020

Francky79 à dit:
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

Francky79 · 8 Novembre 2020

Bonjour Jacky67,

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

Bon dimanche

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

Francky79

XLDnaute Occasionnel

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

Francky79

XLDnaute Occasionnel

Discussions similaires