Addition de notes

Version imprimable

27/06/2007, 15h07
davidengalere

Addition de notes

Bonjour,

Dernier petit soucis.
Il s'avère que j'ai créé 3 formulaires et dans chaque formulaire appariat une note qui varie losque je change de fournisseur.
J'ai créé un module pour qu'il m'additionne ces 3 notes et en face la moyenne mais le probleme et que dans certains cas je n'ai qu' une note ou deux . Comment dans le module represente ton le fait qu il n'y est pas de note est ce que c'est par des guillemets?
Merci de me repondre et expliquer la demarche.

Bon quand tu parle de module, je supose que tu as une fonction qui te retourne ta moyenne.

un truc du genre

Cas où tu passe TOUJOURS 3 paramêtres

Code:

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
 
public function CalculerMoyenne(prmNote1 as variant, prmNote2 as variant, prmNote3 as variant) as double
 
  dim somme as double
  dim cptNote as integer
 
  if not isNull(prmNote1) then
    somme=somme+prmNote1
    cptNote=cptNote+1
  end if
 
  if not isNull(prmNote2) then
    somme=somme+prmNote2
    cptNote=cptNote+1
  end if
 
  if not isNull(prmNote3) then
    somme=somme+prmNote3
    cptNote=cptNote+1
  end if
 
  if cptNote<>0 then
      CalculerMoyenne=somme/cptNote
    else
      CalculerMoyenne=0:'Ou tout autre valeur significative pour toi.
  end if
 
end function

si tu ne passe pas toujours 3 paramêtres tu peux indiquer que ces paramêtres sont optionnels.

Code:

1
2
 
public function MaFonction(p1 optional as integer = 100, p2 optional as integer = 2, p3 optional as integer = 300)

Code:

1
2
 
debug.print MaFunction(,5,)

p1 et p3 sont omis, seul p2 vaudra 5, p1 vaudra 100 et p3 vaudra 300

A+

03/07/2007, 10h19
davidengalere

j'ai bien réussi à faire mon addition je reexplique mon nouveau probleme en detail.

j'ai une requete avec 3 champs NoteDuCoût, Notation et Notedelaqualité

ces champs contiennent une note ou pas car il y a certaineconditions à remplir pour ces champs soient notés.
Le probleme que j'ai et que je n'arrive pas à calculer dans un nouveau champs (Notefournisseur) la moyenne de ces trois notes. Bien entendu ce champ doit contenir la note moyenne de trois notes qd j'ai trois notes , de deux notes qd j'en ai que deux ou alors juste la note qd j'en ai une.
J'ai créé un module lui demandant de m'afficher la note en fonction des cas que j'ai(soit 3 soit 2 soit 1 note)
J'ai essayé en mettant des champs vides ou des champs avec des zeros là ou je n'avais pas de note mais rien n'y fait il me calcule qu'une condition et ne veut pas voir les autres cas. Si j'ai été assez clair et que l'on peut m'aider je reste à votre disposition.
03/07/2007, 11h53
davidengalere

merci marot

merci à toi Marot
grace à ton texte j'ai réussi à reécrire le mien et ça marche pour ceux qui ont les meme soucis que moi voici ma solution

Option Compare Database

Function Notefournisseur(Note, NotationDuCoût1, Notedelaqualite, NotationDuTAT) As Integer

If Not IsNull(NotationDuCoût1) And Not IsNull(Notedelaqualite) Then
Notefournisseur = Note / 3
End If
If IsNull(Notedelaqualite) Then
Notefournisseur = Note / 2
End If
If IsNull(NotationDuCoût1) And Not IsNull(Notedelaqualite) Then
Notefournisseur = Note / 2
End If
If IsNull(NotationDuCoût1) And IsNull(Notedelaqualite) Then
Notefournisseur = Note
End If

Exit Function
End Function

Bon courage a tous etmerci pour tout