Trie aleatoire sur 8 colonnes

[maval]

Bonjour et Bonne fêtes à tous

Je suis à le recherche d'un code pour trier des lignes sur 8 colonnes.

Je joint mon fichier pour exemple.

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[JCGL]

Re : Trie aleatoire sur 8 colonnes

Bonjour à tous,

Tu souhaites trier sur quelles valeurs ?

Les points en I ?

A + à tous

 

[maval]

Re : Trie aleatoire sur 8 colonnes

Bonjour JCGL

Oui excuse moi j'ai oublié de le signaler, merci

@+

Max

 

[JCGL]

Re : Trie aleatoire sur 8 colonnes

Bonjour à tous,

Commence par modifier la formule en G3 et suivantes en :

=SI(OU(MOD(LIGNE();2)=0;D3="");G2;ENT(LIGNES(D$3:D3)/2)+1)

Et ce code dans le module1 que tu associes à ton bouton :

Option Explicit

Sub Tri()
    Range("B3:I34") = Range("B3:I34").Value
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I3:I34"), SortOn:=xlSortOnValues, Order:=xlDescending
        .SetRange Range("B2:I34")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I2").Select
End Sub

A + à tous

 

[maval]

Re : Trie aleatoire sur 8 colonnes

Bonjour JCGL,

Excuse moi de ne pas avoir répondu avant "le boulot" je te remercie et te souhaite un bon noë.

@+

Max