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
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,
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,