Deplacement d'un ensemble de cellule

Bonjour,

Je possède actuellement une maccro qui s'occupe d'ajouter et de remplir une zone de cellule, cependant, j'aimerai selectionner une zone de cellule et deplacement celle-ci 4 colonnes plus loin.
Comme un couper/coller quoi mais en VBA :mrgreen:

Merci d'avance :roll:

Bonjour superstarz,

L'enregistreur de macro est très efficace pour ce genre de demande...

Cordialement,
Kimy

avec enregistreur (plage "A1:C7"):

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro4() ' ' Macro4 Macro '   ' Range("A1:C7").Select Selection.Cut Range("G1").Select ActiveSheet.Paste End Sub

---

nettoyé, ça peut donner :

Code:

---

1 2 3 4 5 6

Sub toto() Range("A1:C7").Cut Range("G1").Select ActiveSheet.Paste   End Sub

---

Extra ! Merci ! :oops:

Bonjour casefayereet sans sélectionner c'est mieux non?

Code:

---

1 2 3 4 5 6

Sub toto() Set first = Range("A1:C7") Range("G1").Resize(first.Rows.Count, first.Columns.Count) = first.Value first = "" End Sub

---