Tableau sur Excel II
Fermé
sousmarinier
-
2 oct. 2010 à 18:57
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 - 3 oct. 2010 à 04:10
cousinhub29 Messages postés 643 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 24 mars 2023 - 3 oct. 2010 à 04:10
A voir également:
- Tableau sur Excel II
- Liste déroulante excel - Guide
- Formule excel - Guide
- Tableau croisé dynamique excel - Guide
- Tableau ascii - Guide
- Déplacer une colonne excel - Guide
1 réponse
cousinhub29
Messages postés
643
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
24 mars 2023
325
3 oct. 2010 à 04:10
3 oct. 2010 à 04:10
Bonjour,
En supposant tes données à partir de la cellule A1, essaie ce code :
Bonne nuit
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