XL pour MAC Cliquez sur GO

[amelie75]

Bonsoir
encore besoin de votre aide
comment faire pour ne garder que les courses de 8 a 12 partants
et effacer les autres en cliquant sur I4
je fait un copier coller d'un site que je colle sur la FEUIL1 car je ne sais pas comment
l'exporter
je ne prend que quelque donner apres que je met en FEUIL2
et la formule que je recherche c'est qu'il ne garde que les course de 8 a 12 partants qui sont en (G5/G57)et me les reclasse par heure
en cliquant sur le bouton GO (I4)
merci d'avance pour votre aide
PS: si vous savez comment importer les donner du site qu'il y a en FEUIL1 vous pourriez me le mettre svp
le lien du site et en FEUIL1 sur B4
merci d'avance pour votre aide

 

[sylvanu]

Bonsoir Amélie,
Un essai en PJ avec :

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 :

si vous savez comment importer les donner du site

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é.

 

[amelie75]

Bonsoir Amélie,
Un essai en PJ avec :

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é.

merci pour votre aide mais je voulais les courses de 8 a 12 partants
8-9-10-11-12 alors que la j'ai que les partant 8 et 12 il me manque 9-10-11

 

[sylvanu]

Oups! Mal lu. Sorry.

 

[amelie75]

Oups! Mal lu. Sorry.

Whouahhh comment tu et trop fort
une dernière chose stp
j'ai fait = de la Feuil2
en K33/N33
quand j'écris 2 en K33 de la Feuil1 il et censer me mettre en L33 (3) M33 (2) N33 (1)
hors la ça ne fonctionne pas tu peut m'aider stp