Discussion :

[onejock]

bonjour,

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

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

l'appel se fait de la maniere suivante :

Code :

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

MsgBox fonction_pere ("toto titi tutu tete")

la signature de la fonction pere est la suivante

Code :

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

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 :

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

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

merci d'avance

[LeForestier]

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

Code :

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

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.

[onejock]

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 :

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

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

[tirex28]

Bonjour,

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 :

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

Option Base 1 'A placer en tete du module

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

Code :

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

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.

[LeForestier]

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 :

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

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+

[onejock]

merci a vous tous