Inscrir dans des pages differente les catégories

Question

Petite question. Cela environ 2h que je cherche la solution mais, je seche. J'espere que vous allez pouvoir m'aider.J'ai fait un tableau pour une course a pied. Au final quand la course est finit, j'aimerai pouvoir visualiser et imprimer les resultats par categorie.Dans la page "espoir M" voir les espoir masculin mis dans la page "resultat course" par ordre d'arrivé (du 1er au dernier) et, ainsi de suite sur toutes les page. Si un sauveur pouvait intervenir ce serai bien Merci a tous et longue vie a ce forum que je trouve superbe Petit probleme, mon fichier fait 312Ko et il est trop gro. Comment faire pour inserer mon dossier? Suzette...

vba-new · Answer

Tu peux essayer de le compresser avant de le joindre. Sinon, si c'est encore trop gros, tu peux aller par ici : http://cjoint.com/...

vba-new · Answer

Il aurait été plus facile que les noms des catégories correspondent aux noms des feuilles mais bon, voici une solution :

Sub dispatchResultats()
Dim derlign As Long, i As Long, derlignTemp As Long
Dim nomFeuil As String

    derlign = Sheets("resultat course").[i5:i65536].Find("", LookIn:=xlValues).Row - 1
    For i = 5 To derlign
        If Cells(i, 9) Like "Vétéran*" Then
            nomFeuil = "Vétéran " & Replace(Right(Cells(i, 9), 3), " ", "")
        ElseIf Cells(i, 9) Like "Sénior*" Then
            nomFeuil = Replace(Cells(i, 9), "é", "e")
        Else
            nomFeuil = Cells(i, 9)
        End If
        derlignTemp = Sheets(nomFeuil).Range("b65536").End(xlUp).Row + 1
        Sheets(nomFeuil).Range("b" & derlignTemp & ":f" & derlignTemp) = Sheets("resultat course").Range("f" & i & ":j" & i).Value
    Next i
End Sub

Le fichier qui va avec.