changer le format d'un texBox

[Papirus]

Bonjour le Forum,

J'aimerais changer le format d'un textBox auquel j'ai saisie une valeur en texte à partir d'une cellule sur une autre feuille.

ex.: source 0.396828703703704 ce chiffre représente hh:mm:ss (09:31:26)

Je voudrais que le résultat affiché dans le texteBox soit : 09:31:26 au lieu du chiffre.

Merci de votre aide

Papirus39

 

[michel]

bonsoir Papirus

tu peux tester

Source = 0.396828703703704
TextBox1 = Format(Source, "hh:mm:ss")


bonne soiree
MichelXld

 

[michel]

rebonsoir

...oouuppss... je viens de m'apercevoir que "Source" est une propriété d'Excel

voici donc une version modifiée

Cible = 0.396828703703704
TextBox1 = Format(Cible, "hh:mm:ss")


bonne soiree
MichelXld

 

[Papirus]

Bonjour Michel

Est-ce que je place ce code dans le sub du texBox

Private Sub TextBox47_Change()

End Sub

Merci encore

Papirus

 

[michel]

rebonsoir Papirus

peux tu préciser de quelle maniere tu alimentes actuellement le TextBox


bonne soiree
MichelXld

 

[Papirus]

Bonsoir Michel

voici comment j'alimente ce texBox

TextBox47.Text = Workbooks("AnalyseDePerformance.xls").Worksheets("feuil1").Range("e2")

bonne soirée

Papirus

 

[michel]

rebonsoir Papirus

j'espere que cette adaptation répondra à ta demande

Dim Cible As Date
Cible = Workbooks("AnalyseDePerformance.xls").Worksheets("feuil1").Range("E2")
TextBox47 = Cible
'tester la version ci dessous au cas ou le premier exemple ne fonctionnerait pas
'TextBox47 = Format(Cible, "hh:mm:ss")


bonne soiree
MichelXld

 

[Papirus]

ReBonsoir Michel,

Je te remercie la première tentative fut la bonne.

Un gros merci.

J'ai plusieurs autres texbox à formater dans le même UserForm.

Je vais essayer de trouver un moyen pour appliquer les formats automatiquement.

Bonne fin de soirée.

Papirus