Discussion :

[stujava]

Bonjour,

J'ai déclaré une fonction comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Function getValueFromMail(col As Collection)
 
    For Each tag In col
        Debug.Print tag
    Next tag
 
End Function

Et lorsque je l'appele via le code suivant (labelFR et labelDE sont des collections définies avant dans le code et garnies):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
     Dim returnData As New Collection
 
     If mailLang = "FR" Then
          returnData = getValueFromMail(labelFR)
     Else
          returnData = getValueFromMail(labelDE)
     End If

Et bien j'ai une erreur "Argument not optional", pourquoi ???

D'avance merci pour votre aide.

[iclic]

Bonjour,

Et lorsque je l'appele via le code suivant (labelFR et labelDE sont des collections définies avant dans le code et garnies):

Définies où? A quel endroit dans le code?

[stujava]

Les collections sont définies en global et les initialisations sont faites dans le main de l'application.

[pc75]

Bonjour,

Ca n'a peut-être rien à voir, mais j'éviterai de nommer des variables "col" et "tag".

[DarkVader]

Bonjour,

J'ai déclaré une fonction comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Function getValueFromMail(col As Collection)
 
    For Each tag In col
        Debug.Print tag
    Next tag
 
End Function

Et lorsque je l'appele via le code suivant (labelFR et labelDE sont des collections définies avant dans le code et garnies):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
     Dim returnData As New Collection
 
     If mailLang = "FR" Then
          returnData = getValueFromMail(labelFR)
     Else
          returnData = getValueFromMail(labelDE)
     End If

Et bien j'ai une erreur "Argument not optional", pourquoi ???

D'avance merci pour votre aide.

Telle que la function est définie, l'inverse serait plus logique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     If mailLang = "FR" Then
          labelFR= getValueFromMail(returnData)
     Else
          labelDE = getValueFromMail(returnData)
     End If

(en supposant que la collection soit remplie)

[ProgElecT]

Salut

Pour moi le fait de choisir une procédure Function est de pouvoir récupérer quelque chose par le nom de la dite fonction, sinon je choisie une procédure Sub.
A un moment donné dans le code de la fonction, j’attribue le résultat recherché au nom de la fonction.
Bref , pour le peu que j'ai compris du code mis pour que l'on t'aide, pour éliminer le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
'-----------------------------------------------------------------
Private Function getValueFromMail(col As Collection) As Collection
Dim Tag
    For Each Tag In col
        Debug.Print Tag
    Next Tag
End Function
'-----------------------------------------------------------------
Private Sub Form_Load()
Dim labelFR As New Collection, returnData As New Collection
Dim MailLang As String
 
MailLang = "FR"
labelFR.Add "essais1": labelFR.Add "essais2"
 
If MailLang = "FR" Then
     Set returnData = getValueFromMail(labelFR)
End If
End Sub

Ligne 18, j'ai ajouté un Set
Ligne 3, j'ai typé à la fonction As Collection.
Bien sûr, rien n'est récupéré par la fonction et donc returnData reste non définie.

[rv26t]

Bonjour,

Nous manquons d'information sur ce que tu souhaites faire.

Mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
     Dim returnData As New Collection
     ...

le new laisse supposer que tu veux faire une copie d'une autre collection.

Dans ce cas tu dois procéder ainsi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
     Dim returnData As New Collection
 
     If mailLang = "FR" Then
          Call getValueFromMail(labelFR, returnData)
     Else
          Call getValueFromMail(labelDE, returnData)
     End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub getValueFromMail(colSource As Collection, colDest As Collection)
     For Each element In colSource
        colDest.Add (element)
    Next element
End Sub

A+, Hervé.