OVH Cloud OVH Cloud

Appeler ma Procédure

11 réponses
Avatar
Ayrton [ASC]
Bonsoir à tous,

Voilà, j'ai réalisé une petite procédure pensant faciliter la tâche aux
utilisateurs ; voici ce que j'ai fait :
Private Sub PrixToutesTaxes()
Dim Montant As Double, TVA As Double
Const TauxTVA = 19.6
PrixTTC = Montant * TauxTVA

End Sub

Mon souci est que maintenant je mer etrouve " le bec dans l'eau ;-( "
car je ne vois pas comment la mettre en application dans le formulaire
de saisie.
J'ai bien un champ " Prix_Achat " puis un autre " Montant_TTC " mais je
ne sais pas comment mettre en application cette petite procédure.

Merci à vous pour votre aide

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

1 réponse

1 2
Avatar
Ayrton [ASC]
Bonjour *3stone*
Dans ton message de news:%,
Tu as pensé très fort :-(*)

re ;-)


Re 3stone ;-)

[couic....]

C'est justement le "génial" des fonctions, c'est d'utiliser à
la "réception" un variable qui va etre chargée par la valeur
contenue (transmise) dans l'appel...

Donc, lors de l'appel de la fonction, tu transmets la valeur
souhaitée,
ici le contenu du textbox "MonTextBox" et à la réception, c'est la
variable qui est chargée par la valeur transmise.

C'est aussi pourquoi, on voit que, après manipulation et traitement
de cette variable, on attribue sa valeur... à la fonction...

ce qui se fait par (dans ton exemple réel) :

PrixToutesTaxes = UnMontant * (1 + TauxTVA / 100)

puisque ici, la fonction qui renvoi la valeur se nomme
"PrixToutesTaxes"


C'est génial ! ! Ton explication m'ouvtre les yeux ( mais surtout les
neuronnes ;-) ) et je suis persuadé qu'avec ça je vais beaucoup avancé
; je commence à comprendre là où je pêchais car à chaque fois que
j'essayais de commencer une petite fonction, il y avait toujours ce même
truc qui m'échappait et que je n'arrivais pas à comprendre ; maintenant
ça devrait aller mieux et j'ai les 3 jours qui suivent pour bien lire et
relire ton explication et la mettre en pratique en me faisant des
petites fonctions sans importances mais qui m'aideront à bie ncomprendre
le processus ;-)
Je vais pouvoir faire ça au calme !

En tout cas, merci 1000 fois Pierre pour ta gentillesse, ta patience et
tes géniales explications qui me font avancer.

A + Tard

PS : Excuse moi de ne pas avoir répondu plus tôt mais à mon boulot,
depuis 15 jours, je ne peux plus me connecter au NG ( Connexion au
serveur Microsoft refusée ;-( ) ; je n'y arrive que par Google et même
si je trouve ça génial pour retrouver des posts, je préfèrais te
répondre tranquillement de chez moi avec mon lecteur de news.
Voili voilou ;-)

Bon 3 jours ( j'espère que tu ne travailles pas demain ! )

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

1 2