Dates aléatoires entre deux autres
Bonsoir à tous,
J'ai trouvé sur le web une procédure permettant de tirer une date au hasard ("A3") située entre deux autres ("A1") et ("A2").
Lorsque je lance la macro plusieurs fois de suite, la date s'affiche tantôt à droite, tantôt à gauche...
quelqu'un sait il pourquoi ?
Merci de votre aide...
Mon fichier joint :
Bonjour,
à tester,
Sub dateAlea()
Dim dblDateStart As Date 'Stockez les dates en tant que Double pour que les résultats puissent être calculés plus facilement.
Dim dblDateEnd As Date
Dim dblRandomDate As Date
Dim dblDateDiff As Date
'Capturez les dates de début et de fin
dblDateStart = Range("A1").Value
dblDateEnd = Range("A2").Value
' Calcule le nombre de jours entre les dates de début et de fin
dblDateDiff = dblDateEnd - dblDateStart + 1
'Génère la date aléatoire
dblRandomDate = dblDateStart + (dblDateDiff * Rnd())
' Ecrit la
Range("A3").Value = dblRandomDate
End SubMerci i20100,
Super, les dates n'ont plus la bougeotte...
Mais qu'à tu modifié STP ?
re,
Mais qu'à tu modifié STP ?
les déclarations,
As Date au lieu de As Double