Problème code

[jacky49]

Bonsoir le forum,

j'ai ce code ci-dessous qui me trie ce que je veux mais j'ai ajouté LastLigne pour masquer les lignes vide derrière la dernière ligne rempli mais il me met une erreur sur cette ligne
merci d'avance

 .SetRange Range("B4:M900"lastLine)

Sub TrierParClub()
Application.ScreenUpdating = False
  Dim lastLine As Long
    lastLine = Range("B" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add Key:=Range( _
        "D5:D1100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add Key:=Range( _
        "K5:K1100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Inscriptions").Sort
        .SetRange Range("B4:M900"lastLine)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D6").Select
Application.ScreenUpdating = True
End Sub

 

[Robert]

Re : Problème code

Bonsoir Jacky, bonsoir le forum,

Peut-être comme ça :

.SetRange Range("B4:M" & lastLine)

 

[jacky49]

Re : Problème code

Bonjour le forum, Robert,

j'ai essayé aussi comme cela mais ça ne fonctionne pas, je n'ai plus d'erreur mais les lignes ne se masque pas
merci

 

[Robert]

Re : Problème code

Bonjour Jacky, bonjour le forum,

Si tu persistes à ne fournir que le code sans le fichier qui va avec, je vois mal comment on va pouvoir t'aider !...

 

[jacky49]

Re : Problème code

Bonsoir le forum, Robert,

en refaisant mon code , cela fonctionne, donc je ne sais pas ce qui c'est passé
merci de votre aide
jacky