[VBA-W]problèmes de création de fonction

[dev81]

Je voudrais creer une fonction qui renvoie 2 chaines de caracteres à partir d'une.

J'ai tapé:

Code :

Function Toto (chaineEntrer as string) result1 as string , result2 as string

ca ne marche pas!!Comment renvoyer 2 resultats?
merci

[bbil]

tu ne peu renvoyer qu'un résultat ... mais tu peu utiliser les arguments par référence :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function Toto(chaineEntrer As String, ByRef Chaine1 As String, ByRef Chaine2 As String) As Boolean
Dim tb() As String
tb = Split(chaineEntrer, "-")
If UBound(tb) = 1 Then 'si chaine iniale de la forme Chaine1-Chaine2
  Chaine1 = tb(0)
  Chaine2 = tb(1)
  Toto = True
Else
 Toto = False
End If
 
End Function

et pour l'appel:

Code :

1
2
3
4
5
6
7
8
9
Sub Test()
 Dim st1 As String
 Dim st2 As String
 
 If Toto("Partie1-Partie2", st1, st2) Then
   MsgBox "Chaine1 = " & st1 & vbCrLf & "Chaine2= " & st2
 Else
   MsgBox "Chaine initiale incorrecte ... "
End If