Titre du sujet : Re: Récupération données PMU par turfman le 25/09/2011 23:56:47
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
|