Bonjour à tous,

Je suis nouveau ici et aurait aimé que quelqu'un m'aide...

Je m'appelle Kevin, j'ai 38 ans...


Voici mon problème...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Function DoublCellVraiFaux(c)
 Application.Volatile
 a = Split(Application.Trim(c), " ")
 Set mondico = CreateObject("Scripting.Dictionary")
 For i = 0 To UBound(a):  mondico.Item(a(i)) = 1: Next i
 DoublCellVraiFaux = mondico.Count <> (UBound(a) + 1)
End Function
J'aimerais ajouter à ce code une approximation à 1 ou 2 caractères près...

Je vous met un fichier en exemple...

Classeur1.xlsm


Merci d'avance pour votre aide...


Cordialement.