pour ta deuxième question, il faut bien que tu comprenne que si je te dit :
je cherche la fonction f(x) tel que f(5)=8
il y a une infinité de fonction qui font ça.
Ensuite, je suppose que tu ne voulais pas écrire :
a=fonc(abc,ab)
mais plutot :
a=fonc("abc,"ab")
C´est bien ça ?
Si c´est le cas, on vas supposer que ta fonction renvoie le nombre de caractère identique entre deux chaine en partant du début. c´est ça ?
si oui, je ne conait pas de fonction VB qui le fasse, mais en voici une qui le fait :
private function fonc(chaine1 as string chaine2 as string)as long
dim I as long
dim Longueur as long
dim Len1 as long
dim Len2 as long
Len1=len(chaine1)
Len2=len(chaine2)
Longueur=iif(Len1<Len2,Len1,Len2)
for I=1 to Longueur step 1
if Mid$(chaine1,I,1)<>Mid$(chaine2,I,1) then goto FinBoucle:
next
I=I-1
FinBoucle:
fonc=I
end function