Déplacement latéral d'une plage de cellule aléatoire
Résolu
Myki
-
Myki -
Myki -
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.
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
A voir également:
- Déplacement latéral d'une plage de cellule aléatoire
- Déplacer une colonne excel - Guide
- Historique déplacement google - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
2 réponses
Bonjour,
voir ceci
https://www.conseil-creation.com/informatique/bureautique/excel/macro_deplacements.php
ce qui donne cela:
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
Myki
Extra !!!!!! cela marche !!!!!!!!!!!!!! exactement comme je voulais. Grand merci