Discussion :

[bolltt]

Bonjour tout le monde,
Je voulais tenter l'exo suivant avec la boucle for. Calculer la moyenne de n notes (sans coefficients). Le souci qui me pose, c'est que lorsque je veux déclarer des paramètres.

Code :

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

Function moyenne (Byval X1 As integer, X2 As integer, . . .  Xn As integer

Je sais c'est faux mais voilà je ne sais pas comment aborder ce problème. J'aimerais bien que vous m'aidiez s'il vous plaît. Merci

[Qwazerty]

SAlut

Tu as, deja, une premiere approche qui consiste a utiliser les outils present dans excel, qui te permette de la faire avec 30 argument

Code :

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

1
2
 
Application.WorksheetFunction.Average(Arg1,Arg2,....)

Autrement si tu veux "refaire" une telle fonction tu peux metre carrement As range dans tes paramettres

Code :

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

Function MaMoyenne (Mescellules as range) as double

As range pouvant representer une ou plusieur cellules tu pourra utiliser MesCellules.count pour en connaitre le nombre.

Puis ton calcu sur tes cellules en faisant par exemple une boucle sur toutes les cellules selectionnées

Code :

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

1
2
3
4
5
6
7
8
Dim UneCel As Range
Dim DblMoyen As Double
For each UneCell In MesCellules
  ....DblMoyen = CDbl(UneCell.value) //On transtype les valeur contenu dans la cellule (attention il serrai bien de verifier avant que ce contenu est numeric)
  ....
 
  MaMoyenne = DblMoyen //On transmet le resultat du calcul
Next

A++
Qwaz

[random]

il faut utiliser paramarray ainsi

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
 
Function paramet(ParamArray x() As Variant) As Variant
' x peut recevoir une liste de valeurs ou un ou plusieurs range ou un ou lusieurs tableaux
' ou une combinaison de ces éléments
Dim boucle1 As Variant
Dim boucle2 As Variant
For Each boucle1 In x
   If IsArray(boucle1) Then
   'dans ce cas l'élément est un range ou un tableau et on va lire son contenu
            For Each boucle2 In boucle1
            MsgBox (boucle2)
            Next boucle2
   Else
   'on a affaire a un élément isolé
   MsgBox (boucle1)
   End If
Next boucle1
paramet = True
End Function

en mode feuille de calcul cela donne =paramet(A1:A2;17;36;{1;7;9};A10:A11)
où j'ai choisi pour paramètres deux ranges trois nombres et une matrice

[bolltt]

Bonjour,
Excusez-moi je suis vraiment desolé de vous annoncer que la notion de worksheet function ni mescellules je n'ai jamais entendu parler. Je sais que je suis vraiment chiant. Pardon

[Qwazerty]

SAlut
alors pour worksheet fonction c'est un objet qui permet d'acceder au fonction d'excel un petit F1 devrait t'en dire d'avantage.

Pour MesCellule ca n'est pas un mot clé, c'est uniquement un nom de paramettre que j'ai choisi et defini c'est tout.

Peut etre devrais tu nous en dire plus sur ce que tu souhaites realiser, nous pourrions peut etre te proposé des solution plus en rapport avec ce que tu cherche exactement.

A++
Qwaz

[bolltt]

Bonsoir,
en fait je veux calculer la moyenne de n notes en utilisant la boucle for en posant i variant de 0 à n. Merci