High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[VBA] Fonction qui retourne une valeur

Dernière réponse le 16 oct 2007 à 14:12:00 wsl1912, le 15 oct 2007 à 16:30:27 
 Signaler ce message aux modérateurs

Bonjour,

J'aimerai réaliser un programme utilisant une fonction, le prog est fait mais c'est la fonction qui me pose problème:

Je dois entrer une chaîne de caractères en argument, ça je sais faire: 

Function ma_function(argument as string)
....
EndFunction


Ce que je ne sais pas faire par contre c'est que la fonction renvoie en réponse un entier... Comment puis-je faire SVP?

Merci d'avance

Seules les forces obscures peuvent ouvrir et fermer les port­es de Silent Hill
Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « [VBA] Fonction qui retourne une valeur » dans :
Fonction retourne valeur x en c++ Voir
[VBA] Fonction qui retourne la couleur active d'une MFC Voir Cette fonction retourne la valeur du format actif d'une mise en forme conditionnelle. Avec la fonction de la démo, deux valeurs peuvent êtres retournées. Mode = 0 : retourne la valeur de Interior.ColorIndex Mode = 1 : retourne la valeur de...
[VBA] Fonction if !!! Need help (Résolu) Voir
VBA et les collections d'objets. VoirVBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme...
[VBA] Fonction NB.SI_Plus VoirFonction NB.SI_Plus sans limitation Cette fonction "Plus" permet d'appliquer la fonction NB.SI sans que l'on soit limité au nombre de paramètres imposés par Excel. Introduction Le classeur Dans un module général Télécharger le...
VBScript - Les fonctions de chaînes de caractères VoirLes fonctions de chaînes de caractères Fonction Description Filter(InputStrings, Value[, Include[, Compare]]) Sélectionne des chaînes de caractères parmi un tableau de chaînes...
Tableur - Les fonctions mathématiques VoirLes fonctions standards Méthode description ABS() Cette méthode renvoie la valeur absolue d'un nombre, il renvoie donc le nombre s'il est positif, son opposé (positif) s'il est négatif IMPAIR(valeur) Cette méthode renvoie la valeur...
VBScript - Les fonctions mathématiques VoirLes fonctions mathématiques Fonction Description Abs(number) Retourne la valeur absolue d'un nombre. Atn(number) Retourne l'arc-tangente d'un...
Posez votre question Répondre

1

nobody, le 15 oct 2007 à 16:32:57

Function ma_function(argument as string) as integer
....
EndFunction

   
Répondre à nobody

2

kreposucre, le 15 oct 2007 à 16:33:27
  • +3

Bonjour,
Il suffit de nomer la variable de retour du meme nom que la fonction :


Function ma_function(argument as string) as (type retourné)

ma_function = ....

EndFunction


et tu l'appelles de façon classique

   
Répondre à kreposucre

3

Michel, le 15 oct 2007 à 17:37:59
  • +1

Bonjour,

ou encore :

Sub Test()

Dim Argum As String, Resul As Integer, Fina As Integer

Argum = "20"
Resul = 1
Fina = 1
Call Ma_Fonction(Argum, Resul, Fina)
MsgBox Argum & vbLf & Resul & vbLf & Fina

End Sub
'

Function Ma_Fonction(ByVal Argument As String, ByRef Resultat As Integer, ByRef Final As Integer)

Resultat = Val(Argument)
Final = Resultat - 1
Argument = "Nil"

End Function
'

Michel

   
Répondre à Michel

4

wsl1912, le 15 oct 2007 à 18:06:55
  • +1

Merci beaucoup
Seules les forces obscures peuvent ouvrir et fermer les port­es de Silent Hill

   
Répondre à wsl1912

5

teteve, le 15 oct 2007 à 18:20:41
  • +1

Bonjour,

Quelques petites précisions concernant les fonctions et procédures, ainsi que les arguments "byval" et "byref"
N'aimant pas refaire ce qui a déjà été si bien fait, je vous fournis juste les liens :

vbsfunction
http://www.vbfrance.com/tutorial.aspx?ID=182

Feignassement,

Teteve :)
" Le plus intelligent est celui qui sait qu'il ne sait pas... "
Teteve, informaticien amateur et passionné

   
Répondre à teteve

6

wsl1912, le 16 oct 2007 à 09:57:01

Bonjour

Peut-on renvoyer une structure de donnée ex:

si je fais 

Type rep
         EstRep As Boolean
         chemin As String
End Type


puis-je faire: 

Function ma_fonction(argument As String) As rep


Merci d'avance
Seules les forces obscures peuvent ouvrir et fermer les port­es de Silent Hill

   
Répondre à wsl1912

7

 teteve, le 16 oct 2007 à 14:12:00

Bonjour WSL1912,

Euh... Bonne question... Je t'avoue que dans l'absolu je n'en sais rien. La meilleure façon de le savoir est d'essayer :)
Si tu n'y arrives pas, expose toutes les données de ton problème, il y a forcément un moyen de contourner les problèmes ;)

Teteve
" Le plus intelligent est celui qui sait qu'il ne sait pas... "
Teteve, informaticien amateur et passionné

   
Répondre à teteve
Posez votre question Répondre
Ils ont besoin de votre aide