Format heure dans un textbox

A

Arnaud

Guest

• 12 Mai 2004

• #2

salut,

écris plutot un truc du style :

Private Sub UserForm_Activate()
nConfig.Value = ActiveCell.Value
ActiveCell.Offset(0, 1).Select

TempsActu.Value = Format(ActiveCell.Value, "hh:mm")


ActiveCell.Offset(0, -1).Select

Dim dernieremplacement As String
dernieremplacement = Range("b1").End(xlDown).Address
ComparerConfig.TempsPassage.RowSource = "'CONFIG'!b1: " & dernieremplacement & ""


dernieremplacement = Range("a1").End(xlDown).Address
ComparerConfig.ListeConfig.RowSource = "'CONFIG'!a1: " & dernieremplacement & ""


End Sub

 

Vote positif 0 Vote négatif

H

herve

Guest

• 12 Mai 2004

• #3

Bonjour, Munchkin...,

bonjour le forum,

sans chercher a comprendre, j'ai juste modifié la place de ta ligne de format du textbox cela devient :

Private Sub UserForm_Activate()

nConfig.Value = ActiveCell.Value
ActiveCell.Offset(0, 1).Select

TempsActu.Value = ActiveCell.Value
TempsActu.Value = Format(Date, "hh:mm")

ActiveCell.Offset(0, -1).Select

etc...
etc...

End Sub

le textbos affiche alors 00:00, ce qui semble etre le format demande. reste a lui donner une valeur et voir ce que cela donne...

esperant t'avoir aidé,

@+ Hervé

 

Vote positif 0 Vote négatif

H

herve

Guest

• 12 Mai 2004

• #4

re...

j'ai croise le post d'Arnaud.

le resultat est apparement le meme...

le tout etant de donner une valeur a ton textbox avant de lui donner un format...

@+ Hervé

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 12 Mai 2004

• #5

Salut Arnaud, je pense que tu n'as rien changé dans le code, c'est le meme que j'avais, mais bon il marche, je pense qu'il y avait un petit bug, le problème venait d'ailleurs

Merci quand meme

Munchkin

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 12 Mai 2004

• #6

ah ok

j'avais trouvé la oslution après, je m'excuse Arnaud, j'avais trouvé la solution mais je l'avais pas signalé

Je vais essayé celle de Hervé aussi

Merci pour vous deux

 

Vote positif 0 Vote négatif

H

herve

Guest

• 12 Mai 2004

• #7

re
Si SI arnaud a change quelque chose :

TempsActu.Value = Format(ActiveCell.Value, "hh:mm")

cela met la valeur au format sans probleme...

et donc plus de souci.

pour ma soluce, oublie la elle donne rien de plus.

@+ hervé

 

Vote positif 0 Vote négatif

M

Munchkin

Guest

• 12 Mai 2004

• #8

oui c'est vrai c la variable heure que j'avais pas déclaré

 

Vote positif 0 Vote négatif