Affichage d'une suite d'Heures
Bonjour,
Je tente depuis un certain temps de réussir l'affichage d'une suite des heures de la journée ( c'est à dire de 00:00 à 23:00 ) dans un ComboBox; mais sans resultat
j'ai essayé le code suivant
dim X,H1,H2 as date
H1=#00:00#
H2=#23:00#
For X=H1 to H2
cmbHeure.Additem(X)
Next X
aussi je voulais le faire à raison de 15 mn ( Step 15 ), mais je n'arrivais pas
Merci pour votre aide
Je tente depuis un certain temps de réussir l'affichage d'une suite des heures de la journée ( c'est à dire de 00:00 à 23:00 ) dans un ComboBox; mais sans resultat
j'ai essayé le code suivant
dim X,H1,H2 as date
H1=#00:00#
H2=#23:00#
For X=H1 to H2
cmbHeure.Additem(X)
Next X
aussi je voulais le faire à raison de 15 mn ( Step 15 ), mais je n'arrivais pas
Merci pour votre aide
5 réponses
-
Merci une autre fois pour votre aide
Votre code a bien marché.
L'errur que j'ai fais est :
cmbHeure.Additem (Format(t,"hh:mm"))
mais quant j'ai remplacé "hh:mm" par "hh:nn"
le code a fonctionné
Ce code je léai ecris dans Load form -
Merci pour votre aide
je vais l'ecrire dans un module
et voir le resulat
A bientôt -
Avec plaisir
Dim t As Date
Dim hr As Integer, mnt As Integer
cmbHeure.Clear
't = 0
For hr = 0 To 23
hr=hr+1
t=hr
For mnt = 0 To 3
cmbHeure.AddItem (Format(t, "hh:nn"))
t = DateAdd("n", 15, t)
Next
Next-
Ce n'est pas bon!
Voilà comment j'ai fais chez moi.
J'ai créé une userform (userform1) et placé un combobox (cmbheure)
Dans un module j'ai mis cette procédure:Sub test2()
Dim t As Date
Dim hr As Integer, mnt As Integer
UserForm1.cmbHeure.Clear
t = 0
For hr = 0 To 23
For mnt = 0 To 3
UserForm1.cmbHeure.AddItem (Format(t, "hh:nn"))
t = DateAdd("n", 15, t)
Next
Next
UserForm1.Show
End Sub
En exécutant cette procédure, j'ai bien une liste déroulante avec des horaires de 15 minutes en 15 minutes.
Donc le principe est bon. Il ne reste qu'à l'adapter pour ton cas.
A+
-
-
Tous mes remerciements à vous Yoda
Votre code a réussi l'affichage du Combobox
il a donnée même 94 ligne. Seulement les heures
affichées sont toutes 00:00
je tente Hr=Hr +1
mais toujours rien : toutes lignes affichent 00:00 -
Bonjour,
Ce code devrait fonctionner
Dim t As Date
Dim hr As Integer, mnt As Integer
cmbHeure.Clear
t = 0
For hr = 0 To 23
For mnt = 0 To 3
cmbHeure.AddItem (Format(t, "hh:nn"))
t = DateAdd("n", 15, t)
Next
Next
A+
