Tableau sur Excel II
Fermé
sousmarinier
-
2 oct. 2010 à 18:57
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 - 3 oct. 2010 à 04:10
cousinhub29 Messages postés 882 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 25 avril 2024 - 3 oct. 2010 à 04:10
A voir également:
- Tableau sur Excel II
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
- Imprimer tableau excel sur une page - Guide
- Formule excel - Guide
1 réponse
cousinhub29
Messages postés
882
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
25 avril 2024
334
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