problème fonction

Le
azerty
Bonjour,

Je souhaiterai qu'une fonction :

Public Function Toto()

dim a as string

a = "Mesdonnées"


End function




me retourne dans une procédure :

dim b as string

call Toto


a = b




est-ce possible ?


Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
gilles
Le #18145201
Salut Azerty,

c'est ça que tu veux faire ?

Option Compare Database

Public Function toto() As String

Dim a As String
a = "mesdonnées"
toto = a
End Function


Sub test()


Dim b As String
b = toto
Debug.Print "B est égal à :" & b

End Sub

A+ Gilles

"azerty" news:49466309$0$17062$
Bonjour,

Je souhaiterai qu'une fonction :

Public Function Toto()

dim a as string

a = "Mesdonnées"


End function




me retourne dans une procédure :

dim b as string

call Toto


a = b




est-ce possible ?


Merci


TopJB
Le #18145191
Bonjour,

Pour cela il faut faire :


Public Function Toto() as String
'(exemple de typage de tes données, si les données que tu souhaite
'envoyé" dans ton autre fonction sont d'un autre type, il faut que tu
'change string par le type souhaité de données. Ex : Boolean, Integer, ...)

dim A as string

'La variable A va stocker tes données
A = "Mesdonnées"

'La fonction Toto va retourner les données contenu dans la variable A,
au code appelant
Toto = A

'Tu finis ta fonction
End Function


dans le reste de ton code tu fais

dim B as string

'Tu appelles la fonction Toto qui, vu au dessus va te retourner les
données stocker dans A, et les affecter à la variable B
B = Toto

Voilà


azerty a écrit :
Bonjour,

Je souhaiterai qu'une fonction :

Public Function Toto()

dim a as string

a = "Mesdonnées"


End function




me retourne dans une procédure :

dim b as string

call Toto


a = b




est-ce possible ?


Merci


Publicité
Poster une réponse
Anonyme