VBA pour copier/coller.

[gg21]

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]

Salut gg21,

Essaye 9a:


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

YvesL

 

[CBernardT]

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]

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.