dates

Bonsoir le forum et bonsoir Ousk

j'ai un fichier que je joints, le problème que je rencontre est que pour des statistiques hebdomadaires qui doivent impérativement commencer le dimanche je rencontre un problème une fois tous les 3 mois (a peu prés), lorsque qu'il y a un chevauchement de mois au milieu de la semaine. En effet en faisant F8 on s'aperçoit que les jours continuent 32,33,34 au lieu de revenir a 1. De ce fait ces jours là ne sont pas comptabilisés pour mes stats.
Comment faire pour y remédier ?

:merci:

a+

Hello Lio, tu nous as encore fait une blague... Si ton appli se plante, et elle se plante... on se retrouve dans un classeur n'affichant plus aucune barre d'outils... C'est sympa pour celui qui ne sait pas où trouver le code...
Je le mets à tout hasard

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub RetablirDarresDoutils() Dim cmdb As CommandBar For Each cmdb In Application.CommandBars cmdb.Enabled = True Next cmdb Application.CommandBars("standard").Visible = True Application.DisplayFormulaBar = True Application.CommandBars("Formatting").Visible = True Application.DisplayStatusBar = True End sub

---

Quand tu envoies un fichier, neutralise au moins une macro qui masque tout.
Je supprime ton fichier joint. Proposes-en un qui n'ait pas cet inconvénient et précise comment accéder à ton pb, depuis quelle usf, comment le provoquer, où tu prends tes données, où dans le code, etc.

ok ousk

c'est vrai, désolé je le prepare demain au boulot et j'essaierai de m'expliquer un peu mieux (beaucoup)


merci a+

non pas demain jeudi


bye a +

Bonjour le forum, bonjour Ousk

dans le fichier joint, il faut lancer l'userf ATBHDATES et choisir le dimanche le plus ancien car mes stats commencent toujours le dimanche (ici dimanche 29 juillet).

le problème se rencontre seulement lorsqu'il y a chevauchement de mois dans la semaine. A ce moment là les jours continuent d'augmenter (32,33,34 etc) au lieu de revenir à 1

merci a+

J'ai essayé de comprendre mais qd tu dis

Citation:

---

A ce moment là les jours continuent d'augmenter (32,33,34 etc) au lieu de revenir à 1

---

C'est où ?
J'ai pas vu d'incrementation de jours ?

J'ai vu une incrémentation qui n'était pas appelée par l'userform (mise en remarque) mais comme je suis curieux
Effectivement, si tu ajoutes ainsi les jours aux jours, tu ne peux qu'avoir des 32,33,34,35...
Pour ajouter un jour à une date, tu as plusieurs solutions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Test() Dim LaDate, jour, mois, année LaDate = CDate("1/1/2007") + 1 MsgBox LaDate 'pour le jour   'Pour les mois ou les années c'est "plus compliqué" jour = Day(LaDate) + 1 'ou = Format(LaDate, "dd") + 1 mois = Month(LaDate) + 1 'ou = Format(LaDate, "mm") + 1 Annee = Year(LaDate) + 1 'ou = Format(LaDate, "yyyy") + 1 NewDate = DateSerial(Annee, mois, jour) MsgBox NewDate End sub

---

Tu testes

NB - Toujours aussi clairs, tes messages :(

Bonjour ousk, bonjour olaxius,

désolé d'être aussi brouillon, je teste ta solution ousk et je tiens le forum au courant

merci a+:salut:

bonsoir le forum bonsoir et encore merci ousk

ca marche



:lahola::mouarf1::resolu:

merci a+