VBA mettre colonne sous une autre

0

Bonjours,

J'aimerais une macro qui mettent mes colonne C et D ailles en dessous des colonnes A-B et ensuite que mes colonnes E et F ailles aussi en dessous et pareil j'aimerais que qe mes colonnes I-J ailles en dessous des colonnes G-H et ensuite que mes colonnes K -L aille en dessous aussi


j'ai :

Sub deplace()

 nbmaxlignes = ActiveSheet.UsedRange.Rows.

Count Range("C2:D" & nbmaxlignes).Copy Destination:=Range("A" & nbmaxlignes + 1) Range("E2:F" & nbmaxlignes).Copy Destination:=Range("A" & nbmaxlignes * 2 + 1)

 Range("C:F").Delete

Range("E2:F" & nbmaxlignes).Copy Destination:=Range("C" & nbmaxlignes + 1)

Range("G2:H" & nbmaxlignes).Copy Destination:=Range("C" & nbmaxlignes * 2 + 1)

Range("E:H").Delete

End Sub


Cependant mes colonnes se colle pas a la suite mais super loin, si qlq peut m'aider


Posté le 3 mai 2017, 11:24
par Morgane889977
Répondre
2

Bonjour,

Je te propose la solution suivante :

http://www.cjoint.com/c/GEfiIB2jqwf

Tu cliques sur le lien et tu suis les instructions pour récupérer le classeur Excel.

J'ai créé un onglet DONNEES avec un bouton pour lancer la macro qui réaligne le tableau

Pour faire les essais, j'ai également créé un onglet ORIGINAL qui contient le tableau source.  Tu peux ainsi faire une copie de l'original dans l'onglet DONNEES pour refaire l'opération autant de fois que tu le désires.

J'ai mis le tableau en ligne 3 afin de permettre de mettre le bouton au-dessus du tableau sinon il se déplaçait à chaque essai puisque la macro supprime des colonnes

Si tu veux absolument le mettre en ligne 2, il faudra :

1 déplacer le bouton (ou lancer la macro différemment (par un CTRL R par exemple - si tu ne sais pas faire dis le moi j'adapterai)

2 changer l'adresse en 2 au lieu de 4 aux endroits spécifiés dans la macro

La macro est documentée et est, je pense, assez simple à comprendre.

Si problèmes, tu me reviens avec les questions nécessaires.

Merci de confirmer si c'était bien cela que tu désirais.

A+

Chris

CHRIS Posté le 5 mai 2017, 10:38
par CHRIS

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :