VBA pour copier/coller.

gg21 · 9 Décembre 2004

Bonjour,
Le code ci-dessous fait un Copier/coller dans une même cellule.

Sub Macro7()
Selection.Copy
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Quelle modification dois-je apporter afin que le Coller se fasse dans la cellule "moins 3" de la même rangée ?

Avec mes remerciements,
Bonne soirée.

yvesL · 9 Décembre 2004

Salut gg21,

Essaye 9a:

Sub Macro7()
Selection.Copy
activecell.offset(-3,0).select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

YvesL

CBernardT · 9 Décembre 2004

Salut gg21 et YvesL

Une autre proposition pour -3 dans la même rangée :

Sub CopierColler()
ActiveCell.Offset(0, -3) = ActiveCell
End Sub

Cordialement

CBerbardT

gg21 · 9 Décembre 2004

Merci yvesL, Merci CBernardT,

Pour vos propositions qui me conviennent.

De plus celle de CBernardT a l'avantage de ne pas copier les formules des cellules. Elle ne copie que les valeurs.

Encore merci et
Bonne soirée.

VBA pour copier/coller.

gg21

Guest

yvesL

Guest

CBernardT

Guest

gg21

Guest

Discussions similaires