Comment épurer la musique d'un cheval

bonjour

sur le fichier j'ai épuré la musique cela provoque des intervalles qui ne sont pas les mêmes entre les performances ce qui provoque une erreur dans la formule

sur le fichier les numéros entre parentèses sont les années donc à supprimer les () aussi

les s,t,p à supprimer

th ts à remplacer par 0

au trot les d remplacer par 0

les m et a à supprimer

da dm à remplacer par 0

c'est une chaine sans espace

merci de m'avoir répondu

cordialement

Re,

J'avais déjà établi une fonction selon ce que j'ai indiqué dans mon post précédent qui ne fait pas tout à fait ce que tu demandes.

Je la livre tout de même dans le fichier joint.

Par ailleurs, il serait bon que tu respectes la casse, d'autant qu'elle a sa signification selon les documents que nous avons pu voir (grâce à VbaBeginer), et donc th n'est pas Th !

Si je comprends ce que tu veux :

• ne pas distinguer les années,
• relever toutes les performances sans séparations,
• ramener tous incidents ayant abouti à un non classement à 0

Je vais donc simplifier la fonction pour qu'elle réponde à ces spécifications (à moins que tu n'infirmes rapidement)

Cordialement.

Fonction réaménagée selon les dernières indications :

Function MUSIQUE(mus As String) As String
    Dim msq, i%
    Application.Volatile
    msq = Replace(mus, " ", "")
    For i = Len(msq) - 1 To 3 Step -2
        msq = Left(msq, i - 1) & " " & Right(msq, Len(msq) - i + 1)
    Next i
    msq = Split(msq)
    For i = 0 To UBound(msq)
        Select Case Right(msq(i), 1)
            Case ")"
                msq(i) = ""
            Case Else
                If IsNumeric(Right(msq(i), 1)) Then
                    msq(i) = ""
                Else
                    If IsNumeric(Left(msq(i), 1)) Then
                        msq(i) = Left(msq(i), 1)
                    Else
                        msq(i) = 0
                    End If
                End If
        End Select
    Next i
    msq = Join(msq)
    MUSIQUE = Replace(msq, " ", "")
End Function

Cordialement.

bonjour

et merci pour la macro

je vais voir cela plus tard

cordialement

bonjour

quelques explication pour bien comprendre

Pour bien lire la musique d'un cheval, il faut connaitre les quelques abréviations qui la constituent.

1. Pour tous les chevaux :

- " 0" indique qu'il n'a pas été classé parmi les 10 premiers, tout chiffre différent de 0 indique la place du cheval dans la course

- " T" indique qu'il est tombé

- " A" indique qu'il a été arrêté

- " Ret" signifie qu'il a été rétrogradé de la place.

2. Pour un galopeur :

- " s" désigne les épreuves du type steeple-chase

- " h" désigne les épreuves de haies

- " c" désigne les épreuves de cross

- " p" désigne les courses de Plat

3. Pour un trotteur :

- "a" signifie course Attelée"m" signifie course Montée

- "0" indique qu'il n'a pas été classé parmi les 10 premiers

- "D" signifie qu'il a été disqualifié pour allure irrégulière

La musique se lit de gauche à droite, de la course la plus récente à la plus ancienne.

Le nombre entre parenthèses (dernier 2 chiffres de l'année) indique le passage d'année civile.

Exemple :

Pour un galopeur : Ts 5h 4h 3h(12) 5p 5p

Le chiffre indique la place du cheval et la lettre le type d'épreuve à laquelle il a participé.

On sait que ce cheval :

- a couru 2 fois en 2012 dans des courses de Plat, finissant 5ème les 2 fois.

- a couru 4 fois en 2013, 3 fois dans des épreuves de haies en se classant une fois 3ème, une fois 4ème, et une fois 5ème. Il est tombé lors de sa seule participation à un steeple-chase.

Pour un trotteur : 3a 5m 4a 3a(12) 5a 0a Dm

Le chiffre indique la place du cheval et la lettre le type d'épreuve à laquelle il a participé.

On sait que ce cheval :

- a couru 3 foi en 2012, la première fois au Monté oùil a été disqualifié pour allure irrégulière, les 2 autres fois à l'Attelé oùil a été non classé à la première fois et 5ème à l'Attelé.

- a couru 4 fois en 2013, se classant 2 fois 3ème et une fois 4ème à l'Attelé et 5ème au Monté.

cordialement

Bonjour Scorpion59

Sans macro

Voici un fichier Excel 2010

bonjour

la macro fonctionne a merveille

et merci pour le fichier turf

je verrais cela plus tard

merci pour vos reponses

cordialement