Microsoft 365 Trier les colonnes d'un tableau de A à Z en VBA

[iliess]

Bonjour
Voici mon tableau TBl1.Toujours commencer par la colonne Clé et après les colonnes leur entête numérique, et ce terminer par les 4 colonnes totales.

Je souhaite en VBA classer uniquement les colonnes leur entête est numérique de A à Z.
voici résultat souhaiter

Slutations.

 

[chris]

Bonjour

On peut convertir en plage et trier de façon simple les colonnes numériques sélectionnées

Sinon via PowerQuery

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(Source, {"Cle", "Total EXO", "Total Tax", "Total Tva", "Diff"}, "Attribut", "Valeur"),
    #"Type modifié" = Table.TransformColumnTypes(#"Supprimer le tableau croisé dynamique des autres colonnes",{{"Attribut", Int64.Type}}),
    #"Lignes triées" = Table.Sort(#"Type modifié",{{"Attribut", Order.Ascending}}),
    PStep = Table.Pivot(Table.TransformColumnTypes(#"Lignes triées", {{"Attribut", type text}}, "fr-FR"), List.Distinct(Table.TransformColumnTypes(#"Lignes triées", {{"Attribut", type text}}, "fr-FR")[Attribut]), "Attribut", "Valeur"),
    #"Colonnes permutées" = Table.ReorderColumns(PStep,List.Combine({{"Cle"},List.LastN(Table.ColumnNames(PStep), Table.ColumnCount(PStep)-5),List.LastN(Table.ColumnNames(Source),4)}))
in
    #"Colonnes permutées"

 

[iliess]

Bonsoir M.chris
Effectivement, ça marche et merci pour votre participation et votre solution.
Je cherche en VBA, car c'est une partie d'un long code.
salutations.

 

[iliess]

J'ai pas bien compris cette solution : On peut convertir en plage et trier de façon simple les colonnes numériques sélectionnées.

 

[chris]

RE
Oui

Le tri peut être de gauche à droite et non de bas en haut (bouton options)

 

[mapomme]

Bonsoir à tous ,

Un essai via une macro. Le code est dans module1. Cliquez sur le bouton Hop!

 

[job75]

Bonjour à tous,

Le plus simple est d'utiliser 2 boucles imbriquées :

Sub Tri_Colonnes()
Dim cc%, i%, j%
Application.ScreenUpdating = False
With [A1].CurrentRegion
    cc = .Columns.Count
    For i = 1 To cc - 1
        If IsNumeric(.Cells(1, i)) Then
            For j = i + 1 To cc
                If IsNumeric(.Cells(1, j)) Then _
                    If Val(.Cells(1, j)) < Val(.Cells(1, i)) Then .Columns(j).Cut: .Columns(i).Insert xlToRight
            Next j
        End If
    Next i
End With
End Sub

A+

 

[mapomme]

Le plus simple est d'utiliser 2 boucles imbriquées :

Pourquoi fais-tu si simple quand je peux faire si compliqué ?

 

[iliess]

Mille merci, M. @mapomme et M. @job75
Je suis très ravie de vos réponses, ça me fait un grand plaisir.
Maintenant, avec une grande base de données, je vais tester la plus rapide.
Cordialement salutations.

 

[job75]

Maintenant, avec une grande base de données, je vais tester la plus rapide.

La macro de mapomme est certainement plus rapide que la mienne.

 

[Phil69970]

Bonjour à tous

@iliess
Je te propose ma version

Merci de ton retour

 

[iliess]

Les deux macros de M @mapomme et M @Phil69970 sont les plus rapides.
Merci pour vos participations et vos conseils.
Salutations.