EXCEL Pb heures de liste vers TextBox Résolu

Question

Bonjour à toutes et tous,

Je viens à vous car j'ai un problème avec les heures dans les TextBox
    J'ai une feuille EXCEL avec une liste contenant des données variées dont des heures
(en format hh:mm).

    J'ai créé un formulaire qui me permets d'ajouter ou modifier des lignes, le soucis et quand les heures remontent dans le formulaire, elles le font en format décimal. 
(exemple: 0,5625 pour 13:30) Alors qu'à l'inverse, l'export de la TextBox vers la liste conserve bien le format hh:mm.

   Le formulaire servira à la vérification par chacun de ses données perso, il faut bien sur que les données qui remontent soient compréhensibles. 
    J'avoue avoir bien besoin d'un coup de main sur ce problème, je vous remercie d'avance.

    Je joins une version "light" du fichier.

	https://www.cjoint.com/?BJhsD0lTaXu



Configuration: Windows 7 / Firefox 15.0.1

eriiic · Answer

Bonjour,

je ne vois pas trop où tu mets à jour ton textbox mais le principe est d'utiliser format() (que tu utilises dans le code d'ailleurs...)

textbox1 = format(ta_valeur,"hh:mm")

Si ça ne suffit pas indique plus précisément la ligne.

eric

letof40 · Answer

Bonsoir Eriic,

ce sont les TextBox "dma, fma, dap et fap" qui me posent problème, lorsque j'ouvre la UserForm, (par bva, je n'ai pas de bouton sur le fichier pour le moment)et que je valide un NNI par la ComboBox, les valeurs contenues dans le tableau feuille Données remontent  et les heures des colonnes "L,M,N et O" sont en décimale systématiquement malgré la commande format.
Voilà qui est peut être un peu plus clair, je suis à ta dispo, merci

Christophe

Mytå · Answer

Salut le forum

Une façon de faire

Private Sub NNI_Change()
    Dim Lg As Long

    Lg = NNI.ListIndex + 2
    For Each ctl In Me.Controls
        If ctl.Tag > "A" Then
            ctl.Value = Feuil2.Range(ctl.Tag & Lg)
            If ctl.Tag > "K" Then
                ctl.Value = Format(Feuil2.Range(ctl.Tag & Lg), "hh:mm")
            End If
        End If
    Next

End Sub
Mytå

letof40 · Answer

Merci de votre aide, ça fonctionne parfaitement

eriiic · Answer

Pour info dans 
Private Sub DMA_Change()
    If Len(DMA) = 4 Then
        conversionHeure DMA
        'TotaliseHeures
        FMA.SetFocus
    End If
End Sub tu exclus les valeurs telles que 0,5625

Si tu avais été un peu plus coopératif et dis "je ne met à jour les textbox QUE dans les procédures TextBox_Change" tu aurais eu la réponse plus tôt.
L'équivalent de ta non réponse était : débrouille-toi à toi à tout faire en pas à pas et cherche, ça peut être n'importe où dans le code. Même si ça te prend 2h, je ne te dirais pas où je les met à jour.
 
eric

EXCEL Pb heures de liste vers TextBox

5 réponses

Discussions similaires

Newsletters