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