Macro mettre colonne les unes sous les autres

StagiaiireVannes

XLDnaute Nouveau
Bonjour,

voilà je met le fichier joins pour que vous compreniez mieux ce que j'aimerais ;)

Mais j'aimerais que la colonne C et E en dessous de A dans la colonne A d'une nouvelle feuille
D et F en dessous de la colonne B dans la colonne B de la nouvelle feuille
I et K en dessous de la colonne G dans la colonne C de la nouvelle feuille
et J et L en dessous de Hdans la colonne D de la nouvelle feuille

Et donc dans la nouvelle feuille on aura donc que 4 colonnes :)
Merci
 

Pièces jointes

  • extrait_commentaire.xlsx
    12.8 KB · Affichages: 27

vgendron

XLDnaute Barbatruc
Hello

Et si tu commençais avec ceci..
VB:
Sub deplace()
ActiveSheet.UsedRange.select
nbmaxlignes = ActiveSheet.UsedRange.Rows.Count 'determine le nombre max de lignes de toutes les colonnes de la feuille
Range("C1:D" & nbmaxlignes).Copy Destination:=Range("A" & nbmaxlignes + 1)
Range("E1:F" & nbmaxlignes).Copy Destination:=Range("A" & nbmaxlignes * 2 + 1)

End Sub

pour comprende ce que ca fait et comment, execute le code en pas à pas: touche F8
 

vgendron

XLDnaute Barbatruc
sans recopier la première ligne d'entete et en supprimant les colonnes inutiles

VB:
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

PS: va voir l'aide du UsedRange: tu comprendra pourquoi dans ton ficher, nbmaxlignes=125 au lieu de 37 ;-)
et rajoutte ActiveSheet.UsedRange.select en début de code pour visualiser ce que voit Excel en tant que "used Range"
 

vgendron

XLDnaute Barbatruc
j'ai pas ouvert le fichier, mais si des lignes sont formatées alors qu'elles ne le devraient pas, c'est parce que certainement, tu as lancé la macro avant, et que tu as juste effacé le contenu des colonnes avant de RElancer la macro
effacer le contenu, ne veut pas dire supprimer la mise en forme
c'est pour ca que ma macro commencait par SUPPRIMER les colonnes: ce qui enlève tout
 

StagiaiireVannes

XLDnaute Nouveau
Yes ^^
Et par contre la macro pour les points faible 3e et 4e colonne de la feuil1, elle met le premier commentaire (pas d'ombre) pour la modalité "parking) elle le met dans toutes les modalité dans le feuil2 :/
 

Pièces jointes

  • Note_pts fort_pb.xlsm
    144.3 KB · Affichages: 25

vgendron

XLDnaute Barbatruc
Bonjour

Encore une fois, le filtre automatique n'est pas sur la bonne ligne:
il faut qu'il soit sur la première ligne. celle qui contient les intitulés
et le fichier que tu as posté ne contient plus les feuilles 2 et 4 qui servent pour la macro
pas plus que les zones nommées... à moins que tu ai modifié le code en conséquence.. ??
 

StagiaiireVannes

XLDnaute Nouveau
Bah oui , car la feuille deux et 4 cetait pour les trucs satisfait, pas satisfait ... donc pour celui la ca ne servait pas :)

Et comment je fais pour que le filtre ce fait sur la premiere ligne ^^ je dois changer quelle ligne de code ?
Car si j'arrive a enlever le pas d'ombre dans toute les modalités on tombe sur le bon chiffre :)
 

vgendron

XLDnaute Barbatruc
pas de code pour ca: il faut utiliser le filtre excel
tu cliques sur une cellule de la ligne 1 (celle où tu souhaites le filtre actif)
puis menu Données - Filtrer : cliquer une fois pour désactiver le filtre --> les petites flèches disparaissent
et cliquer une seconde fois pour remettre le filtre sur la bonne ligne
 

StagiaiireVannes

XLDnaute Nouveau
En faite j'ai trouver le pb c'est le fait que les colonne trois-quatre et les colonne cinq-six ne se met pas directement en dessous des colonnes 1-2
et pareil la colonne 9-10 et 10-11 de sont pas directement sous la colonne 7-8 ^^
Et donc c'est un peu dérangeant car ca va jusqua 5000 ^^

En effet les colonne C-D se colle dans les lignes 3000 et des fois 200000 ... Moi j'aimerais que ces colonnes soient directement en dessous des colonnes A et B
 

Pièces jointes

  • Copie de Note_points fort_et_faibles_pb.xlsm
    93.8 KB · Affichages: 27

Discussions similaires

Réponses
22
Affichages
689

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo