Affichage d'une suite d'Heures
mohalesage
Messages postés
147
Date d'inscription
Statut
Membre
Dernière intervention
-
mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Affichage d'une suite d'Heures
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Problème affichage fenêtre windows 10 - Guide
- 24 heures chrono torrent magnet ✓ - Forum Cinéma / Télé
- Affichage heure freebox révolution - Forum Réseaux sociaux
5 réponses
Bonjour,
Ce code devrait fonctionner
A+
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+
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
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
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:
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+
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+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question