Discussion :

[maoricio]

bonjour a tous

j'ai un petit soucis dont je suis sur que qq'un a la solution car ca doit pas etre grand chose

dans l' UF j'ai une Cbx qui fait reference a des heures

et lorsque je lance l'UF j'ai des chiffres decimaux?

quelle est la formule magique qui permette de respecter le format de la liste

merci par avance

maoricio

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cbx.additem format(variabledécimale,"hh:nn:ss")

Pas testé mas il me semble me souvenir...
Edit
C'est bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
LHeure = 0.458265
MsgBox Format(LHeure, "hh:nn:ss") '10:59:54

[maoricio]

merci pour ta reponse rapide

mais ca marche pas, il y a un truc que je ne dois pas savoir faire

code pour la cbx

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each Cellule In .Range("P2:P" & .Range("P100").End(xlUp).Row)
    On Error Resume Next
    Coll.Add Cellule, CStr(Cellule)
    If Err = 0 Then
        Me.CBxheure.AddItem (CStr(Cellule))
    End If
    On Error GoTo 0
  Next Cellule
  Set Coll = Nothing

code que je dois ajouter ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub CBxheure_Change()
LHeure = 0.458265
MsgBox Format(LHeure, "hh:mm:ss") '10:59:54
 
End Sub

thanks

[ouskel'n'or]

Pour renseigner ton combo,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each Cellule In .Range("P2:P" & .Range("P100").End(xlUp).Row)
     if Cellule <> "" and instr(Cellule,".") <> 0 then _
        Me.CBxheure.AddItem Format(Cellule, "hh:mm:ss")
Next Cellule

Dans le "If" je vérifie que cellule contient bien quelque chose et que ce quelque chose est bien décimal. On pourrait aussi vérifier que c'est bien un nombre (cnum(Cellule))
pour Coll.Add Cellule, CStr(Cellule), je ne comprends pas ce que tu fais...
A+

[maoricio]

merci ca fonctionne mais ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 'Liste des heures
  For Each Cellule In .Range("P2:P" & .Range("P100").End(xlUp).Row)
         Me.CBxheure.AddItem Format(Cellule, "hh:mm")
     On Error Resume Next
    Coll.Add Cellule, CStr(Cellule)
    If Err = 0 Then
        Me.CBxheure.AddItem (CStr(Cellule))
    End If
    On Error GoTo 0
  Next Cellule
  Set Coll = Nothing

j'ai bien ce que je voulais sauf qu'en plus des heures de la liste il a aussi ajouté les memes valeurs mais en decimal

donc j'ai dans la cbx 8H00 et 0,33 etc...

[ouskel'n'or]

Si tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    If Err = 0 Then
        Me.CBxheure.AddItem (CStr(Cellule))
    End If

c'est normal qu'il t'ajoute le nombre décimal, mon code à moi ne contient pas d'erreur...

Tu ne m'as toujours pas dit à quoi servait la deuxième Coll.add