Tri incorrect

Bonjour,

Dans le fichier joint, j'ai un code qui me permet de classer mes numéros selon le volume.

La macro plante de temps à autre, notamment lors de l'ajout d'une nouvelle ligne (par ex. en ligne 21: 3 pour le numéro et 4.9 pour le volume). Lorsque je relance la macro de classement, le tri n'est pas correct... Avez-vous une idée de mon erreur ?

Merci beaucoup

Amicalement

Bonjour

Voici le résultat du tri

Où est l'erreur ?

Numéro    Volume
1    8
1    9
1    10
2    5,2
2    7,5
2    10
3    4,9
3    5,1
3    6,3
3    10

Rebonjour Banzai64,

Merci de ta réponse !

Je m’aperçois que j'ai oublié de préciser que la macro plante lorsque :

* je lance la macro, à partir des données du fichier joint --> tout est ok

* mais lorsque j'ajoute une donnée et que je relance la macro ! Là, la macro plante...

Merci beaucoup,

Bonne journée !

Bonjour

Comme je ne comprends pas tout ce que je fais

Essayes

Sub classement()
Dim Plage As Range
Dim Lig&, lgn&, Nom As String

  Application.ScreenUpdating = False

  On Error Resume Next
  Rows.Ungroup
  On Error GoTo 0

  Rows.Hidden = False
  lgn = Range("A" & Rows.Count).End(xlUp).Row
  Nom = ActiveSheet.Name & "Tableau1"
  Set Plage = Range("A11:F" & lgn)

  On Error Resume Next
  ActiveSheet.ListObjects.Add(xlSrcRange, Plage, , xlYes).Name = Nom
  On Error GoTo 0

  With ActiveWorkbook.ActiveSheet.ListObjects(Nom).Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("A11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("B11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Header = xlYes
    .Apply
  End With

  ActiveSheet.Range("A11:F" & lgn).Interior.Pattern = xlNone

  For Lig = Range("A" & Rows.Count).End(xlUp).Row To 11 Step -1
    If Cells(Lig, 1) = Cells(Lig - 1, 1) Then Rows(Lig).Rows.Group
  Next Lig
  ActiveSheet.Outline.ShowLevels RowLevels:=1
  Application.ScreenUpdating = True

End Sub

Bonsoir Banzai64, le Forum,

Tout simplement PARFAIT !!

Merci beaucoup !

Bonne soirée