Calculer un % identique du contenu d'une cellule avec une autre

Pour répondre a DjiDji et via55, je suis confus, j’ai du avoir une hallucination, c’est bien 80% et pas 83%. Je sais pas comment j’ai fait mon compte pour arriver à 83%.... bref.

et comment tu trouves 83 % entre a1010 et a1011 ?
Donc c’est bien 80% : pour A1010 il y a 4 caractères sur 5 qui correspondent à A1011 donc 80%

mais justement tu ne réponds pas à ma 2eme question
Tout simplement, je ne l’avais pas vu.
Alors je n’ai pas encore de fichier concret à proposer parce que je viens d’avoir l’idée.
Pour expliquer l’objectif final :
Je récupère la comptabilité d’une société appelé Fichier des Ecritures Comptables que j’ouvre sur Excel.
L’objectif final étant, après avoir sélectionné tous les achats, de trouver des achats passés en doubles et payés en doubles.
L’exemple que je donne avec les A1010, A1011 etc... pourrait correspondre à un numéro de pièce. Le service comptable va enregistrer la facture sous le numéro A1010 une 1ère fois, puis A-1010 une 2eme fois (même si c’est involontaire).
Si donc, je trouve une correspondance de 80% sur un numéro de pièce, 80% sur le libellé de l’écriture etc..., je pourrais conclure avec x% de certitudes que la facture est doublée (et éventuellement le paiement).

Par contre je ne pourrai pas fournir de véritable FEC, j’espère que vous comprendrez...
Mais je pourrai essayer demain de créer un « faux » FEC se rapprochant de la réalité.
Merci de prendre le temps en tout cas de vous pencher sur ce problème.

Je ne pense pas que le calcul de % seul, même en utilisant la méthode de Levenshtein indiquée par Eric, que je salue bien au passage ☺, te soit d'un grand secours :
en effet si A-1010 et A1010 donnent un % de 83% A-1010 et A51010 donnent aussi 83%

Si tu veux faire des essais avec la méthode de Levenshtein, voilà une fonction personnalisée trouvée sur Internet

Function Levenshtein(ByVal string1 As String, ByVal string2 As String) As Long

Dim i As Long, j As Long, string1_length As Long, string2_length As Long
Dim distance(0 To 60, 0 To 50) As Long, smStr1(1 To 60) As Long, smStr2(1 To 50) As Long
Dim min1 As Long, min2 As Long, min3 As Long, minmin As Long, MaxL As Long
 
string1_length = Len(string1):  string2_length = Len(string2)
 
distance(0, 0) = 0
For i = 1 To string1_length:    distance(i, 0) = i: smStr1(i) = Asc(LCase(Mid$(string1, i, 1))): Next
For j = 1 To string2_length:    distance(0, j) = j: smStr2(j) = Asc(LCase(Mid$(string2, j, 1))): Next
For i = 1 To string1_length
    For j = 1 To string2_length
        If smStr1(i) = smStr2(j) Then
            distance(i, j) = distance(i - 1, j - 1)
        Else
            min1 = distance(i - 1, j) + 1
            min2 = distance(i, j - 1) + 1
            min3 = distance(i - 1, j - 1) + 1
            If min2 < min1 Then
                If min2 < min3 Then minmin = min2 Else minmin = min3
            Else
                If min1 < min3 Then minmin = min1 Else minmin = min3
            End If
            distance(i, j) = minmin
        End If
    Next
Next
 
MaxL = string1_length: If string2_length > MaxL Then MaxL = string2_length
Levenshtein = 100 - CLng((distance(string1_length, string2_length) * 100) / MaxL)
 
End Function

A utiliser comme n'importe quelle fonction Excel avec la syntaxe :
=Levenshtein(première valeur ou cellule de la première valeur; seconde valeur ou cellule de la seconde valeur)

Cdlmnt
Via

Salut via,

il y en avait une dans le fichier que j'ai joint ;-)
mais tu as bien fait comme le demandeur ne m'a pas vu non plus...
eric