Bonjour,
Je suis tout nouveau sur le forum et débutant en vbs. Tout d'abord je vous met mon code et ensuite l'explication de ce que je voudrais obtenir :
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
36
37
38
39
40
41
42
43
44 dim facture facture=inputbox("Date de la facture") dim reception reception=inputbox("Date de réception du dossier") If DateDiff("d",facture,reception)<42 then dim na na=inputbox("Consommation journalière n-1 sur la même période") dim nb nb=inputbox("Consommation journalière n-2 sur la même période") dim nc nc=inputbox("Consommation journalière n-3 sur la même période") dim moyennej moyennej=(na+nb+nc)/3 dim jours jours=inputbox("Nombre de jours sur facture comportant fuite") dim moyennea moyennea= moyennej*jours dim conso conso=inputbox("Volume consommé de la facture comportant la fuite") dim eau eau=conso-2*moyennea dim ass ass=conso-moyennea msgbox"Volume eau à annuler = " eau "Volume assainissement à annuler = " ass else msgbox"Date de remise du dossier hors délais" end if
Je voudrais que l'utilisateur renseigne 2 dates, si la différence entre ces 2 dates est inférieur à 42 jours on continue, sinon, un message s'affiche en disant que la date de remise du dossier est hors délais. Jusque là ça marche.
Ensuite je voudrais que l'utilisateur renseigne 3 variables (na, nb et nc) qui peuvent être des nombres entiers, décimaux, nuls. Et enfin faire la moyenne de ces 3 valeurs (na+nb+nc)/3 pour la stocker dans une nouvelle variable (moyennej).
Le soucis c'est que l'opération ne fonctionne pas, l'erreur est que au lieu de faire une addition j'ai l'impression que le programme concatène les 3 valeurs...
Je ne sais pas si la suite du code est valable mais est ce que vous pourriez m'aider pour que l'opération de la moyenne fonctionne ?
Merci d'avance.
Partager