XL 2016 TRIER PLAGE

[KTM]

Bonsoir Cher Forum
Je voudrais faire un tri de mes données et j'ai élaboré ce code:

Sub TRIER()
Dim Lig As Variant

Lig = Application.Match(0, Range("A4:A14"), 0) + 2
If IsError(Lig) Then
Range("E1").Value = 14
Range("A4:D14").Sort Key1:=Range("A4"), Order1:=xlAscending
Else
Range("E1").Value = Lig
Range("A4:D" & Lig).Sort Key1:=Range("A4"), Order1:=xlAscending
End If
End Sub

Mais il ya erreur lorsque ma plage A4:A14 ne contient pas 0

 

[job75]

Bonsoir KTM,

Quand Lig peut être une valeur d'erreur il ne faut pas lui ajouter 2, donc :

Sub TRIER()
Dim Lig As Variant
Lig = Application.Match(0, Range("A4:A14"), 0)
If IsError(Lig) Then
    Range("E1").Value = 14
    Range("A4:D14").Sort Key1:=Range("A4"), Order1:=xlAscending
Else
    Range("E1").Value = Lig + 2
    Range("A4:D" & Lig + 2).Sort Key1:=Range("A4"), Order1:=xlAscending
End If
End Sub

A+

 

[KTM]

Bonsoir KTM,

Quand Lig peut être une valeur d'erreur il ne faut pas lui ajouter 2, donc :

Sub TRIER()
Dim Lig As Variant
Lig = Application.Match(0, Range("A4:A14"), 0)
If IsError(Lig) Then
    Range("E1").Value = 14
    Range("A4:D14").Sort Key1:=Range("A4"), Order1:=xlAscending
Else
    Range("E1").Value = Lig + 2
    Range("A4:D" & Lig + 2).Sort Key1:=Range("A4"), Order1:=xlAscending
End If
End Sub

A+

Merci job75
C'est tres juste