Calendrier

Question

Bonsoir à tous,

Malgrés mes recherches sur plusieurs sites, je n'ai pas trouvé ce qui ferais mon bonheur.
Voilà ce qui m'amene vers vous:
Je souhaite creer un calendrier qui parte d'une date de début et d'une date de fin. Ex: 15.12.08 jusqu'au 25.04.09.
Ce calendrier devrais etre creer sur une feuille excel, avec un jour par colonne.

Merci à tous de nous faire profiter de votre savoir.

cretthie · Answer

Salut, 

Tu as essayé une boucle for commencant a la date que tu veux jusqu'a la date de fin ?

dim dateDebut, dateFin as datetime

for i as datetime = datedebut to dateFin
   taCellule(i) = "ce que tu veux"
next

je sais pas si ca marche, mais il faut essayer.

A bientot

freesurf · Answer

Merci pour ta réponse,
vu mon niveau (trés faible),
les essais vont prendre du temps.
Je te tiens informé du résulta.

Merci encore

jmfmarques · Answer

Utilise datediff (pour calculer le nombre de jours séparant les deux dates.
Appelons ce nombre nbjours
Fais ensuite une boucle utilisant nbjours (for I = 0 to nbjours) et attribue  dans cette boucle à chaque cellule (dont le N° de colonne est incrémenté de I à chaque passage) la valeur de la date de départ + I)...

Je ne t'en dis pas plus car il s'agit là d'un "exercice" vraiment simple, que tu ne devrais avoir aucune difficulté à implémenter toi-même ...

freesurf · Answer

Bonsoir,
d'aprés les solutions que j'ai pu trouver sur ce forum, motament dans "DATE", datediff ne nous donnera pas les resultats escomptés.J'aimerais bien mettre mon classeur de projet sur ce forum, mais je ne sais pas comment m'y prendre.
Quand à la simplicité de l' exercice, crois moi, je suis VRAIMENT débutant. C'est à dire que je sais faire un userform avec les commandes dont j'ai besoin, le lancer en ouverture de classeur,mais pour la suite...........

jmfmarques · Answer

"mais pour la suite" ====>> tu ouvres ton aide en ligne et tu commences à bûcher !
Ce que tu veux faire demande un seul quart d'heure de lecture attentive, pas plus !

jmfmarques · Answer

Si tu "coinces" avec si peu, qu'adviendra-t-il, selon toi, lorsque tu auras du plus complexe à approcher ? (ce n'est qu'une question ...)
Alors : retrousse-toi les manches et commence donc par le commencement, juste pour me faire plaisir et te lancer dans le développement en comprenant plutôt qu'en copiant-collant....

cretthie · Answer

dim taDateDebut as datetime = "21/09/2008 00:00:00"


dim taDateFin as datetime = "21/10/2008 00:00:00" 


dim jour as long = 0


jour =  datediff(dateInterval.day, dateDebut, dateFin,  microsoft.visualBasic.firstEayOfWeek.Monday, firstWeekofYear.firstFullWeek)


voila, ca doit etre un truc comme ca.


 


++

freesurf · Answer

ok,

je me lance

cretthie · Answer

jour =  datediff(dateInterval.day, dateDebut, dateFin,  microsoft.visualBasic.firstEayOfWeek.Monday, firstWeekofYear

ca doit suffir ca
+

cretthie · Answer

jour =  datediff(dateInterval.day, dateDebut, dateFin)

jmfmarques · Answer

Bonjour, cretthie

"ca doit etre un truc comme ca.", hein ...
C'est en quel langage, ton code ???? hein ???
Sous VB6 ou sous VBA, voilà :

Private Sub Command1_Click()
  Dim taDateDebut As Date, tadatefin As Date
  taDateDebut = "21/09/2008 00:00:00"
  tadatefin = "10/10/2008 00:00:00"
  Dim jour As Integer
  MsgBox DateDiff("d", taDateDebut, tadatefin)
  MsgBox "ou même " & tadatefin - taDateDebut
End Sub

Calendrier

11 réponses

Votre réponse

Discussions similaires