Probleme avec Pastespecial dans un macro

Bonjour, je dois résoudre un problème et la solution est dans les macros

le macro en dessous me donne les selections que j'ai besoin mais copie la formule alors que je voulais seulement la copie de la valeur.

j'ai essayer:

Code:

---

1 2 3 4

ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1).value   ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1) Selection.PasteSpecial Paste:=xlPasteValues

---

mais ca n'a pas marche.
En plus, je voudrais que les resultats soient copies dans la feuil2, cellues B1, B2, B3, B4.
Je vous remercie d'avance pour votre aide

Le macro est:

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1()   ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=Range("Q4") ActiveCell.Offset(26, 6).Resize(1).Copy Destination:=Range("R4") ActiveCell.Offset(40, 6).Resize(1).Copy Destination:=Range("S4") ActiveCell.Offset(54, 6).Resize(1).Copy Destination:=Range("T4")   End Sub

---

Bonjour

Si tu ne veux que la valeur, tu pourrais simplement utiliser le signe =

Code:

---

Worksheets("Feuil2").Range("Q4").Value = ActiveCell.Offset(12, 6).Resize(1).Value

---

Citation:

---

Envoyé par jujbjh

Code:

---

1 2 3 4

ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1).value   ActiveCell.Offset(12, 6).Resize(1).Copy Destination:=ActiveCell.Offset(6, 1) Selection.PasteSpecial Paste:=xlPasteValues

---

---

Dans ce code, tu fais trois copie vers la même destination.

La première ligne est fausse : la destination de la méthode copy appliquée à Range doit être un Range et non pas une valeur.

Si l'on compte faire un PasteSpecial après un Copy, il ne faut pas donner de destination après Copy.

De plus, si tu veux copier dans la cellule ActiveCell.Offset(6, 1), il ne faut pas mettre Selection comme parent de ton PasteSpecial, à moins d'avoir sélectionner cette cellule auparavant ce que ton code ne fait pas.

La bonne syntaxe est donc :

Code:

---

1 2 3

ActiveCell.Offset(12, 6).Resize(1).Copy ActiveCell.Offset(6, 1).PasteSpecial Paste:=xlPasteValues

---

Ou bien, plus simplement :

Code:

---

ActiveCell.Offset(6, 1).Value = ActiveCell.Offset(12, 6).Resize(1).Value

---

Citation:

---

En plus, je voudrais que les resultats soient copies dans la feuil2

---

Si tu veux accéder à la cellule d'un autre onglet (par exemple "feuil2"), il faut précéder ta référence Range de Worksheets("feuil2")

Regarde dans l'aide intégrée à VBA les explications sur les objets suivants : Range, Worksheet, Worksheets.

Bonjour,
je tiens a remercier beaucoup ceux qui ont donnes des réponses a ma question.
Les deux codes ont bien fonctionnes et je vous en suis très reconnaissant.