Tableau sur Excel II

sousmarinier -  
cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Peut-on transformer cette donnée
Arles Avignon / N1.55 N / Auxerre1.20 Arles Avignon / Auxerre1.20

Bordeaux / N1.15 N / Lorient1.70 Bordeaux / Lorient1.20

Monaco / N1.20 N / Brest1.55 Monaco / Brest1.25

Nancy / N1.45 N / Lyon1.30 Nancy / Lyon1.25

Sochaux / N1.20 N / Lens1.50 Sochaux / Lens1.25

Valenciennes / N1.25 N / Caen1.45 Valenciennes / Caen1.25

St Etienne / N1.35 N / Marseille1.35 St Etienne / Marseille1.25

En tableau suivant sur Excel

1,55 : 1,2 :1,2

1,15 : 1,7 :1,2

1,2 : 1,55 :1,25

1,45 : 1,3 :1,25

1,2 : 1,5 :1,25

1,25 : 1,45 :1,25

1,35 : 1,35 :1,25

Merci de m'aider
GLS





A voir également:

1 réponse

Réponse 1 / 1
cousinhub29 Messages postés 1130 Date d'inscription   Statut Membre Dernière intervention   364
 
Bonjour,

En supposant tes données à partir de la cellule A1, essaie ce code : 

Sub paris()
Dim Cel As Range
Dim Prem As Byte, Deux As Byte, Trois As Byte
For Each Cel In Range("A1:A" & [A65000].End(xlUp).Row)
    Prem = InStr(1, Cel, ".")
    Deux = InStr(Prem + 1, Cel, ".")
    Trois = InStr(Deux + 1, Cel, ".")
    Cel.Offset(, 1) = Val(Mid(Cel, Prem - 1, 4)) & " : " & Val(Mid(Cel, Deux - 1, 4)) & " : " & Val(Mid(Cel, Trois - 1, 4))
Next Cel
End Sub


Bonne nuit
0