OVH Cloud OVH Cloud

Comment creer une Fonction sous excel

7 réponses
Avatar
Abdelmoumen Ahmed
Bonjour a tous

peux on creer une nouvelle fonction sous Excell 97. et que celle si soit
visible dans la liste des fonction

Ex:
MoyPend(V1;V2;T1;T2;)
retourne (V1*T1 + V2*T2)/(T1+T2)

parait il en VBA, mais je suis un peu novice.

Merci pour l'aide.
Ahmed.

7 réponses

Avatar
Pascal Engelmajer
Salut,
public function MoyPend(V1;V2;T1;T2;)
Application.volatile= true ' pour mise à jour sur la feuille
MoyPen= (V1*T1 + V2*T2)/(T1+T2)
end function


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel






Avatar
Pascal Engelmajer
Salut,
attention il faut des virgules et non pas des point-virgules dans la
fonction
Public Function MoyPend(V1, V2, T1, T2)
.../...

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Abdelmoumen Ahmed" a écrit dans le message de news:
#
Bonjour a tous

peux on creer une nouvelle fonction sous Excell 97. et que celle si soit
visible dans la liste des fonction

Ex:
MoyPend(V1;V2;T1;T2;)
retourne (V1*T1 + V2*T2)/(T1+T2)

parait il en VBA, mais je suis un peu novice.

Merci pour l'aide.
Ahmed.






Avatar
Clément Marcotte
Bonjour,

est tu sur de l'instruction Application.volatile= troue car elle me
generge

une erreur a la compilation


Essaie avec juste application.volatile

2° comment rendre cette fonction visible dans n'importe quelle
tableau

Excel.


Si par tableau, tu entends une fichier Excel, tu peux la mettre dans
ton "Classeur des macros personnelles" (perso.xls) ou en faire une
macro complémentaire.

Avatar
Daniel.M
Salut Ahmed,

AMA, tu n'as pas besoin de Application.Volatile dans cette fonction.

Salutations,

Daniel M.
Avatar
Abdelmoumen Ahmed
Bonjour Pascal
Merci pour l'aide.
il me reste deux petites questions

est tu sur de l'instruction Application.volatile= true car elle me generge
une erreur a la compilation
2° comment rendre cette fonction visible dans n'importe quelle tableau
Excel.

et encore merci pour l'aide.
Ahmed.
"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
public function MoyPend(V1;V2;T1;T2;)
Application.volatile= true ' pour mise à jour sur la feuille
MoyPen= (V1*T1 + V2*T2)/(T1+T2)
end function


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel










Avatar
Abdelmoumen Ahmed
Merci a tous.
je suis arrivée, a la rendre visible en utilisant les macro complementaire
l'instruction est bien sur Application.volatile=true et non troue.
mais je l'est remplacé par Application.volatile

Encore merci a tous.
Ahmed.

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

est tu sur de l'instruction Application.volatile= troue car elle me
generge

une erreur a la compilation


Essaie avec juste application.volatile

2° comment rendre cette fonction visible dans n'importe quelle
tableau

Excel.


Si par tableau, tu entends une fichier Excel, tu peux la mettre dans
ton "Classeur des macros personnelles" (perso.xls) ou en faire une
macro complémentaire.







Avatar
Pascal Engelmajer
Salut,
j'aib répondu trop vite :
Application.Volatile True
le égal est en trop
et comme le dit Daniel
il n'y a pas dans cette fonction d'élément qui ne dépende pas des variables
d'entrée.
il serait nécessaire si il y avait, par exemple, un test sur une cellule du
genre : If [B34].Value= 13 then
ou si il y avait un appel à Time
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Abdelmoumen Ahmed" a écrit dans le message de news:

Bonjour Pascal
Merci pour l'aide.
il me reste deux petites questions

est tu sur de l'instruction Application.volatile= true car elle me generge
une erreur a la compilation
2° comment rendre cette fonction visible dans n'importe quelle tableau
Excel.

et encore merci pour l'aide.
Ahmed.
"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
public function MoyPend(V1;V2;T1;T2;)
Application.volatile= true ' pour mise à jour sur la feuille
MoyPen= (V1*T1 + V2*T2)/(T1+T2)
end function


--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel