Déplacement de cases par macro

roro69

XLDnaute Impliqué

• 17 Décembre 2008

• #2

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++

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 17 Décembre 2008

• #3

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

 

Dernière édition: 17 Décembre 2008

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 17 Décembre 2008

• #4

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:

Code:

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 17 Décembre 2008

• #5

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

 

Vote positif 0 Vote négatif

R

Régis28

Guest

• 17 Décembre 2008

• #6

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

 

Pièces jointes

• Book2.xls

  29.5 KB · Affichages: 37
• Book2.xls

  29.5 KB · Affichages: 38
• Book2.xls

  29.5 KB · Affichages: 37

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 17 Décembre 2008

• #7

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

 

Pièces jointes

• Book2_V1.xls

  35.5 KB · Affichages: 36

Vote positif 0 Vote négatif

R

Régis28

Guest

• 17 Décembre 2008

• #8

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

 

Vote positif 0 Vote négatif