Macro mettre colonne les unes sous les autres

  • Initiateur de la discussion Initiateur de la discussion StagiaiireVannes
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

StagiaiireVannes

Guest
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

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
129
Retour