Vba excel dates

flyersgoaler Messages postés 29 Date d'inscription jeudi 13 novembre 2008 Statut Membre Dernière intervention 4 octobre 2016 - 14 nov. 2008 à 18:20
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 -
Bonjour,
Je suis présentement dans une impasse. Pour l'instant, j'ai codé du vba afin que 12 feuilles apparaissent, représentant les mois de l'année. Par la suite, il m'est demandé de mettre les dates de chaque mois sur chaque feuille, mais je ne sais pas comment arriver.(ex pour octobre, on devrait pouvoir lire les dates de 2008-10-01 jusqu'à 2008-10-31) J'ai regardé sur Internet, mais en vain. Voici le code avec lequel j'ai affiché 12 feuilles pour les mois.
Dim i As Integer
For i = 1 To 12
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(30 * i, "mmmm")
Next i
End sub
A voir également:

4 réponses

Réponse 1 / 4
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 245
14 nov. 2008 à 18:41
Bonjour

essaye cela 

dim d1 as date,  i as integer, j as integer, annes as integer
annee = 2008 ' jai mis comme cela pour les mois de février à 29 jour
For i = 1 To 12 
     ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count) 
     ActiveSheet.Name = Format(30 * i, "mmmm") 
     d1 = datevalue("01/" & format(i,"00") & "/" & annee)
     d1 = d1 - 1
     for j = 1 to 31
         d1 = d1 + 1
         if month(d1) = i then range("A" & i)=format(d1,"dd/mm/yyyy")
     next j
Next i

0
Réponse 2 / 4
flyersgoaler Messages postés 29 Date d'inscription jeudi 13 novembre 2008 Statut Membre Dernière intervention 4 octobre 2016
14 nov. 2008 à 19:40
Merci pour ton aide,mais malheureusement, le code ne fait que me donner une date... Je vais essayer de trouver ce que je pourrais changer à ton code pour que cela marche...

merci encore
0
Réponse 3 / 4
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 245
15 nov. 2008 à 10:45
re:

je ne comprends pas, tu demandes les dates d'un mois, je te les donne..... et tu dis que ça ne marche pas ???
alors soit ta question n'est pas comprise, soit elle est incomplète..... faut il rapprocher cette question avec ce fil ???
http://www.commentcamarche.net/forum/affich 9396457 vba heures?#3
pour lequel lermite222 t'a apporté une réponse 9:00 avant ton Post et attend toujours une réponse de ta part...
si c'est le cas, tu n'aurais pas du quitter le précédent fil et exposer plus précisément ton besoin..

@ te lire
0
Réponse 4 / 4
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
15 nov. 2008 à 11:34
Bonjour, bonjour Wilfried,
Je crois pas que ça vaux beaucoup la peine de se casser la tête !!
Voir la ligne qu'il met dans sont topic
ActiveSheet.Name = Format(30 * i, "mmmm")
Faut croire qu'il ne tient pas compte des remarques !!
A+
0