Déplacement latéral d'une plage de cellule aléatoire Résolu

Question

Bonjour, 
J'ai réussi à réaliser une macro me copiant n'importe quelle cellule 7 cases plus loin.  La macro est donc détaillée comme tel :

Sub Macro1()
'' Macro1 Macro

    Selection.Copy
    ActiveCell.Offset(0, 5).Select
    ActiveSheet.Paste
End Sub

J'aimerai pouvoir faire de même avec une plage de cellule aléatoire. J'ai donc commencé les lignes de commandes suivantes. S'il n'y a pas de problèmes pour la sélection de la plage (5 premières lignes), je "coince" sur la 6è ligne (offset) qui permettrait de recopier la plage 7 cases plus loin.

Sub TTT()
'
' TTT Macro
'
ActiveCell.Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
   Application.CutCopyMode = False
   Selection.Copy
   ("offset(0,7)").Select
   'ActiveSheet.Paste
    ' Range("AX1").Select
    'ActiveSheet.Paste
End Sub

Merci d'avance pour vos réponses.
Configuration: Windows / Firefox 83.0

cs_Le Pivert · Answer

Bonjour,

voir ceci

https://www.conseil-creation.com/informatique/bureautique/excel/macro_deplacements.php 

ce qui donne cela:

Sub test()
Range("A1:F12").Select
Selection.Offset(0, 7).Select
End Sub

michel_m · Answer

Bonjour
 je "coince" sur la 6è ligne (offset) qui permettrait de recopier la plage 7 cases plus loin. 
????

que vient faire AX1 ????

Déplacement latéral d'une plage de cellule aléatoire

2 réponses

Discussions similaires

Newsletters