Attribute VB_Name = "CompareChaines"

'Eric Jeanne, mpfe
'compare lettre à lettre 2 chaines de caractères
'renvoie -1 si elles sont identiques,
'ou le nombre de caractères qu'elles ont en commun,
'de la gauche vers la droite (sensible à la casse)
Function comparCh(ch1, ch2)
Dim lg1%, lg2%, i%

    Application.Volatile True

    If ch1 = ch2 Then
        comparCh = -1

    Else
        lg1 = Len(ch1)
        lg2 = Len(ch2)

        i = 1
            While Mid(ch1, i, 1) = Mid(ch2, i, 1)
                i = i + 1
            Wend

        comparCh = i - 1

    End If

End Function

Sub test()
    MsgBox comparCh("paul za", "paul zaza")
    MsgBox comparCh("paul za", "paul Zaza")
End Sub