Re : Formule pour identifier des match de caractères entre 2 cellules
Ree
une fontion personnalisée à mettre dans un module standard :
Code:
Function Recherche18(Quoi, Ou)
Dim i As Integer
If Len(Quoi) >= 18 Then
For i = 1 To Len(Quoi) - 17
If Ou Like "*" & Mid(Quoi, i, 18) & "*" Then
Recherche18 = "YES"
Exit For
End If
Next
Else
Recherche18 = "Trop Court"
End If
End Function
en C1, <insérer Fonction> , fonctions personnalisée, Recherche18
Quoi= la chaine recherchée (B1)
Ou= la chaine globale (A1)
si B1 fait moins de 18 caractères en C1 => Trop Court