Affichage d'une suite d'Heures
Fermé
mohalesage
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
-
24 mars 2015 à 13:33
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - 24 mars 2015 à 17:09
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - 24 mars 2015 à 17:09
A voir également:
- Affichage d'une suite d'Heures
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Comment agrandir l'affichage de l'écran - Guide
- Problème affichage fenêtre windows 10 - Guide
- Modifier affichage heure iphone - Guide
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+
mohalesage
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
24 mars 2015 à 15:48
24 mars 2015 à 15:48
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
mohalesage
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
24 mars 2015 à 16:32
24 mars 2015 à 16:32
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+
mohalesage
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
24 mars 2015 à 16:55
24 mars 2015 à 16:55
Merci pour votre aide
je vais l'ecrire dans un module
et voir le resulat
A bientôt
je vais l'ecrire dans un module
et voir le resulat
A bientôt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mohalesage
Messages postés
147
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
31 décembre 2015
1
24 mars 2015 à 17:09
24 mars 2015 à 17:09
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
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