Discussion :

[carryPAR]

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 :

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

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

[tony76]

Bonsoir,

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

[Nicolas JACQUIN]

bonjour,

utilise les balises codes pour une meilleur lisibilité

Code :

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

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

[anasecu]

Bonsoir,

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

Essayes comme ceci :

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
'
'
' Touche de raccourci du clavier: Ctrl+m
'
ActiveCell.Copy Sheets("Feuil1").Range("B1")
End Sub

[riaolle]

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

Code :

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

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 :

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

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 :

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

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

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

[Philippe Tulliez]

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

Code :

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

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

[carryPAR]

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 !