Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1669 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déclaration et appel de fonction

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Déclaration et appel de fonction

n°1416349
acorsa
Posté le 31-07-2006 à 10:31:54  profilanswer
 

Bonjour,
 
J'ai un gros problème qui me paraît pourtant très simple...Je déclare une fonction avec 2 arguments et j'ai un bug qd je l'appelle à partir d'un userform. Je fais un autre appel à partir de ce userform d'une fonction à 1 argumznt et ça marche. Je ne comprends pas ce qui ne va pas!!
Je vous explique comment je fais mes appels: number_to_ignore (TextBox1.Value) cet appel marche et list_to_ignore(TextBox2.Value, TextBox3.Value) ne marche pas (msg d'erreur: Erreur de compilation, erreur de syntaxe). Il me dit ":= attendu"
Déclaration des fonctions: Function number_to_ignore(ref As Integer) As String
                                et Function list_to_ignore(ref1 As Integer, ref2 As Integer) As String
Si vous comprenez le problème merci de me le dire!!


Message édité par acorsa le 31-07-2006 à 10:32:38
mood
Publicité
Posté le 31-07-2006 à 10:31:54  profilanswer
 

n°1416357
jpcheck
Pioupiou
Posté le 31-07-2006 à 10:38:59  profilanswer
 

peut êter est-ce ton retour de fonction qui est attendu, fais tu un blabla = list_to_ignore(...) ?  

n°1416371
acorsa
Posté le 31-07-2006 à 10:46:21  profilanswer
 

Non??? Mais je viens d'essayer et ça ne marche pas. J'ai déclaré Public list As String et je fais list = list_to_ignore(TextBox2.Value, TextBox3.Value) après à partir de mon module je fais MsgBox UserForm.list et c vide...
De toute façon je ne fais pas ça pour la fonction à un argument et ça pourtant ça marche alors je comprends pas...

n°1416372
jpcheck
Pioupiou
Posté le 31-07-2006 à 10:48:12  profilanswer
 

tu peux m'envoyer ton code pour que je vois ce qui merdoit ?

n°1416375
acorsa
Posté le 31-07-2006 à 10:51:39  profilanswer
 

Ds Module:
Dim nti As String
Dim lti As String
 
Function number_to_ignore(ref As Integer) As String
If nti = "" Then
    nti = ref
Else
    nti = nti & "," & ref
End If
End Function
 
Function list_to_ignore(ref1 As Integer, ref2 As Integer) As String
    lti = lti & "," & ref1 & " to " & ref2
End Function
 
Ds mon Userform:
Private Sub CommandButton1_Click()
Unload UserForm4
If TextBox1.Value <> "" Then
    number_to_ignore (TextBox1.Value)
Else
    MsgBox list_to_ignore(TextBox2.Value, TextBox3.Value)
End If
End Sub
 
Merci d'avance.

n°1416406
jpcheck
Pioupiou
Posté le 31-07-2006 à 11:13:07  profilanswer
 


Et si, à la place de  
    MsgBox list_to_ignore(TextBox2.Value, TextBox3.Value)
tu faisais:
list_to_ignore(TextBox2.Value, TextBox3.Value)
MsgBox lti
 
??

n°1416423
kiki29
Posté le 31-07-2006 à 11:28:08  profilanswer
 

Function number_to_ignore(ref As Integer) As String
    If nti = "" Then
        nti = ref
    Else
        nti = nti & "," & ref
    End If
    number_to_ignore = CStr(nti)
End Function
 
Function list_to_ignore(ref1 As Integer, ref2 As Integer) As String
    lti = lti & "," & ref1 & " to " & ref2
    list_to_ignore = CStr(lti)
End Function

n°1416444
acorsa
Posté le 31-07-2006 à 11:41:55  profilanswer
 

Merci à vous 2 mais ça ne résoud pas le problème alors j'ai tout simplement changé ma fonction en procédure et ça marche!
Merci pour votre aide.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déclaration et appel de fonction

 

Sujets relatifs
Fonction INSERT avec un formulaire[pascal] difference entre une procedure et une fonction ??
[Résolu]Aide pour la fonction preg_match +....Fonction du type ereg
Fonction Trim qui ne supprime pas le formatage du texte.nombre d'argument aléatoire dans une fonction
Javascript Fonctionintegre une fonction a mon wikipedia
problème avec la fonction Get_List_Element_Value[VC++] Déclaration et appel d'une fonction callback
Plus de sujets relatifs à : Déclaration et appel de fonction


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR