Procédure copier coller VBA

Bonsoir,

Je voudrais créer une procédure VBA copie coller mais je n'y arrive pas...

Voici le code que j'ai fait et qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() ' ' ' Touche de raccourci du clavier: Ctrl+m ' ActiveCell.Copy Worksheets("Feuil1").Range("B1").Paste End Sub

---

Pouvez vous me dire ou se trouve le problème ?

merci d'avance pour votre aide :)

Bonsoir,

tu peux utilisé l’enregistreur de macro dans Excel effectue tes manipulation et tu aura les grande lignes de ce que tu veux

bonjour,

utilise les balises codes pour une meilleur lisibilité

Code:

---

1 2 3

ActiveCell.Copy Sheets("Feuil1").Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

et comme disait tony76, avec l'enregistreur de macro tu as ce résultat

Bonsoir,

Citation:

---

Envoyé par carryPAR

Voici le code que j'ai fait et qui ne fonctionne pas

---

Essayes comme ceci :

Code:

---

1 2 3 4 5 6 7

Sub Macro1() ' ' ' Touche de raccourci du clavier: Ctrl+m ' ActiveCell.Copy Sheets("Feuil1").Range("B1") End Sub

---

Bonjour,
La méthode Paste ne s'utilise pas avec un objet Range, mais avec un objet Sheet. Par exemple :

Code:

---

1 2 3 4

Sub Macro1() ActiveCell.Copy Worksheets("Feuil1").Paste End Sub

---

Si tu veux une méthode avec un objet Range, il faut utiliser PasteSpecial :

Code:

---

1 2 3 4

Sub Macro1() ActiveCell.Copy Worksheets("Feuil1").Range("B1").PasteSpecial End Sub

---

Questions :

• Est-ce normal que tu copies toujours au même endroit (cellule B1 de Feuil1)?
• Est-ce que tu veux copier la mise en forme aussi? Si oui --> cf. le code au-dessus. Si non, il y a même plus simple que copier-coller :
  
  Code:

  ---

  Worksheets("Feuil1").Range("B1").Value = ActiveCell.Value

  ---

Citation:

---

Voici le code que j'ai fait et qui ne fonctionne pas

---

Quand tu as un problème avec ton code, dis-nous précisement ce qui ne "marche pas". Est-ce que tu as un message d'erreur? Si oui, lequel et sur quelle ligne? Si non, est-ce que ton code tourne, mais ne fait pas ce que tu veux? Que fait-il alors? ...

J'espère que tu pourras avancer comme ça :)

Bonjour,
La méthode Copy de l'objet Range a un argument nommé Destination que l'enregistreur de macro de propose pas.
Soit

Code:

---

1 2 3

With ThisWorkbook .Worksheets("Feuil1").Range("b8").Copy .Worksheets("Feuil2").Range("A1") End With

---

Bonjour à tous,

Tout d'abbord un grand merci pour vos réponses , c'est super sympa !

Grâce à vous j'ai tout compris !

Ps: Riaolle, oui c'etait normale que je copie toujours dans B1 et non je ne voulais pas copier la mise en forme :) mais je sais comment le faire grâce a toutes vos explications !