XL 2016 Comment réorganiser un tableau via macro vba

bnolwalid

XLDnaute Junior
Bonjour,
Je souhaite avoir votre aide pour réorganiser un tableau variable comme suit :
- donnée d'entrée : un tableau qui peut varier en terme de contenu
- sortie : le même tableau mais trié de la manière suivante :
- première colonne : celle qui contient le plus de lignes
- deuxième colonne : celle qui contient moins de la lignes que la première et ainsi de suite...

Veuillez trouver un exp en PJ :

-Feuil1: tableau initial
- Feuil2 : tableau souhaité aprés avoir appliquer la macro.

Merci d'avance pour votre aide

Bonne journée
 

Pièces jointes

  • Tableau Trié_Exp.xlsx
    9.2 KB · Affichages: 10

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @bnolwalid :),

Voir le code VBA suivant :
VB:
Sub TrierColonnes()
Dim xrg
   Application.ScreenUpdating = False
   Set xrg = Sheets("Feuil1").[a1].CurrentRegion
   xrg.Rows("1:1").Insert Shift:=xlDown
   Set xrg = Range("a1").Resize(xrg.Rows.Count + 1, xrg.Columns.Count)
   xrg.Rows(1).FormulaR1C1 = "=COUNTA(R[2]C:R" & Rows.Count & "C)"
   xrg.Sort Orientation:=xlLeftToRight, Header:=xlNo, key1:=xrg(1), order1:=xlDescending
   xrg.Rows(1).Delete Shift:=xlUp
End Sub
.
 

Pièces jointes

  • bnolwalid- tri par col- v1.xlsm
    16.3 KB · Affichages: 5
Dernière édition:

Discussions similaires

Réponses
13
Affichages
385

Statistiques des forums

Discussions
312 534
Messages
2 089 383
Membres
104 152
dernier inscrit
sabalex