Créer une fonction

[tigroo]

Bonjour à tous
je souahiterais créer une fonction, et obtenir une valeur de sortie de cette fonction, pour l'utiliser dans un programme, voici mes lignes de code mais ca ne fonctionned pas...
pourriez vous m'aider?

'programme de départ

sub programmededépart ()

dim averAge, vage1(sans mauvais jeu de mot lol), vage2, vage3

sheets('Feuil1').range('A1')=Vage1
Sheets('Feuil1').range('A2')=Vage2
Sheets('Feuil1').range('A3')=Vage3

averAge=fonction(Vage1, Vage2, Vage3)

End sub

Function AVAGE(Vage1 as long, Vage2 as Long, Vage3 as Long)

averAGe=(Vage1+Vage2+Vage3)/3

End function

pourquoi la fonction AVAGe ne me renvoit-elle aucune valeur???

Merci pour vos réponses...

 

[tigroo]

me suis planté la fonction c bien AVAGE

(bien sur ce programme est sans interêt mais le but pour moi est de pouvoir appliquer l'utilisation d'une fonction dans des programmes plus compliqués..)

 

[Jeannot45]

Bonjour,

En fait pour que ta fonction te retourne ta valeur, tu dois écrire la ligne suivante :

AVAGE=(Vage1+Vage2+Vage3)/3

et non averAGe=(Vage1+Vage2+Vage3)/3

A+

Jeannot

 

[tigroo]

oui c ce que j'ai écrit mais ca ne renvoit aucune valeur...

 

[Jeannot45]

Re,

Pour faire exécuter ta fonction dans ton programme, soit tu récupères ton résultat dans une variable

exemple

varCalcul = AVAGE(Vage1, Vage2, Vage3)

soit tu récupères le résultat dans une feuille de calcul

Range('A10') = AVAGE(Vage1, Vage2, Vage3)


Bonne continuation

Jeannot

 

[michel_m]

Salut Jeannot et tigroo

essaies ceci

Sub programmededépart()

Dim toto1 As Long, toto2 As Long, toto3 As Long

toto1 = Sheets('Feuil1').Range('A1')
toto2 = Sheets('Feuil1').Range('A2')
toto3 = Sheets('Feuil1').Range('A3')

Range('B4') = AVAGE(toto1, toto2, toto3)

End Sub

Function AVAGE(vage1 As Long, vage2 As Long, vage3 As Long) as double

AVAGE = (vage1 + vage2 + vage3) / 3

End Function

A+
Michel

 

[tigroo]

CA NE MARCHE PAS

 

[michel_m]

CHEZ MOI SI!

 

[tigroo]

merci bcp micheldsl j'avais pas vu ton message (pas mis a jour) ca marche très bien merci pour ton aide salutaire