XL pour MAC Cliquez sur GO

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [I4]) Is Nothing Then
        Application.ScreenUpdating = False
        For Ligne = Range("B65500").End(xlUp).Row To 5 Step -1
            If Cells(Ligne, "F") <> 8 And Cells(Ligne, "F") <> 12 Then Rows(Ligne).Delete Shift:=xlUp
        Next Ligne
        DL = Range("B65500").End(xlUp).Row
        ActiveSheet.Sort.SortFields.Clear
        ActiveSheet.Sort.SortFields.Add Key:=Range("C5:C" & DL), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveSheet.Sort
            .SetRange Range("B4:I" & DL)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End If
Fin:
End Sub

amelie75 à dit:

si vous savez comment importer les donner du site

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir Amélie,
Un essai en PJ avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [I4]) Is Nothing Then
        Application.ScreenUpdating = False
        For Ligne = Range("B65500").End(xlUp).Row To 5 Step -1
            If Cells(Ligne, "F") <> 8 And Cells(Ligne, "F") <> 12 Then Rows(Ligne).Delete Shift:=xlUp
        Next Ligne
        DL = Range("B65500").End(xlUp).Row
        ActiveSheet.Sort.SortFields.Clear
        ActiveSheet.Sort.SortFields.Add Key:=Range("C5:C" & DL), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveSheet.Sort
            .SetRange Range("B4:I" & DL)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End If
Fin:
End Sub

Un clic sur I4 ne garde que les courses de 8 et 2 participants, et tri sur l'heure.
Par contre, pour cela :

Impossible. C'est interdit par notre charte. On ne peut fournir de code d'importation de sites. Cela pourrait contrevenir aux droits d'auteurs et copyright de ces dits sites.
Désolé.

Cliquez pour agrandir...

sylvanu à dit:

Oups! Mal lu. Sorry.

Cliquez pour agrandir...