Afficher 10 éme de seconde dans un userform
Bonjour,
Les 10 éme de secondes ne s'affiche pas dans ma boite de dialogue !
Je ne trouve rien sur le web !
Merci !
Re,
Les lignes de code :
.TextBox1 = Sht.Cells(lig, 2)
.TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00")
Bonne journée !
Bonjour,
La fonction Format produit une valeur texte formaté selon un format accepté par la fonction !
Il n'y a pas identité entre formats utilisables comme formats de cellules et formats utilisables avec la fonction.
Cordialement.
Bonjour à tous,
La réponse est :
.TextBox1 = Sht.Cells(lig, 2).Text
.TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00")
Bonne journée !
Bonjour !
INEXACT !
.TextBox1 = Sht.Cells(lig, 2).TextCeci est une solution pour que la valeur affichée dans la TextBox soit identique à l'affichage de la cellule.
La valeur numérique contenue dans la cellule est formatée selon le format de la cellule, c'est cette valeur formatée qui est récupérée sous forme texte (il ne s'agit plus d'une valeur numérique) et affectée à la TextBox.
Par contre cela : .TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00") ne sert strictement à rien et est sans effet. La valeur de la TextBox est du texte, non spontanément convertible, le format lui est donc inapplicable, car il ne peut s'appliquer qu'à un nombre.
C'est d'ailleurs le fait qu'il ne puisse s'appliquer qui conserve la valeur texte affectée, car le format indiquée appliqué à une valeur numérique par Format supprimerait les décimales (l'interprétation du format par Format n'étant pas la même que par la cellule, et se traduit pas l'ajout de : ,00).
Bien évidemment la valeur insérée dans la TextBox par la 1re ligne de code n'est pas utilisable dans des calculs, et réaffectée à une cellule le sera en tant que valeur texte (ce que l'on peut facilement vérifier par son cadrage à gauche dans la cellule).
Cordialement.