Salut!
Je suis amené à reprendre des macros effectuées par une autre personne et à les améliorer en gros car il y a des bugs, mais il y a une fonction que je comprend pas trop et ca serait sympa si vous pourriez m'éclairer ^^
je suis pas tres bon en VBA donc c'est pour ca que je fais appel à vous =)
J'espere que vous pourrez m'aider
a+
Je suis amené à reprendre des macros effectuées par une autre personne et à les améliorer en gros car il y a des bugs, mais il y a une fonction que je comprend pas trop et ca serait sympa si vous pourriez m'éclairer ^^
Code:
Public Function compar(m1 As String, m2 As String, Optional k As Integer = 0) As Double
Dim i As Integer
Dim j As Integer
Dim r As Integer
Application.Volatile
j = Len(m1): r = 0
If Len(m2) > j Then j = Len(m2)
For i = 1 To j
If k = 1 Then
If Mid(m1, i, 1) = Mid(m2, i, 1) Then r = r + 1
Else
If LCase(Mid(m1, i, 1)) = LCase(Mid(m2, i, 1)) Then r = r + 1
End If
Next i
compar = r / j
End Function
je suis pas tres bon en VBA donc c'est pour ca que je fais appel à vous =)
J'espere que vous pourrez m'aider
a+