Discussion :

[kingface]

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.

[AdHoc]

bonjour,
il faut utiliser les feuilles (= forms) dans lequel tu place un controle de type textbox et un bouton (commandbutton).
Mais surtout, vu le niveau trivial de ta question, il faut aller voir les tutoriels vb
http://www.developpez.com/vbasic/tutoriel/sommaire.php
bon apprentissage

[ProgElecT]

ou comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Dim rep, NbrMois
Dim Msg$
Dim NouvDate As Date
Private Sub Form_Load()
InteroDate
End Sub
Public Sub InteroDate()
rep = InputBox("Veuillez entrer la date" & vbCrLf & "jour,mois,année   Ex:01/12/2007", "DLUO")
If rep = "" Then 'bouton annulé ou pas de reponse
 Exit Sub
End If
If IsDate(rep) Then
 'c'est bon
 InteroNbrMois
 If NbrMois = "" Then 'bouton annulé ou pas de reponse
  Exit Sub
 End If
 If IsNumeric(NbrMois) Then
  'DateAdd( IntervalType, Number, FirstDate)
  Msg$ = "Vous avez entrez cette date: " & Format(CDate(rep), "dddd dd mmm yyyy") & vbCrLf
  Msg$ = Msg$ & "vous avez demandé de rajouter " & CStr(NbrMois) & " mois" & vbCrLf
  NouvDate = DateAdd("m", NbrMois, CDate(rep))
  Msg$ = Msg$ & "La nouvelle date est donc " & CStr(NouvDate) & vbCrLf
  Msg$ = Msg$ & "ou" & vbCrLf
  Msg$ = Msg$ & Format(CDate(NouvDate), "dddd dd mmm yyyy")
  MsgBox Msg$
  Else
  InteroNbrMois 'pas bon redemande l'entrée de la date
 End If
End If
End Sub
Public Sub InteroNbrMois()
NbrMois = InputBox("Entrez le nombre de mois à ajouter (9,12 ou 18)")
End Sub

motif de l'edit, le commentaire
InteroNbrMois 'pas bon redemande l'entrée de la date (faut)
InteroNbrMois 'pas bon redemande l'entrée du nombre de mois a ajouter(juste)

[kingface]

Merci pour vos réponses et conseils.

En fait, c'est un peu plus compliqué que ça au niveau du calcul des dates de péremptions dû au fait que je m'appuie sur 2 logiciels de gestion de stocks et que un est à 365 jours l'année (normal) et l'autre est à 360 jours. Donc, si tu veux, j'ai un ratio à calculer (les 5 jours de différence entre les deux logiciels diviser par les 12 mois de l'année = un ratio d'environ 0.42 par mois) et à enlever à la date finale ce qui peut la faire basculer au mois précédent.

Ex. si on prend le 01/11/2007 pour un calcul sur 9 mois.

Logiquement, on devrait avoir le 01/08/2008. Mais avec cette différence de 5 jours par an, ca change pas mal la donne. En tenant compte du ratio, ça donne:

0.42*8 = 3.36 jours à soustraire à la date du 01/08/2008 (le 8 du calcul étant le mois de cette même date). Ce qui nous fait basculer, au final, au mois de juillet, le 29/07/2008.

De plus, aprés la saisie de la date, il faut que le résultat affiche les 3 différentes durées (9, 12 et 18 mois). Donc la sélection du nombre de mois à ajouter n'est pas utile dans ce cas de figure.

En tout cas merci du temps que vous m'accordez.
En espérant avoir été assez clair dans mes explications.

Cordialement.

[kingface]

Ok, problème résolu au niveau de la présentation.
Merci pour vos conseils.