Microsoft 365 Problème de format kms dans Vba

[pelerin65]

Bonjour,

je suis en train de créer un fichier avec vba et je n'arrive pas a mettre ce format kilométriques de ce type "000,000 Kms" apres maintes recherches je reussis pas a avoir le format voulu

Private Sub Txtnombrekms_Change()
Txtnombrekms = Format(Replace(Txtnombrekms, " Kms", ""), "#####.### Kms")
End Sub
avec ce code ca me donne comme résultat "1,234 kms" et j aimerais avoir la possibilité de pouvoir taper 3 chiffres avant et trois après la virgule
je cherche l'erreur dans le code

je joins le fichier

merci de votre aide

 

[Bernard_XLD]

Bonsoir pelerin65, le forum

Txtnombrekms = Format(Replace(Txtnombrekms, " Kms", ""), "000.000 Kms")

Bonne nuit

 

[pelerin65]

merci Yeahou pour ton aide
désolé pour l oubli de te remercié.

j 'avais passé l'après midi a chercher sur le net et surement la fatigue lorsque j ai vu ta réponse vu l'heure.

je me suis lancé dans ce projet sans grande connaissance
merci encore

 

[pelerin65]

bonjour,
et un autre question concernant un calcul de la différence d'un point kilométrique d 'entrée - un pk kilométrique de sortie en ne voulant un résultat de type ABS ( de résultat négatif ) et qu'il se place dans la feuille "journée" dans la cellule AA
merci d'avance