Discussion :

[arou]

Bonjour,
Je suis ultra débutant avec vba. Je suis confronté à une erreur qui je pense est toute bete mais je n'ai pas vraiment trouvé d'eclaircissement a ce sujet ou alors des réponses très diverses.

Ma macro est ultra simple il s'agit d'effectuer un pastespecial dans plusieurs colonne a travers une boucle.
Elle s'exécute en cliquant sur un bouton dans une des feuilles de mon classeur (autre que la feuile "donnée" dans laquelle je veux effectuer le paste special).
Le code me renvoie une jolie erreur 1004 "Erreur définie par l'application ou par l'objet".

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Worksheets("donnee").Cells(1, 1).Copy
    For k1 = 1 To 3
    Worksheets("donnee").Range(Cells(10, k1 * 3), Cells(310, k1 * 3)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
    Next k1
End Sub

Pourriez vous m'apporter votre précieuse aide?

[Gorfael]

Salut arou et le forum
essaie

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim k1
Worksheets("donnee").Cells(1, 1).Copy
With Worksheets("donnee")
    For k1 = 1 To 3
        .Range(.Cells(10, k1 * 3), .Cells(310, k1 * 3)).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
    Next k1
End With
End Sub

Ta page active n'est pas "donnee", et

Code :

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

Worksheets("donnee").Range(Cells(10, k1 * 3), Cells(310, k1 * 3)).PasteSpecial

revient à écrire

Code :

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

Worksheets("donnee").Range(activesheet.Cells(10, k1 * 3), activesheet.Cells(310, k1 * 3)).PasteSpecial

ce qui pose un cas de conscience à Excel
A+

[arou]

Merci Gorfael pour cette réponse rapide qui m'a fortement aidé. Cela marche parfaitement désormais. Encore merci!!!
A bientot.