Discussion :

[shaku]

Bonjour , je sais écrire une fonction qui renvoie un nombre aléatoire entre 2 nombres a et b , une fonction qui renvoie un mot dans une chaine , mais il y a une chose dont je réfléchis depuis quelques heures et je n'ai pas trouvé de solution :

J'aimerais créer une petite fonction qui génère des dates de manière aléatoire .
Si par exemple on me demande de générer aléatoirement des dates entre 1/1/1901 et 1/1/1915 , comment puis je faire ?

La génération d'un entier ne servira à rien car il y a des règles à respecter dans les dates et par ailleurs l'entier ne peut pas marcher car dans les entiers , 22111902 et supérieur à 11195 , alors que dans les dates il est inférieur , vous voyez ce que je veux dire ?

Merci pour vos idées et pistes .

[Gorfael]

Salut shaku et le forum

La génération d'un entier ne servira à rien car il y a des règles à respecter dans les dates et par ailleurs l'entier ne peut pas marcher car dans les entiers , 22111902 et supérieur à 11195 , alors que dans les dates il est inférieur , vous voyez ce que je veux dire ?

Je ne pense pas que ce soit le bon raisonnement : excel calcule les dates en Basant le 01/1/1900 =1 et en comptant le nombre de jours depuis pour trouver la date.
Pour trouver une date aléatoire entre le 1/1/2009 et le 15/1/2009, il faut trouver un nombre entier entre 0 et 14 et l'additionner au nombre représentant le 1/1/2009 (39814). Par exemple si tu trouves 10, ça te donnera la date correspondant à 39824, soit le 11/1/2009

Évidement, je parle de nombres au format date et dans ce cas, le 22/11/1902 (1057) et bien inférieur au 01/11/1995 (35004)
A+

[wilfried_42]

bonjour à tous

Comme la dit gorfael, les date sont des entiers :
le 01/01/1901 = 367
le 01/01/1915 = 5480

donc un aléatoire entre 367 et 5480 avec une format date doit fonctionner
Il est souhaitable de gérer l'aléatoire en VBA, plus souple que les formules dans ce domaine
voici néanmoins une formule (mettre un format date).
En A1 la date de départ
En A2 la date de fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(ALEA()*(A2-A1))+A1

[ucfoutu]

Bonjour,

Une approche en VBA différente (parmi des dizaines possibles) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Randomize
  Dim date1 As Date, date2 As Date, nbj As Single
  date1 = "1/1/1901"
  date2 = "2/1/1915"
  MsgBox date1 + Int((DateDiff("d", date1, date2) * Rnd))

Nous n'avons de cette manière pas à nous préoccuper de la borne inférieure en vue de tirer entre 2 bornes, mais uniquement d'un entier

EDIT :
qui pourrait d'ailleurs s'écrire plus simplement, puisque, lorsqu'il fait une soustraction de dates, VB calcule en jours, précisément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox date1 + Int((date2 - date1) * Rnd)

[shaku]

merci les gars pour ces infos intéressants , j'ai juste une question : vous avez bien dit que le 1/1/1900 correspondait à l'entier 1 , et ensuite le 1/1/2009 à 39814 . Je suppose que vous ne vous êtes pas amusé à compter les jours pour mes beaux yeux et comme parfois une année vaut 365 jours et une autre 366 , comment faites vous pour savoir immédiatement à quel entier correspondt telle date ?

[wilfried_42]

re:, bonjour ucfoutu

tu mets une date dans une cellule, et ensuite tu y place un format standard et ça te donne le nombre de jours

[ucfoutu]

Merci Wilfried_42...

J'espère que shaku aura compris que tu LUI répondais...

[shaku]

merci les gars ça marche , tt va bien

[wilfried_42]

re:

c'est vrai qu'après relecture, cela peut porter à confusion mais je souhaitais seulement te donner le bonjour comme je l'avais oublié auparavant.
sinon pour la réponse je ne me serais pas permis de te l'adresser ayant parcouru plusieurs de tes post....