Discussion :

[eglantine217]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

Tu peux essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.