[VBA] Changement de format de temps

Bonsoir à tous,

Je suis en train de faire une macro sous VBA, et à un certain moment je dois convertir un colonne entière comprenant des temps. Les colonnes de base se présentent sous la forme successive:
0
0.005
0.01
0.015
0.02
0.025
0.03
Etc...

Ces cellules nous indiquent des valeurs de temps précises au millième de seconde.

J'aimerais convertir ces cellules sous la forme:
00:00:00.000
00:00:00.005
00:00:00.010
00:00:00.015
Etc

C'est a dire sous la forme "hh:mm:ss.ms".
J'ai essayé le code suivant:

Code:

---

1 2 3

For o = 1 To DernLigne Cells(o, 1).NumberFormatLocal = "hh:mm:ss.ms" Next

---

Cependant, les cellules renvoyées sont absurdes. Par exemple, si on prend la cellule de base "0.005", la valeur renvoyée par ma macro pour cette cellule est "00:07:12.712" au lieu de "00:00:00.005".. J'ai besoin qu'on m'éclaire car je ne vois pas quoi faire.

Je vous remercie par avance et vous souhaite une bonne fin de soirée!

Salut Michel,

Si tes temps sont toujours de ce format:

Citation:

---

0
0.005
0.01
0.015
0.02
0.025
0.03

---

Alors je ferai de cette façon avec un split

Code:

---

"00:00:00." & split("0.005",".")(1)

---

Sinon avec un replace

Code:

---

replace("00:00:00.000","000",split("0.005",".")(1)

---

ici il y aura un problème si les millisec sont égale à 0
ou

Code:

---

replace("00:00:00.000","0.000","0.005")

---

ici plus de souci mais pour les millisec = 0 cela te retournera de cette façon:

Citation:

---

00:00:00

---

Enfin pour palier à tous ces désagréments tu peux faire comme çà

Code:

---

iif(tacellule > 0, replace("00:00:00.000","0.000",tacellule), tacellule="00:00:00.000")

---

Seb

Bonjour
Sachant que dans un journée il y a 24H, que dans une heure il y a 60mn, dans une minute il y a 60s....
Tu peux essayer un truc du genre [B1] =A1/60/60/24 puis ajouter la mise en forme [h]:mm:ss.000;@

Bonjour a tous, et merci.

Je suis au final partit sur l'idée de sogedic, j arrive a tout calculer correctement, mais impossible d afficher dans ce format.
Tout s'affiche dans le format "00:00:00", je n 'arrive pas à forcer l'affichage sous la forme "00.00.00.000", directement dans ma macro..

Quelqu'un a une idée?



:)

Code:

---

1 2 3 4 5 6

Private Sub test() ActiveCell.NumberFormat = "hh:mm:ss.000" ActiveCell.Value2 = "00:00:00.015" ActiveCell.Offset(1).NumberFormat = "hh:mm:ss.000" ActiveCell.Offset(1).Value2 = ActiveCell.Value2 + CDate("00:20:00") End Sub

---

Salut à toi,

Merci beaucoup pour ton aide! J'ai testé ton code, et pour ma par j'aimerai faire une boucle qui me remplisse les colonnes d'une cellule jusqu'a un certain indice N. L'incrément serait de 0.005ms. Si on repart de ton code, j'ai pensé à:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub test()   For i=1 To N   Cell(i,1).NumberFormat = "hh:mm:ss.000" Cell(i,1).Value2 = "00:00:00.000" Cell(i,1).Offset(1).NumberFormat = "hh:mm:ss.000" Cell(i,1).Offset(1).Value2 = ActiveCell.Value2 + CDate("00:00:00.005") 'le "+CDate("00:00:00.005") permettrait d'incrémenter   Next   End Sub

---

Cependant, le code ne semble pas être bon car j'ai une erreur qui apparrait quand j'exécute ma macro...

Quelqu'un voit d'ou vient le problème?

Citation:

---

Bonsoir rdurupt,

Je sais que ce n'est pas dans l'esprit d'un forum que d'envoyer un message privé pour avoir une réponse à sa question, mais je suis actuellement assez embêté car je dois rendre un travail urgent dans le cadre de mon stage et je n'y arrive vraiment pas.

Le lien de mon psot est le suivant: http://www.developpez.net/forums/d15...s/#post8506819

Je pense que l'orientation que tu m'as donnée dans ta réponse est la bonne, mais comme expliqué dans mon poste suivant quelque chose bloque pour faire exactement ce que je veux...

Aurais tu une idée?


Encore désolé pour le message privé qui n'est pas réservé à ce genre de demande..

---

non si non pas d’intérêt d'envoyer des message privés!

Code:

---

1 2 3 4 5 6 7

Sub Test() n = 10 Range(Cells(1, 1), Cells(n, 1)).NumberFormat = "hh:mm:ss.000" Cells(1, 1).Value2 = 0 Range(Cells(2, 1), Cells(n, 1)).FormulaR1C1 = "=R[-1]C+ 1.73611111111111E-07" Range(Cells(2, 1), Cells(n, 1)).Value2 = Range(Cells(2, 1), Cells(n, 1)).Value2 End Sub

---

Un grand merci a toi !
Dernier point: ici les pas sont de 15 millièmes, je voudrais des pas de 5 millièmes.. comment faire? Je n'ai pas trop compris comment tu ajustais ca..

EDIT: J'ai trouvé en divisant simp^lement ta constante par 3! MERCI Beaucoup a toi, ton aide m'a été précieuse.

Bonjour,
Je voulais que tu approprie le code, bien sur la constante est basée sur un fragment de journée,
Mais l'opération dans son ensemble ce fait sur une plage de cellules et pas sur une boucle.

Voir a l'oeuvre un autre raisonnement permet d'affiner ses méthodes d'analyse.