Discussion :

[Dereck07]

Bonjour,

Je debute en VBA et pour m'entrainer je me suis fixé des objectifs simples.
Le premier objectif que je me suis fixé est de créer une macro qui permet de caculer la moyenne de plusieurs cellules. (je sais que cette fonction existe déja mais je veux absolument la refaire par moi même)

J'ai commencé à faire un debut de macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function moyy(T[...])
Dim i, L, sum
L = T.Length
i = 0
sum = 0
Do While L > i
sum = sum+T[i]
i=i+1
Loop
moyy = sum / L
End Function

Dans excel cette macro sera place dans une cellule ainsi:

=moyy(B10:B21)

Deux problemes se posent à moi:

1) Comment je fais pour declarer un tableau en argument de ma macro qui correspond aux champs des cellules B10:B21?

2) Comment je fais pour connaitre la longueur du tabelau (sachant que j'aurais tres bien pu mettre B15:B21 à la place de B10:B21)?

J'ai un peu cherché sur les autres forms car je pense que ce sujet a du être deja traité mais n'ayant pas trouvé la reponse que je chercher...

J'attends vos conseil

[Bigalo]

Bonjour,

Un conseil, indente ton code, ce sera + facile à lire.

En ce qui concerne ta fonction, tu te compliques la vie inutilement en voulant utiliser un tableau. L’un des intérêts essentiels de VBA est l’accès aisé aux objets de l’appli avec laquelle tu travailles.

Il suffit de fournir à ta fonction une plage de cellules, exactement comme pour SOMME() par exemple, ou pour MOYENNE() .

Code :

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

1
2
3
4
5
6
7
Public Function Moyy(Target As Range)
Dim c As Range
        For Each c In Target
            Moyy = Moyy + c
        Next
    Moyy = Moyy / Target.Count
End Function

Tu parcours ensuite chaque élément de la plage de cellules fournie comme argument avec une boucle For Each.

Le code est plus rapide à écrire que ce message !

Cordialement,

Michel Gaboly

[Dereck07]

C'est exactement ce que je voulais...

Merci Bigalo

[Bigalo]

De rien, c’était avec plaisir