Discussion :

[Didpa]

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

[JackOuYA]

Bonjour,


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

Code :

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

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

[abouhossam]

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

Code :

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

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

[Didpa]

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

Code :

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

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 :

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

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

[Didpa]

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

[abouhossam]

tu remplace

Code :

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

ActiveCell.Value = Planning.ComboBox_heureDebut.Value

par

Code :

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

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

et

Code :

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

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

par

Code :

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

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

[Didpa]

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

Code :

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

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

[JackOuYA]

re,

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..