créer une fonctionRésolu

Question

Boujour,

Voila je ne trouve pas comment faire une fonction qui puisse revoyer une valeur?

svp aidez moi

NHenry · Accepted Answer

Bonjour

Pour retourner une valeur, remplacer sub par function :
private function Mafct(byval MonParam as SonType) as TypeDeRetour

Op&#233;rations

VB6/VB.NET MaFct=Mavaleur
VB.NET Return Mavaleur

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

wanure · Answer

Bonjour, 

Pourrais-tu dire ce que ta fonction doit faire?

jrivet · Answer

Salut,

Sur une feuille tu mets un Command Button

Tu double clique dessus 

ca te donne:


Private Sub Command1_Click()

End Sub


Et la dedans tu fais ce que tu veux 

Tu veux qu'il te retourne une valeur, alors:


Private Sub Command1_Click()
msgbox "10"
End Sub


Si ce n'était pas du tout ca (et je crois que c est le cas), explique mieux ton probleme

gallyhc · Answer

Bonjour,

Voici une fonction simple qui additionne 2 valeurs "A,B". A toi d'exploit&#233; la m&#233;thone!!!

Private Sub Form_Load()
' ENVOIS LES INFORMATIONS A LA FONCTION.
    MsgBox (setCalcAB(10, 14))


End Sub


Private Function setCalcAB(ByVal lngA As Long, ByVal lngB As Long) As Long
' ADDITIONNE "A+B" ET L'ENVOIS DANS LA FONCTION.
    setCalcAB = lngA + lngB


End Function

Bonne Programmation,
[Gally Home Corp]

econs · Answer

jrivet> Tu as d&#233;cris une proc&#233;dure.







'    Command1_Click est une proc&#233;dure.

'    Elle ne renvoit pas de donn&#233;es.

Private Sub Command1_Click()

    MsgBox Multiplie(3,4) ' => affichera 12

End Sub



'     Voici un exemple de fonction. Deux param&#232;tres de type Long. 

'    Un type de retour : Long

Public Function Multiplie(A As Long, B As Long) As Long

Multiplie = A*B

End Function

Manu

jrivet · Answer

Econs> Tu as tout a fait raison (j ai craque du s....)  j ai lu trop vite.

Veuillez tous m'excuser

@+
Julien

jpleroisse · Answer

Bonjour,

Voici un exemple de fonction qui renvoie la valeur d'une commission sur une vente.



Option Explicit

Function Commission(Ventes)

Const Tier1 = 0.08

Const Tier2 = 0.105

Const Tier3 = 0.12

Const Tier4 = 0.14

'Calcul de la commission sur les ventes

Select Case Ventes

    Case 0 To 9999.99: Commission = Ventes * Tier1

    Case 1000 To 19999.99: Commission = Ventes * Tier2

    Case 20000 To 39999.99: Commission = Ventes * Tier3

    Case Is >40000: Commission Ventes * Tier4

End Select

End Function



Private Sub CalCom()

Dim Ventes As Long

Ventes = InputBox("Entrez le montant des ventes en ? :", "Commission sur ventes")

MsgBox "La commission est de " & Commission(Ventes) & " ?"

End Sub



Private Sub Command1_Click()

CalCom

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jpleroisse · Answer

Re,

Petite erreur, c'est Case 10000 et non Case 1000



jpleroisse

econs · Answer

jrivet > Pas besoin de te flageller. Ca arrive &#224; tout le monde. 

Manu

thetoto52 · Answer

bien en fait je veut que ma fonction elle regarede un chaine et que si elle trouve un @ elle face quelque chose sur la chaine et la retourne sinon qu'elle la retourne telquel.

jrivet · Answer

Salut,

Alors maintenant que j ai lu correctement je peut peu etre essayer de repondre correctement aussi ;)

La fonction suivante te retourne la position du caratere @ dans chaine si elle 
ne le trouve pas elle te retourneras 0

Public Function Test@(Chaine As String)as integer
Test@ = InStr(1, Chaine, "@")
End Function

tu dis: "si elle trouve un @ elle fase qqch" c est quoi ce quelque chose.

thetoto52 · Answer

pour le rest je sais faire il me manquais juste pour retourner merci

thetoto52 · Answer

je pen&#231;ais que c'&#233;tais comme en c avec un return (non de la variable)

gallyhc · Answer

Re,

Je comprend pas vraiment pourquoi, il y a plein de reponse a une aide aussi simple... et surtout pourquoi tout le monde vient avec sa petite fonction. surtout que des reponses pour ma part correcte on deja ete effectuer...

Bonne programmation,
[Gally Home Corp]

gallyhc · Answer

La je comprend encore moin des reponse comme la mienne ou m&#234;me celle de econs sont correcte mais non accepte je comprend plus vraiment ce forum

NHenry · Answer

Bonjour

Jalou.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

thetoto52 · Answer

tu as raison il voulais que sa reponce soit valid&#233; mail l'essanciel c'est que quelqu'un ai donn&#233; la r&#233;ponce non en plus il n'&#233;tais pas le premier a donner la bonne r&#233;ponce

Créer une fonction

17 réponses

Discussions similaires