Bonjour Myta,
Peux tu nous renvoyer le classeur avec le nouveau code, ce serait sympa.
Cordialement. 

Bonjour Myta,

Merci infiniment de t'intéresser à ce problème, mais hélas  ça ne marche pas.

Si tu veux voir de plus près je te joins le fichier. Essaie date 24092011-> maj liste->choisir course ->(Auteuil  Hunorisk) -> import détail Partants-> calcul valeur -> j'ai surligné le cheval 12 il faut donc supprimer (09)(08) pour avoir dans calcvaleur 7 2 1 1 6 1 1

Certaines fois il peut y avoir (10)(09)(08)

Cordialement.

Turfman.

 

Option Explicit
' Auteur    : Didier FOURGEOT (myDearFriend!)  -  www.mdf-xlpages.com

Sub RecupValeurs()
Dim FSource As Worksheet, FCible As Worksheet
Dim LigneSourceEnCours As Long, LigneCibleEnCours As Long
Dim V As Variant, TabTemp As Variant
Dim Col As Byte

    Set FSource = Sheets("Partants")
    Set FCible = Sheets("CalculValeur")
    LigneSourceEnCours = 16
    LigneCibleEnCours = 2
    FCible.Range("B2:L21").ClearContents
    Do
   
        V = FSource.Cells(LigneSourceEnCours, 2).Value
        FCible.Cells(LigneCibleEnCours, 2) = IIf(Val(V) > 0, V, 0)
        V = FSource.Cells(LigneSourceEnCours + 1, 2).Value
        FCible.Cells(LigneCibleEnCours, 3) = IIf(Val(V) > 0, V, 0)
        V = FSource.Cells(LigneSourceEnCours + 2, 2).Value
        FCible.Cells(LigneCibleEnCours, 4) = IIf(Val(V) > 0, V, 0)
       
        V = FSource.Cells(LigneSourceEnCours + 7, 2).Value
        If Val(V) > 0 Then FCible.Cells(LigneCibleEnCours, 5) = V
        V = FSource.Cells(LigneSourceEnCours + 4, 2).Value
        If Val(V) > 0 Then FCible.Cells(LigneCibleEnCours, 6) = V

        'Musique !
        V = Replace(FSource.Cells(LigneSourceEnCours + 3, 2).Text, "(10) ", "")
        TabTemp = Split(V, " ")
        For Col = 0 To Application.Min(UBound(TabTemp) - 1, 5)  'les 6 premières courses seulement
            With FCible.Cells(LigneCibleEnCours, Col + 7)
                .Value = Left(TabTemp(Col), 1)
                 .HorizontalAlignment = xlCenter
            End With
        Next Col
       
        'On passe au cheval suivant
        LigneSourceEnCours = LigneSourceEnCours + 23
        LigneCibleEnCours = LigneCibleEnCours + 1
       
    Loop Until FSource.Cells(LigneSourceEnCours, 2) = ""
End Sub
 

je te remercie infiniment mais ou mettre ta fonction.
Voici la page de code ( oeuvre de Didier) dans laquelle il supprimait uniquement (10) . Il faudrait rajouter (09) (08)

 V = Replace(FSource.Cells(LigneSourceEnCours + 3, 2).Text, "(10) ", "")
Merci

Bonjour,

Voici la "musique" d'un cheval au Turf qui représente les performances sur sa carrière:

(10) 1s 7h (09) 7h 2s 1p (08) 1s                 (10) (09) (08) représentent l'année.

Il faudrait que je récupère uniquement ceci:   1 7 7 2 1 1   il faut supprimer les parenthèses et les chiffres inclus.

J'ai ce code VBA :

'Musique !

        V = Replace(FSource.Cells(LigneSourceEnCours + 3, 2).Text, "(10) ", "")

        TabTemp = Split(V, " ")

        For Col = 0 To Application.Min(UBound(TabTemp) - 1, 5) 'les 6 premières courses seulement

            With FCible.Cells(LigneCibleEnCours, Col + 7)
Bien entendu seul (10) est supprimé,

Je voudrais supprimer (09) et (08) . Avez-vous une idée?

Merci.