VBA : paste special multiply

Bonjour !

Mon objectif est d'automatiser une opération.
Je dois copier la cellule D1 puis faire un copier coller (spécial : multiply) de D3 à la dernière cellule. Une erreur apparait concernant la sélection de la plage de cellule mais je ne sais comment y remédier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub modifier()   Range("D1").Select Selection.Copy   Dim lastrow As Long lastrow = Cells(Rows.Count, "D").End(xlUp).Row Range("D3" & lastrow).Select   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False     End Sub

---

Bonjour,

Tu peux essayer avec

Code:

---

1 2 3 4 5 6 7 8

Sub modifier() Dim LastRow As Long With Worksheets("Feuil1") 'Nom de feuille à adapter LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row .Range("D1").Copy .Range("D3:D" & LastRow).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply End With End Sub

---

Cordialement.