[RESOLU] Tri sur lignes dans un tableau

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 !

Annette

XLDnaute Occasionnel
Bonsoir le forum,

Je dispose d'un tableau avec des chiffres en ligne à classer du plus petit au plus grand.
Je peux effectuer un tri en ligne mais l'une après l'autre ... 🙁.
Quelqu'un pourrait-il me fournir une solution qui ferait ce tri ?

Merci pour vos suggestions.

Cordialement
 

Pièces jointes

Dernière édition:
Re : Tri sur lignes dans un tableau

Bonsoir djidji59430, le forum,

Merci pour votre réponse, mais mon essai ne me donne pas les mêmes résultats ...
Pour la première ligne c'est bon mais pas pour les suivantes.

Merci pour votre suggestion.

Cordialement
 
Re : [RESOLU] Tri sur lignes dans un tableau

Bonjour,

Une piste avec un code VBA
Code:
Sub aa()
Dim S As Worksheet
Dim Plage As Range
Dim R As Range
Dim i&

Set S = ActiveSheet
Set Plage = Selection
If TypeName(Selection) <> "Range" Then Exit Sub
'---
Set R = Range(Cells(Plage(1, 1).Row, Plage(1, 1).Column), _
    Cells(Plage(1, 1).Row, Plage(1, 1).Column - 1 + Plage.Columns.Count))
'---
Application.ScreenUpdating = False
For i& = 1 To Plage.Rows.Count
  With S.Sort.SortFields
    .Clear
    .Add Key:=R, SortOn:=xlSortOnValues, Order:=xlAscending, _
         DataOption:=xlSortNormal
  End With
  With S.Sort
    .SetRange R
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlLeftToRight
    .SortMethod = xlPinYin
    .Apply
  End With
  Set R = R.Offset(1, 0)
Next i&
Application.ScreenUpdating = True
End Sub

Il faut d'abord sélectionner la plage à trier (D5:H19 dans votre exemple).
 
Re : [RESOLU] Tri sur lignes dans un tableau

Bonsoir PM02,

Merci pour cette autre solution qui me permet de trier sur place 🙂.

Les deux solutions sont fonctionnelles et correspondent à ma demande.

A nouveau un grand merci à tous les intervenants et au forum 🙂.

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

Discussions similaires

Réponses
10
Affichages
472
Retour