passage des arguments aux fonctions

bonjour,

j'ai une erreur de type : Type d'argument ByRef incompatible

je debute pas en programmation pure mais en dev script microsoft ouais 8O

l'appel se fait de la maniere suivante :

Code:

---

MsgBox fonction_pere ("toto titi tutu tete")

---

la signature de la fonction pere est la suivante

Code:

---

1 2 3 4

function fonction_pere (Text as String)as String Tableau = split(Text, " ") fonction_pere = fonction_fils(TableauEspace(0)) & fonction_fils(TableauEspace(1)) ' s'il a deux mots, sinon boucle, mais c'ets pas le pb end function

---

la signature de la fonction fils est la suivante

Code:

---

1 2 3

function fonction_fils(Text as String) as String fonction_fils = left(Text, 1) ' peu importe... end function

---

merci d'avance

Bonjour,
Une erreur détectée et un argument Byref invalide, pour y remédier..

Code:

---

1 2 3 4 5 6 7 8

Function fonction_pere(Text As String) As String Tableau = Split(Text, " ") fonction_pere = fonction_fils(Tableau(0)) & fonction_fils(Tableau(1)) ' s'il a deux mots, sinon boucle, mais c'ets pas le pb End Function   Function fonction_fils(ByVal Text As String) As String fonction_fils = Left(Text, 1) ' peu importe... End Function

---

A+

PS: Si tu voulais mettre les balises CODE pour les parties codes ce serrait plus lisible # dans l'éditeur.;)

Pour la balise code, c'est promis !!!
sinon merci pour le ByRef mais j'aimerais savoir a quoi ca correspond (pointeur non ?)

sinon j'ai un probleme plus serieux, ceci concerne le code suivant

Code:

---

1 2 3

tableau = split ("toto", " ") If UBound(Tableau) = 0 Then MsgBox "un seul element dans le tableau"

---

ca me fait une erreur "l'indice n'appartient pas a la selection", en gros un outOfBoundExeption mais rassurez moi les indices de tableaux vont bien de 0 a taille-1...


re-merci d'avance

Bonjour,

Citation:

---

mais rassurez moi les indices de tableaux vont bien de 0 a taille-1...

---

Oui l'indice inférieur par défaut est 0, mais il peut etre modifié.

Code:

---

Option Base 1 'A placer en tete du module

---

Et il est également possible de définir cet indice à la déclaration.

Code:

---

1 2 3

Dim Tableau (1 To 10) 'voire même Dim Tableau(-10 To 10)

---

Pour ce qui est de l'erreur je pense que ta variable tableau devrait être déclarée avec le type variant.

cordialement,

Tirex28/

PS:Bienvenue chez les fous.

Byref signifie que tu transmet l'argument par référence (adresse en mémoire) en d'autre termes si la fonction modifie l'argument, tu peu récupérer l'argument modifié sans transfert de variable, un petit exemple

Code:

---

1 2 3 4 5 6 7 8

A=10 : B = 20 Swap A,B au retour A = 20 , B = 10   function Swap(Byref V1 as variant, Byref V2 as variant) Dim Buff as variant Buff = V1 : V1 = V2 : V2 =Buff end function

---

ByVal signifie que tu transmet par valeur (le contenu de la variable)

Split ne génére pas un tableau s'il n'y a qu'un seul élément.
J'ai pas tester mais essaye de déclarer ta variable par T()
A+

merci a vous tous