macro simple pour déplacer des lignes dans un tableau

Version imprimable

bonjour

dans excel, j'ai une liste très simple, 3 colonnes (mais beaucoup de lignes), et je souhaiterais

- sélectionner n'importe quelle ligne (parce que je me balade de bas en haut dans la liste)
- la couper (donc elle disparaît de cette partie du tableau, mais elle est placée en mémoire)
- aller en bas du tableau
- la recopier là
- replacer le curseur où je me trouvais
- fin de la macro, mais je vais aller à une autre ligne et recommencer

le but étant de déplacer certaines lignes choisies dans ma p'tite tête et pas d'autres (sans qu'aucun test ne puisse être géré par la macro)

merci d'avance pour votre vba... (very best aide!)

- - - en enregistrant une nouvelle macro j'obtiens:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Macro1() ' Macro1 Macro ' Macro enregistrée le 09.08.2010 par OrdiDuSalon Rows("6:6").Select Selection.Cut Range("A6").Select Selection.End(xlDown).Select Range("A22").Select ActiveSheet.Paste Selection.End(xlUp).Select Rows("6:6").Select Selection.Delete Shift:=xlUp Range("A6").Select End Sub
mais je ne sais pas comment gérer les "range"...

- - - si jamais:
avant : http://farm5.static.flickr.com/4140/...a65ffa77ff.jpg où le curseur est sur la ligne 6
après : http://farm5.static.flickr.com/4117/...fb42336a58.jpg où le curseur est de retour sur la ligne 6
(bon, je viens de voir dans ces images que le système de référencement est L1C1, que je n'utilise normalement pas, mais que j'avais validé pour faire des essais avec mon essai de macro vlb, qui a foiré, d'où ma présente demande)

09/08/2010, 12h13
billx06

Perso j'utilisais la fonction range tout au début , je la trouve super limitée.
Essaye de regarder la fonction cells, tu as l'avantage d'avoir des coordonnées x,y.
C'est plus complexe mais tu vas y gagner en possibilités.
(oui l'enregistreur de macro aide a commencer mais oriente sur range hélas)

sinon pour sélectionner la dernière ligne par vba avec range:

Citation:

Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select
09/08/2010, 12h42
Didier Gonard

Citation:

Envoyé par billx06

Perso j'utilisais la fonction range tout au début , je la trouve super limitée.
Essaye de regarder la fonction cells, tu as l'avantage d'avoir des coordonnées x,y.

Attention Range et Cells ne sont pas des fonctions ! Et leur emploi n'a pas de rapport de puissance, mais de contexte.

voir l'explorateur d'objets et l'aide VBA dans l'éditeur ainsi que ce super Tutoriel, dans son ensemble et à partir de la page 11...

Programmer efficacement avec Excel en VBA

cordialement,

Didier

merci d'ores et déjà...

mais vous semblez vous adresser à quelqu'un qui en connaît beaucoup plus que moi, alors que je n'ai besoin que d'une toute petite macro toute simple pour déplacer une ligne, puis une autre

pour améliorer mes connaissances, on verra plus tard :mouarf: huhu

Citation:

Envoyé par billx06

Perso j'utilisais la fonction range tout au début , je la trouve super limitée. Essaye de regarder la fonction cells, tu as l'avantage d'avoir des coordonnées x,y. C'est plus complexe mais tu vas y gagner en possibilités. (oui l'enregistreur de macro aide a commencer mais oriente sur range hélas) sinon pour sélectionner la dernière ligne par vba avec range:
Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select

comme je l'avais écrit, ça n'est pas moi qui ai choisi les instructions:
elles ont été générées par le menu >outils >macros >nouvelle macro

(et j'imagine que ta solution ne fonctionne pas si, dans la feuille excel, on a plusieurs blocs de données les uns en-dessous des autres et que l'on désire travailler dans le premier)

- - -

@Ormonth

merci, mais c'est du chinois pour moi ...ton lien pdf sera pratique dans 1 ou 2 ans...

- - -
bon j'ai solutionné la chose en me baladant ici et là, en cherchant une réponse pour chacune de mes lignes (car je me déplace dans une feuille excel et je procède à des manipulations simples, telles qu'on le fait manuellement tous les jours car on n'a pas besoin tous les jours de macros de 15000 lignes), et cette petite macro fonctionne tout simplement :
Code:

1 2 3 4 5 6 7 8 9 10 Selection.End(xlToLeft).Select '(être sûr de se trouver dans la 1e col.) Rows(ActiveCell.Row).Select '(sélection de la ligne à déplacer) Selection.Cut '(couper la ligne) Selection.End(xlDown).Select '(se déplacer en fin de tableau, dernière ligne avec contenu) Rows(ActiveCell.Row).Offset(1, 0).Select '(descendre d'1 ligne) ActiveSheet.Paste '(coller) Selection.End(xlUp).Select '(remonter jusqu'à la 1e ligne du tableau, celle juste après celle qu'on vient de vider) Rows(ActiveCell.Row).Offset(-1, 0).Select '(on remonte d'1 ligne) Selection.Delete Shift:=xlUp '(on la détruit) Selection.End(xlToLeft).Select '(se trouver dans la 1e col.)
les explications les plus simples pour les problèmes simples, c'est ce qui aide le mieux les débutants... notamment avec des explications pour chaque ligne...