XL 2016 Comment réorganiser un tableau via macro vba

bnolwalid · 13 Décembre 2023

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

mapomme · 13 Décembre 2023

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

.

bnolwalid · 13 Décembre 2023

Bonjour @mapomme,
La macro fonctionne très bien.
Merci infiniment pour le coup de main.

Bonne journée

XL 2016 Comment réorganiser un tableau via macro vba

bnolwalid

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

bnolwalid

XLDnaute Junior

Discussions similaires