heure dans un combobox

Bonjour, il y a bien longtemps que je n'ai pas mis le nez dans le VBA, et j'aimerais savor comment afficher dans une combobox une au format 00:00:00
dans "rowsource" j'ai bien cette mise en forme, mais quand j'utilise la combobox, et que je renvoi la valeur, elle passe en numérique 0,25 - 0.5 etc je suppose que c'est simple mais je ne sais pas faire.
cordialement

Bonjour,


oui bizarre ton truc.. tiens essai ce code pour contourner ton probléme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim r As Range Dim c As Range Set r = Range(ComboBox1.RowSource) ComboBox1.RowSource = "" ComboBox1.Clear For Each c In r.Cells ComboBox1.AddItem c.Text Next End Sub

---

est ce que tu veux afficher l'heure du système?
si c'est oui
essayé:

Code:

---

1 2 3

Private Sub UserForm_Activate() UserForm1.ComboBox1 = CDate(Format(Now, "hh:nn:ss")) End Sub

---

Non voilà le code que j'ai mais cela ne donne rien

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Planning_Initialize() Dim r As Range Dim c As Range Set r = Range(ComboBox_heureDebut.RowSource) ComboBox_heureDebut.RowSource = "" ComboBox_heureDebut.Clear For Each c In r.Cells ComboBox_heureDebut.AddItem c.Text Next End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton_valider_Click()   Worksheets("Essai").Activate 'selectionne la feuille Fiche Contact Range("A65536").End(xlUp).Offset(1, 0).Select   ActiveCell.Value = Planning.ComboBox_heureDebut.Value   ActiveCell.Offset(0, 1).Value = Planning.ComboBox_HeureFin.Value     Planning.Hide   End Sub

---

Non c'est tout simple ce que je veux faire :
j'ai un combobox avec une heure d'arrivée, une seconde avec une heure de départ, et tout cela arrive sur ma feuille de calcul afin de calculer la différence.

exemples : heure d'arrivée 6:00 heure de départ 11:00 différence 5:00

car c'est pour faire des calcul hebdomadaire et mensuel;
Cordialement

tu remplace

Code:

---

ActiveCell.Value = Planning.ComboBox_heureDebut.Value

---

par

Code:

---

ActiveCell.Value = format(Planning.ComboBox_heureDebut.Value,"hh:nn:ss")

---

et

Code:

---

ActiveCell.Offset(0, 1).Value = Planning.ComboBox_HeureFin.Value

---

par

Code:

---

ActiveCell.Offset(0, 1).Value = format(Planning.ComboBox_HeureFin.Value,"hh:nn:ss")

---

re,

Citation:

---

Envoyé par Didpa

N...
Private Sub Planning_Initialize()
...

---

pas planning_Initialize() : UserForm_Initialize() ! la fonction d'initalisation à le même nom qu'elle que soit le nom de l'userform..

avec ce code j'ai le message d'erreur suivant "Nombre d'argument incorrect ou affectation de propriete incorrect"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton_valider_Click()   Worksheets("Essai").Activate 'selectionne la feuille Fiche Contact Range("A65536").End(xlUp).Offset(1, 0).Select   ActiveCell.Value = Format(Planning.ComboBox_heureDebut.Value, "hh:mm:ss")   ActiveCell.Offset(0, 1).Value = Format(Planning.ComboBox_HeureFin.Value, "hh:mm:ss")   Planning.Hide   End Sub

---

Sur qu'elle ligne l'erreur ? , pourrai tu nous confirmer ou ce trouve ton probléme ce dernier code traite du format d'affichage des données dans la feuille excel, et pas dans la le combobox où je pensai qu'était situé ton probléme :aie:

c'est le mot "format" qui est en surbrillance

pour ce qui est de l'affichage, c'est dans la combobox, car la liste apparrait bien au format voulu, dès que je choisi l'heure, la elle change de format.

et elle arrive donc au format 0.5 - 0.25 sur ma feuille de calcul.

donc
tu met

Code:

---

1 2 3

Private Sub ComboBox_heureDebut_Change() Planning.ComboBox_heureDebut.Value=Format(Planning.ComboBox_heureDebut.Value, "hh:mm:ss") end sub

---

et

Code:

---

1 2 3

Private Sub ComboBox_heurefin_Change() Planning.ComboBox_HeureFin.Value=Format(Planning.ComboBox_HeureFin.Value, "hh:mm:ss") end sub

---

et aussi

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton_valider_Click() Worksheets("Essai").Activate 'selectionne la feuille Fiche Contact Range("A65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = Format(Planning.ComboBox_heureDebut.Value, "hh:mm:ss") ActiveCell.Offset(0, 1).Value = Format(Planning.ComboBox_HeureFin.Value, "hh:mm:ss") Planning.Hide End Sub

---

:king: ComboBox_heureDebut_Chang , j'avais essayé un code dans ce genre en modifiant la propriété text du combobox et cela ne fonctionnai pas, j'ai pas pensé à la propriété value.


pour la copie vers la feuille,
je ferai plutôt :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton_valider_Click() With Worksheets("Essai").Range("A65536").End(xlUp) .Offset(1, 0).Value = Planning.ComboBox_heureDebut.Value .Offset(1, 0).NumberFormat = "hh:mm" .Offset(0, 1).Value = Planning.ComboBox_HeureFin.Value .Offset(0, 1).NumberFormat = "hh:mm" end With Planning.Hide End Sub

---

toujour le même message d'erreur, et toujours "format" en surbrillance.

Jacque j'ai esseillé votre formule mais concluent toujours même problème l'affichage se fait en 0,5- 0,25
par contre
colonne A heure début format 0,5 0,25 etc
colonne B heure fin format 0,5 0,25 etc
Colonne C (ou il y formule col A - Col B) le résultat s'affiche bien comme je veux.

sinon je voulais essayer j'ai une formule qui tranforme du texte ecrit en minuscule qui le passe en majucule, la formule donne ca :

Code:

---

1 2 3

Private Sub Textbox_NomLui_keyPress(ByVal keyAscii As MSForms.ReturnInteger) keyAscii = Asc(VBA.UCase(VBA.Chr(keyAscii))) End Sub

---

donc il existerais peut etre une formule dans le même style ???