je ne vois pas ou est l'erreur

[Bruce sato]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
derligneA = Range("A65500").End(xlUp).Row + 1
If Range("J27") <> "" Then
Range("F" & derligneA) = Range("J32")
Range("E" & derligneA) = Range("J31")
Range("D" & derligneA) = Range("J30")
Range("C" & derligneA) = Range("J29")
Range("B" & derligneA) = Range("J28")
Range("A" & derligneA) = Range("J27")
End If
Range("J28:J32").ClearContents
Columns("A:F").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J19").Select
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : je ne vois pas ou est l'erreur

Bonjour Bruce

moi non plus je ne vois rien, surtout ce qui est en jaune...

@+

 

[Bruce sato]

Re : je ne vois pas ou est l'erreur

bonjour pierrot je viens de supprimer le jaune

 

[Pierrot93]

Re : je ne vois pas ou est l'erreur

Re Bruce

merci pour mes yeux, essaye peut être en modifiant comme suit, si la ligne 1 contient les titres et aucune donnée après colonne F :

Range("a1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

@+

 

[Bruce sato]

Re : je ne vois pas ou est l'erreur

Nikel pierrot un grand merci a toi