Bonjour tout le monde,

Je vous présente le topo.
Je dois créer un programme qui permet de calculer des dates de péremptions à 9, 12 et 18 mois de la date initiale (date saisie dans l'InputBox).
Etant un novice en programmation (j'ai juste suivi quelques cours basiques de VB6), je n'arrive pas à trouver comment faire apparaître plusieurs champs de saisie dans une seule fenêtre (du style: un champ pour le jour, un pour le mois et un dernier pour l'année).
La seule chose que j'ai réussi à faire pour saisir la date est comme ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
j = InputBox("Veuillez entrer le jour", "DLUO") 'jour
m = InputBox("Veuillez entrer le mois", "DLUO") 'mois
a = InputBox("Veuillez entrer l'année", "DLUO") 'année
Mais une fenêtre par saisie n'est réellement pas pratique. C'est pour cela que je me tourne vers vous afin d'avoir quelques petits conseils.

Une autre petite question concernant la MsgBox finale: comment aligne-t'on les phrases de réponse de sorte à avoir ce qui suit comme résultat:

"Pour 9 mois: Best before end of: jj/mm/aaaa;
Pour 12 mois: Best before end of: jj/mm/aaaa;
Pour 18 mois: Best before end of: jj/mm/aaaa."

Si quelqu'un pouvait m'aider dans cette tâche.

Merci d'avance.

Cordialement.