Function EstContenu modification

[Hoareau]

Bonjour

J'essai de modifier la fonction ci dessous, de ngogoisidore, sans réussite

elle confond 5 et 15 , 4 et 14 etc...

Comment placer une condition supplémentaire, pour résoudre ce problème

sinon elle fonctionne correctement

merci

https://www.excel-downloads.com/threads/recherche-une-valeure-desordonnee-dans-une-cellule.113004/

Function EstContenu(sContenu As String, sContenant As String) As Boolean


* * Const sSep As String = "-"

* * Dim sPartie As String
* * Dim iPartie As Integer
* * Dim iPartie0 As Integer

* * EstContenu = True

* * If sContenu = "" Then Exit Function

* * iPartie = 0

* * While iPartie <= Len(sContenu)
* * * * iPartie0 = iPartie + 1

* * * * iPartie = InStr(iPartie0, sContenu, sSep)
* * * *
* * * * If iPartie = 0 Then iPartie = Len(sContenu) + 1

* * * * sPartie = Mid(sContenu, iPartie0, iPartie - iPartie0)
* * * *
* * * * If InStr(sContenant, sPartie) = 0 Then
* * * * * * iPartie = Len(sContenu) + 1
* * * * * * EstContenu = False
* * * * End If
* * Wend
End Function '~EstContenu

 

[JCGL]

Re : Function EstContenu modification

Bonjour à tous,

Merci de déposer un fichier significatif et d'utiliser les balises pour déposer du code.

Visiblement la fonction ne prend que l'unité du nombre.

A + à tous

 

[Hoareau]

Re : Function EstContenu modification

Bonjour

comme demandé, ci-joint exemple

 

[Hoareau]

Re : Function EstContenu modification

Pas d'âme charitable ayant une idée

merci

 

[JCGL]

Re : Function EstContenu modification

Bonjour à tous,

Je ne comprends pas ta demande.
Dans la chaîne :

5-6-1-14-2-15, tu as bien 1, 2 et 5 donc le VRAI est justifié
10-2-14-1-7-3, tu as 1 et 2 mais pas 5 donc le FAUX est justifié

A + à tous

 

[Hoareau]

Re : Function EstContenu modification

Tout ce qui est entre deux - doit être considéré comme une chaine unique

Chaine cherchée 1-2-4
1-2-4 Vrai
1-2-14 Vrai pour moi Faux, cherche la chaine 1-2-4 et non pas 1-2-14

confond 4 et 14
confond 15 et 5
etc

Fonctionne très bien avec les chiffres, mais dès qu'l y des nombres
J'ai essayé de comprendre le code