[RESOLU] problème de temps dans un userform

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU] problème de temps dans un userform

rsuinux

Si tu sais, partage. Si tu ne

bonjour;
Je suis débutant en vba et j'ai un soucis avec une donnée venant d'excel et récupérée dans mon userform.
Petite explication:
J'ai une feuille ou je place toutes mes formations avec un calcul de temps de formation (entre autre). Depuis le début de l'année, ma cellule cachée contient

Code :

=somme(e2;e51)

et la valeur actuelle est de 42h40 (j'utilise la possibilité des formats de cellule pour afficher comme il faut le contenu)
Seulement, quand je récupère le contenu dans mon userform, je perds mon formatage en heure/minute et je retrouve selon que j'utilise une variable 'date' ou 'string' : '31/12/1899 18:40:00' ou '1,7777777.....8'
voila mon code (en partie):

Code :

Private Sub UserForm_Initialize()
Temps.Enabled = False
Dim valeur As Date, mdate As String
valeur = Sheets("Formations 2013" ).Range("A2" )
mdate = valeur
Temps = mdate
End Sub

Temps est un textedit non modifiable (je rappel que je débute avec vba et même avec excel d’ailleurs)

[Il faudra aussi que je vous demande de l'aide pour mon userform, mais cela fera l'objet d'un autre fl de discution.]

Ceci étant décrit, maintenant, je fait comment pour garder mon temps en affichage 'heure/minute'?
J'ai essayé de regarder du côté de Format() mais sans être convaincu.

Auriez vous une idée, s'il vous plaît?
Merci.
Rémi.

Message édité par rsuinux le 27-02-2013 à 15:13:28

Publicité

galopin01

Bonjour,
Une fonction personnalisée pour ça :

Code :

Function CDUR$(Plage)
Dh = Fix(Plage * 24)
Dm = WorksheetFunction.Round((Plage * 24 - Dh) * 60, 2)
CDUR = Dh & ":" & Dm
End Function

et dans le initialize :

Code :

Private Sub UserForm_Initialize()
Temps.Enabled = False
Temps = CDUR(Sheets("Formations 2013" ).Range("A2" )
End Sub

A+

Marc L

Bonjour. Tout simplement pour garder l'affichage de la cellule :

Code :

Private Sub UserForm_Initialize()
Temps.Enabled = False
Temps = Sheets("Formations 2013" ).[A2].Text
End Sub

rsuinux

Si tu sais, partage. Si tu ne

Merci de vos solutions.
Je teste ça de suite !

Et la seconde méthode est la plus simple et la plus efficace! Merci beaucoup!

Reste à gérer l'userform....

Message édité par rsuinux le 27-02-2013 à 10:33:29

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU] problème de temps dans un userform

Sujets relatifs
Probleme espace membre	VBA: Problème Lecture/Ecriture en simultané sur Access
problème retour à la ligne	problème avec la console et la commande "php"
Problème programme C	Problème connexion DBF
[Access] Problème formulaire requête	Fancybox > problème flèche
LIER UN CONTROLE IMAGE USERFORM A UNE PHOTO	Problème avec JOptionPane
Plus de sujets relatifs à : [RESOLU] problème de temps dans un userform

Page générée en 0.041 secondes