Correspondance entre VBA et macro Excel 4 (problème heures)

Bonjour à tous,
Je sèche sur un problème depuis 15 jours et je n'y arrive pas (je suis aussi novice en VBA).

J'ai une macro qui tourne dans un fichier (macro excel 4) qui récupère 6 chiffres provenant d'une boîte de dialogue et transforme les chiffres avec la fonction T puis l'inscrit dans une feuille excel sous le format personnalisé MM:SS,00 (minutes:secondes,centièmes). Cela donne comme affichage dans la cellule ex: 12:45,87.

Code:

---

1 2 3 4 5

=STXT(A4;1;2) =STXT(A4;3;2) =STXT(A4;5;2) =T("00:"&T(A8)&T(":")&T(A9)&T(",")&T(A10)) =FORMULE(MACRO!A12)

---

J'essaie de faire de même avec VBA mais là l'inscription dans la feuille excel se reporte 00:12:45,87 et ne respecte pas le format personnalisé MM:SS,OO. Il y a aussi avec ce code une erreur de calcul (dans la feuille il y a un calcul de temps tps1-tps2=), voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Recup, ab, cd, ef, Result   Recup = TextBox_numero ' les chiffres tapés dans textbox_numero ab = Mid(Recup, 1, 2) ' Renvoie les 2 premiers chiffres (ex : 11). cd = Mid(Recup, 3, 2) ' Renvoie "les 2 suivants (ex : 22). ef = Mid(Recup, 5, 2) ' Renvoie les 2 derniers (ex : 33).   Result = "00:" & ab & ":" & cd & "," & ef 'concatener les resultats pour avoir 00:11:22,33   ActiveCell.FormulaR1C1 = Result 'met ds la cell active le résultat

---

Merci le forum

Salut, à titre documentaire, mais pas seulement, lire : Comprendre et gérer les dates sous Excel et en VBA

Bonjour,

Les fonctions VBA (CDate, TimeValue) ne gèrent pas les centièmes de secondes.
Il faut donc trouver une astuce.

Voici une possibilité.
Dans un module Standard:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Public Function ConvertTime(value As String) As Double Application.Volatile Dim dblMM As Double Dim dblSS As Double Dim dblCC As Double Dim iMM As Integer Dim iSS As Integer Dim iCC As Integer   value = Format(value, "000000") ' Force leading zeroes iMM = Val(Mid(value, 1, 2)) iSS = Val(Mid(value, 3, 2)) iCC = Val(Mid(value, 5, 2))   dblMM = (1 / 1440 * iMM) dblSS = (1 / 86400 * iSS) dblCC = (1 / 8640000 * iCC)   ConvertTime = dblMM + dblSS + dblCC End Function

---

Et dans la cellule de destination à mettre au format "mm:ss,00":

Code:

---

=ConvertTime(A4)

---

Une autre version, sans String:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Option Explicit   Public Function ConvertTime(value As Long) As Double Application.Volatile Dim dblMM As Double Dim dblSS As Double Dim dblCC As Double Dim iMM As Integer Dim iSS As Integer Dim iCC As Integer   Dim iTemp As Long   iTemp = value - (value Mod 10000) iMM = iTemp / 10000 value = value - iTemp iTemp = value - (value Mod 100) iSS = iTemp / 100 iCC = value - iTemp   dblMM = (1 / 1440 * iMM) dblSS = (1 / 86400 * iSS) dblCC = (1 / 8640000 * iCC)   ConvertTime = dblMM + dblSS + dblCC End Function

---