TRI : erreur Incompatibilité de type sur la fonction SORT

Bonjour,

j'ai une feuille contenant une liste de données que je souhaite trier de la façon suivante :

Sub tri()
DerligData = Sheets("Data 1").[A65536].End(xlUp).Row 'mémorisation de la dernière ligne du fichier data 1

Range(Cells(4, 1), Cells(DerligData, 44)).Select
    trirange = "A3" & ":AO" & DerligData + 1
    triRess = "G4" & ":G" & DerligData
    triCode = "B4" & ":B" & DerligData
    triTache = "K4" & ":K" & DerligData
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triRess, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 7 = Ressource
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triCode, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 2 = Code Projet
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triTache, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 11 = Tâche
    With ActiveWorkbook.Worksheets("Data 1").Sort
        .SetRange Range(trirange)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

J'ai une erreur 13 "incompatibilité de type" sur la ligne contenant "KEY:=triRess" (ainsi que les 2 suivantes bien sur.

Je ne trouve pas comment m'en sortir.

Merci d'avance de votre aide

Salut,

Il serait intéressant d'avoir ton fichier à disposition Ne peux-tu pas simuler un fichier dans lequel tu remplaces tes données sensibles par quelques données bidon (mais bien entendu qu'il faut que le tri bloque de la même manière) ; je présume que ton problème vient du format des données, mais ça peut également être autre chose.

Cordialement.

cdurep a écrit :

Bonjour,

j'ai une feuille contenant une liste de données que je souhaite trier de la façon suivante :

Sub tri()
DerligData = Sheets("Data 1").[A65536].End(xlUp).Row 'mémorisation de la dernière ligne du fichier data 1

Range(Cells(4, 1), Cells(DerligData, 44)).Select
    trirange = "A3" & ":AO" & DerligData + 1
    triRess = "G4" & ":G" & DerligData
    triCode = "B4" & ":B" & DerligData
    triTache = "K4" & ":K" & DerligData
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triRess, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 7 = Ressource
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triCode, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 2 = Code Projet
    ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=triTache, SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal ' colonne 11 = Tâche
    With ActiveWorkbook.Worksheets("Data 1").Sort
        .SetRange Range(trirange)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

J'ai une erreur 13 "incompatibilité de type" sur la ligne contenant "KEY:=triRess" (ainsi que les 2 suivantes bien sur.

Je ne trouve pas comment m'en sortir.

Merci d'avance de votre aide

Bonjour

Tu vas avoir les erreurs pour chaque Key

il faut mettre

ActiveWorkbook.Worksheets("Data 1").Sort.SortFields.Add Key:=range(triRess), SortOn:=xlSortOnValues, Order:= _

Si cela ne passe pas, voir aussi ce point :

voir pour declarer triress et les autres en range

Dim triRess as range

Cdt,