1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)
Sujet Précédent Sujet Suivant

Ajouter des dates dans un listbox

chaudierma37 Messages postés 3 Date d'inscription samedi 4 octobre 2014 Statut Membre Dernière intervention 19 mars 2016 - 4 oct. 2014 à 18:13
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 6 oct. 2014 à 09:40
Bonjour,

je voudrais remplir un listbox de dates - du premier février 2014 au 30 novembre 2014. Je ne me souviens plus comment faire pour faire la boucle for next.

Est ce que vous pouvez m'aider à faire cette boucle ?


Merci

chaudierma37

2 réponses

Réponse 1 / 2
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 220
4 oct. 2014 à 19:26
Bonjour,
Si c'est la boucle avec des dates, qui est ton problème ===>>
exemple de boucle For Next 
Private Sub CommandButton2_Click()
  For i = 1 To 10
    ListBox1.AddItem DateSerial(2014, 2, i)
  Next
End Sub
Mais c'est peut-être "autre chose", qui te fait défaut .
Si c'est pour remplacer le "10", intéresse-toi vite à la fonction DateDiff (dans ton aide VBA)
Je te laisse faire, car tout cela est de niveau assez basique, hein ...
0
Réponse 2 / 2
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 220
Modifié par ucfoutu le 4/10/2014 à 21:00
Sans compter que VBA/Excel est capable de stocker les dates en numériques.
Ce qui fait que : 
ListBox1.Clear
For i = DateValue("01/10/2014") To DateValue("10/11/2014")
 ListBox1.AddItem DateValue(i)
Next
fera ... ce que tu verras....

Nota : et tu peux même remplacer
ListBox1.AddItem DateValue(i)
par
ListBox1.AddItem i

===>> kif kif, hein ...

Je voudrais juste ajouter ceci, ami :
En développement on ne "se rappelle pas" comment on fait ceci ou cela, mais uniquement les bases (sur lesquelles on développe)
Je t'ai montré deux exemples. Je pourrais en inventer d'autres (plein d'autres) pour atteindre ce résultat.
Tiens ==>> une autre (juste pour t'ouvrir l'esprit) ===>> 
Dim toto As Date
toto = "01/9/2014"
Do Until toto > "12/11/2014"
  ListBox1.AddItem toto
  toto = toto + 1
Loop

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 14
6 oct. 2014 à 09:40
Bonjour,

J'y vais de ma "petite sauce" : 
Dim MesDates(300) As Date, i As Integer
For i = 0 To 300
    'dates du 01/01/2014 au 28/10/2014
    MesDates(i) = CDate(i + CDate("01/01/2014"))
Next
ListBox1.List = MesDates
0
Rejoignez-nous