Tri de colonne dans un tableau par un bouton sur la page

Question

J'ai voulu modifier un script d'un fichier et je rencontre actuellement une erreur. Je veux trier un tableau dans cet ordre (En partant de la ligne 7, B7 =&gt; N, D7 =&gt; ETAT, C7 =&gt; Tablette) en utilisant un bouton. Et que les ligne BCDEFG soit prisent en compte dans le tri, Et l'erreur de mon script c'est que si les deux dernières colonnes ne sont pas remplie elle ne suivent pas le tri. Une explication est fournie sur le fichier. Merci...

Xmenpl · Answer

Bonjour si vous utilisez l'enregisteur de macro vous pourrez voir que le code est différent.

Par ailleurs il ne faut pas oublier de cocher "Mes données ont des entêtes" car la plage à trier comment en B8 elle.

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B7:G157").Select
    ActiveWorkbook.Worksheets("INV_TAB 2021-2022").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("INV_TAB 2021-2022").Sort.SortFields.Add Key:=Range _
        ("B8:B157"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("INV_TAB 2021-2022").Sort.SortFields.Add Key:=Range _
        ("D8:D157"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("INV_TAB 2021-2022").Sort.SortFields.Add Key:=Range _
        ("C8:C157"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("INV_TAB 2021-2022").Sort
        .SetRange Range("B7:G157")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub