Déplacement de cases par macro

[Régis28]

Bonjour,

Dans un fichier Excel, je veux déplacer (drag&drop) des cases (1 ligne sur 2) d'une colonne vers une autre.
Voici le code ci-dessous pour les quelques premières lignes :

Range("A3:C3").Select
Selection.Cut Destination:=Range("E2:G2")
Range("A5:C5").Select
Selection.Cut Destination:=Range("E4:G4")
Range("A7:C7").Select
Selection.Cut Destination:=Range("E6:G6")
Range("A9:C9").Select
Selection.Cut Destination:=Range("E8:G8")
...

Seulement je souhaiterai le faire sur la totalité des lignes du fichier et n'étant pas à l'aise avec les boucles je souhaiterai un coup de main pour la réalisation de cette macro.

D'avance un grand Merci
Régis

 

[roro69]

Re : Déplacement de cases par macro

Bonjour peut etre tout simplement:
Range("A3:C3000").Cut Range("E2:G2999")
Oups j'avais pas vu Une ligne sur deux j'a tout faux
A++

 

[jeanpierre]

Re : Déplacement de cases par macro

Bonjour Régis28, roro69,

Essaie comme ceci :

For i = 3 To Range("a65536").End(xlUp).Row - 1 '(peut-être -2, à voir en fonction de ton fichier.)
Range("A" & i & ":C" & i).Select
Selection.Cut Destination:=Range("E" & i - 1 & ":G" & i - 1)
Next i

Pas testé. Le .Select n'est peut-être pas utile.

Tu nous dis.

Bon après-midi.

Jean-Pierre

 

[Gael]

Re : Déplacement de cases par macro

Bonjour Regis28, bonjour Roro69, Bonjour Jean-pierre,

Une petite modif sur le code de mon ami Jean-Pierre:

Sub test()
Dim i As Integer
For i = 3 To Range("a65536").End(xlUp).Row Step 2
Range("A" & i & ":C" & i).Cut Destination:=Range("E" & i - 1 & ":G" & i - 1)
Next i
End Sub

@+

Gael

 

[jeanpierre]

Re : Déplacement de cases par macro

Re, Bonjour Gaël et Bonne Fête,

Exact, j'ai tellement pris de précautions dans la syntaxe des & i pour être sûr que j'ai zappé le Step. Pourtant j'ai réédité sur cette ligne mais dans une autre idée, la première ayant disparu. Faut pas vieillir.

Bonne journée.

Jean-Pierre

 

[Régis28]

Re : Déplacement de cases par macro

ça marche pour la première ligne, mais pour la suite tout est déplacé sur la droite...
Voir Pj pour plus de clarté.
Merci d'avance
Régis

 

[Gael]

Re : Déplacement de cases par macro

Re,

Ben, je ne sais pas comment tu as fait, j'ai retesté la macro sur ton fichier et c'est OK.

Cf fichier joint.

@+

Gael

 

[Régis28]

Re : Déplacement de cases par macro

Désolé pour le message, je l'ai posté avant de pouvoir visualiser vos modifs sur la macro.
En effet c'est parfait !
Merci beaucoup de votre aide.
Régis