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" a écrit dans le message de 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
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
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
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