JBARBE
XLDnaute Barbatruc
Bonjour à tous,
La macro suivante ne me tri mal le classement de la D1 de Foot !
Le tri de la cellule DV1 qui lorsqu’elle est sur "Points" ( colonne DH) doit me tenir compte des points mais également de la colonne DO (Différence ) !
peut être que la macro demande à être corrigée !!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%, Plg As Range
If Not Application.Intersect(Target, Range("DV1")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
Set Plg = Range("DG1
x = Application.Match(Target, Rows(1), 0)
On Error GoTo 0
If Target.Count > 1 Or Target = "" Or x = 0 Then Exit Sub
Plg.Sort Key1:=Cells(1, x), Order1:=xlDescending, Key2:= _
Cells(1, "DU"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
La feuille 2 en donne un exemple !
Merci à l'avance et bonne journée !
La macro suivante ne me tri mal le classement de la D1 de Foot !
Le tri de la cellule DV1 qui lorsqu’elle est sur "Points" ( colonne DH) doit me tenir compte des points mais également de la colonne DO (Différence ) !
peut être que la macro demande à être corrigée !!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x%, Plg As Range
If Not Application.Intersect(Target, Range("DV1")) Is Nothing Then
Application.ScreenUpdating = False
On Error Resume Next
ActiveSheet.ShowAllData
Set Plg = Range("DG1
x = Application.Match(Target, Rows(1), 0)
On Error GoTo 0
If Target.Count > 1 Or Target = "" Or x = 0 Then Exit Sub
Plg.Sort Key1:=Cells(1, x), Order1:=xlDescending, Key2:= _
Cells(1, "DU"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
La feuille 2 en donne un exemple !
Merci à l'avance et bonne journée !