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 :
la signature de la fonction pere est la suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part MsgBox fonction_pere ("toto titi tutu tete")
la signature de la fonction fils 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
merci d'avance
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
Partager