Macro mettre colonne les unes sous les autres

vgendron

XLDnaute Barbatruc

• 28 Avril 2017

• #2

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Avril 2017

• #3

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"

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 28 Avril 2017

• #4

Toi, t'es vraiment un géni xD

Du coup j'ai relancer la macro que tu m'avais fait pour les commentaires
Et j'aimerais savoir pourquoi la ligne 39 est en gras et rouge et la ligne 41 en gras

 

Pièces jointes

• Note_pts fort.xlsm

  47.9 KB · Affichages: 29

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Avril 2017

• #5

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

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 2 Mai 2017

• #6

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

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 2 Mai 2017

• #7

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.. ??

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 2 Mai 2017

• #8

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 2 Mai 2017

• #9

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

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 2 Mai 2017

• #10

Ah oui d'acc , merci beaucoup

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 2 Mai 2017

• #11

B en faite j'ai fais avec d'autre données, j'ai bien mit le filtre et pourtant ca ne marche plus, je ne vois pas pourquoi ...

 

Pièces jointes

• Note_points fort_et_faibles.xlsm

  915.3 KB · Affichages: 38

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 2 Mai 2017

• #12

Qu'est ce qui ne marche pas??
chez moi ca fonctionne. c'est juste un peu long.... parce que dans ta feuil1, tu as des données jusqu'en ligne 64 438........

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

XLDnaute Nouveau

• 3 Mai 2017

• #13

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

Vote positif 0 Vote négatif