+ ou - Doublon Cellule !

**kev6540** · 14/03/2019, 08h37

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.

**patricktoulon** · 14/03/2019, 08h49

onjour
ou lah!!!
c'est pas clair ta demande

"1 ou 2 caracteres pres "????

ces 1 ou 2caracteres pres sont sensés etre ou??

en fin de chaine
en milieu de chaine
en debut de chaine

pour le debut et fin de chaine tu pourrait tout simplement tester le left et right des element du dico

pour le milieu il va te faloir toute un autre algorithme qui annalyse les similarités en terme de pourcentage en fonction de la distance '

l'algorithme de levenshtein ca te parle ?

fait une recherche la dessus dans ce forum et sur google tu trouvera au moins deux exemples en vba relativement complets et fonctionnels

d'ailleurs je crois il me semble avoir participé a une de ces discussions sur ce meme forum

cet alogorithme gere aussi l'absence du /des caractere

exemple

algorithme/algoritme

**kev6540** · 14/03/2019, 08h52

Bonjour,

Merci pour votre rapidité...

Dans mon fichier, il y a des lignes terminant par : 100g 100g .... Là mon code me renvois Vrai
100g 100 ... Là mon code me renvoie Faux ... j'aimerai qu'il me dise Vrai

Cordialement...

**patricktoulon** · 14/03/2019, 09h00

re
d'accords on parle donc de 1 !! caractere a la fin (j(ai deja repondu a ta question )
qu'en est il du suposé 2d caracteres ????
il faut que tu donne tout les elements au depart sinon on va patauger

remarque
entre nous pour une différence a la fin ou au debut pas besoins de dictionnaire

1 transformer ta colonne en array 1 dimention
appliquer la fonction filter pour les variables tableau et en fonction ubound (1 ou plus)sur la valeur du left(chaine,len(chaine)-1) ou -2 et pareil pour le right tu aura ta reponse

**RyuAutodidacte** · 14/03/2019, 09h01

Bonjour, (coucou Patrick

),

En lisant la demande, je me suis dit la même chose que toi Patrick …
Et je te confirme que nous avons bien participé à une discussion similaire, il faudrait la retrouver il me semble qu’elle date …
Faudrait juste la retrouvée.

La voilà d’ailleurs :
https://www.developpez.net/forums/d1...sque-doublons/

Édit : kev6540 il ne reste plus qu’à lire et voir si cela correspond, sinon revient et précises tous les détails des tenants et aboutissants sans oublier le but final

**patricktoulon** · 14/03/2019, 09h08

re
bonjour RYU
une d'entre elles
https://www.developpez.net/forums/d1...ntre-colonnes/

**kev6540** · 14/03/2019, 09h11

Salut RyuAutodidacte et merci pour ton intervention... Mais je n'ai pas vraiment trouvé la réponse à ma question dans ce topic...

Re Patrick,

Ce serait vachement plus concret si tu regardais le fichier en pièces jointes, ce classeur exemple sera assez explicite je pense...

Voici un copier/coller de mon exemple...

Nom : Capture.JPG
Affichages : 145
Taille : 47,1 Ko

Nom : Capture.JPG
Affichages : 145
Taille : 47,1 Ko

Mon code détecte bien les similaires mais non les presque similaires...

Cordialement...

**patricktoulon** · 14/03/2019, 09h43

re
justement j'ai bien regardé ton fichier

voici une demo pour les debut et fin de ton fichier
je n'utilise pas de dictionnaire
comme je te l'ai dis j'utilise la fonction filter d'une variable tableau
il me reste a prendre en compte les valeur complete (ex: la ligne 1) donc tester non seulement "valeur" mais le right et left avec len(-2/1)

la formule dans la cellule
[QUOTE][=DoublCellVraiFaux($A$1;A2)/QUOTE]

en gros je prends la cellule A1 pour determiner le debut du tableau en le end(xldwon) j'ai la fin
je filtre en fonction de valeur si le ubound est > 0 alors ils son plusieurs
pour ajouter la condition de 2 caracteres max je teste les longueur de chaine dans le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function DoublCellVraiFaux(cel1 As Range, valeur As String) As Boolean
 Dim longueur&, x As Boolean
 'Application.Volatile
tableau = Application.Transpose(Range(cel1, cel1.End(xlDown)))
tableau = Filter(tableau, valeur, True)
x = UBound(tableau) > 0 'on donne la valeur booleenne a x
'************************************************************
'pour limiter a 2 caracteres diférent a la fin ou au debut a va scruter les item du tableau filtré sur leur len-2
longueur = Len(valeur)
For i = LBound(tableau) To UBound(tableau)
If Len(tableau(i)) > longueur + 2 Then x = False
Next
'*************************************************************
DoublCellVraiFaux = x
End Function

regarde bien cette capture

Nom : Capture.JPG
Affichages : 184
Taille : 115,3 Ko

on pourrait aussi utiliser les fonction excel recherche,gauche,droite,texte je dis ca moi hein

**RyuAutodidacte** · 14/03/2019, 09h45

Re,

Concernant les fichiers :https://www.developpez.net/forums/d8...s-discussions/

Par contre tu peux copier un extrait de données Excel en ayant préalablement basculer sur l'éditeur WYSIWYG avant (cf capture surligner en vert) et gérer le tableau dans le post via les boutons surligner en jaune (cf capture)

Nom : Forum.png
Affichages : 145
Taille : 44,0 Ko

Nom : Forum.png
Affichages : 145
Taille : 44,0 Ko

**kev6540** · 14/03/2019, 09h58

Ok merci, on se rapproche...

Dans mon tableau, toute les lignes devrait me renvoyer Vrai...

Mon tableau est un exemple en quelques lignes, mon original en comporte plus de 40.000...

Donc si je comprends bien, je dois entrer une valeur pour chaque ligne... ça ne m'arrange pas de trop..

Désolé, je ne suis qu'un amateur !!

En tout cas, merci de regarder à ça...

Cordialement.

**eriiic** · 14/03/2019, 10h48

Bonjour à tous,

pourquoi "Filet de saint-pierre 170-220g 170-22" ou "Persil en feuille 120g 12" devraient te renvoyer VRAI ?
Si 220=22 et 120=12 il va falloir compliquer un peu....
Sinon à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function DoublCellVraiFaux(c)
    Dim a, i As Long, j As Long, p As Long
    a = Split(Application.Trim(Replace("a " & c, "-", " ")), " ")
    For i = UBound(a) - 3 To UBound(a)
        j = 0
        Do: j = j + 1: Loop Until Mid(a(i), j, 1) Like "[1-9]" Or j > Len(a(i))
        If j <= Len(a(i)) Then
            a(i) = Val(Mid(a(i), j))
            If p = 0 And i = UBound(a) - 1 Or i = UBound(a) - 3 Then p = i
        End If
    Next i
    If p = UBound(a) - 1 Then
        DoublCellVraiFaux = a(UBound(a) - 1) = a(UBound(a))
    ElseIf p = UBound(a) - 3 Then
        DoublCellVraiFaux = a(UBound(a) - 2) = a(UBound(a)) And a(UBound(a) - 3) = a(UBound(a) - 1)
    Else
        DoublCellVraiFaux = "ano"
    End If
End Function

eric

**kev6540** · 14/03/2019, 11h41

Bonjour eriiic,

Merci de intéresser à mon cas...

Ton code fonctionne super bien pour 1 caractère de différence.... ça me conviendra parfaitement !

Pour ta question, ça devrait renvoyer vrai car c'est le même grammage auquel il manque 2 caractères...

170-220g 170-22 .... donc, c'est Vrai que le poids est en double dans le libellé ....

Mais en tout cas, tes modifications vont énormément m'aider... Merci Merci Merci !!!!!

Cordialement.

**patricktoulon** · 14/03/2019, 11h47

re
en voila une pour 1 ou 2 caracteres manquant a gauche OU !! 1 ou 2 caracteres manquant a droites

et toujours !!!!! avec la fonction filter des variables tableau
pour commencer ma plage A1:A14

Libellé long M
Pavé de dindonneau précuit 120-130g 120-130g
Petit beurre 20g 20g
Filets de flétan 700-1000g 700-1000g
vé de dindonneau précuit 120-130g 120-130g
Filet de saint-pierre 170-220g 170-22
Filet de plie pané 180-200g 180-200g
Petit beurre 20g 2
Pavé de dindonneau précuit 120-130g 120-13
Burger de poisson pané 150g 150
vé de dindonneau précuit 120-130g 120-130g
Fish stick pané 100g g100
Persil en feuille 120g 12
Planchette de colin d'alaska sans arêtes 100g 0100g

mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function DoublCellVraiFaux(cel1 As Range, valeur As String) As Boolean
 Dim tableau, x As Long
 'Application.Volatile
valeur = Trim(valeur)
DoublCellVraiFaux = False
tableau = Application.Transpose(Range(cel1, cel1.Offset(Rows.Count - cel1.Row).End(xlUp)))
'****************************************************************
'pour les 1 ou 2 caractere a droite
tableau = Application.Transpose(Range(cel1, cel1.End(xlDown)))
x = UBound(Filter(tableau, Left(valeur, Len(valeur) - 1), True))
x = x + UBound(Filter(tableau, Left(valeur, Len(valeur) - 2), True))
'****************************************************************
'pour les 1 ou 2 caractere a gauche
tableau = Application.Transpose(Range(cel1, cel1.Offset(Rows.Count - cel1.Row).End(xlUp)))
x = x + UBound(Filter(tableau, Right(valeur, Len(valeur) - 1), True))
x = x + UBound(Filter(tableau, Right(valeur, Len(valeur) - 2), True))
'****************************************************************
Debug.Print valeur & " :! " & x
 DoublCellVraiFaux = x > 0
End Function

la formule dans les cellule a etendre jusqua la ligne 14

=DoublCellVraiFaux($A$1;A2)

capture
Nom : Capture.JPG
Affichages : 141
Taille : 80,9 Ko

comme je l'ai dis nul besoins de dico

**eriiic** · 14/03/2019, 11h54

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ton code fonctionne super bien pour 1 caractère de différence

1, 2 ou plus
"Fish stick pané 100gr 100" => VRAI
"Fish stick pané 100 100gr" => VRAI

Donc VRAI aussi si ta chaine est tronquée, ou un 3ème état "VRAI ?" que tu puisses les contrôler ?
eric

**eriiic** · 14/03/2019, 12h01

Donc :
"Persil en feuille 120g 12" => VRAI
mais
"Persil en feuille 12g 120" => FAUX

Par contre "Filet de saint-pierre 170-220g 170-" => FAUX, il manque un poids

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function DoublCellVraiFaux(c)
    Dim a, i As Long, j As Long, p As Long
    a = Split(Application.Trim(Replace("a " & c, "-", " ")), " ")
    For i = UBound(a) - 3 To UBound(a)
        j = 0
        Do: j = j + 1: Loop Until Mid(a(i), j, 1) Like "[1-9]" Or j > Len(a(i))
        If j <= Len(a(i)) Then
            a(i) = Val(Mid(a(i), j))
            If p = 0 And i = UBound(a) - 1 Or i = UBound(a) - 3 Then p = i
        End If
    Next i
    If p = UBound(a) - 1 Then
        DoublCellVraiFaux = Left(a(UBound(a) - 1), Len(a(UBound(a)))) = a(UBound(a))
    ElseIf p = UBound(a) - 3 Then
        DoublCellVraiFaux = Left(a(UBound(a) - 2), Len(a(UBound(a)))) = a(UBound(a)) And a(UBound(a) - 3) = a(UBound(a) - 1)
    Else
        DoublCellVraiFaux = "ano"
    End If
End Function

eric

**patricktoulon** · 14/03/2019, 12h17

bonjour eriic

je pense qu'il faudrait que kevin reponde a la question que j'ai posé au debut

ces 1 ou 2 caracteres manquants doivent il etre a la fin ou au debut?

apres sin on parle de chaine dans une autre on est plus dans l'exercice du len,left,right mais dans les expressions reguliere like en vba c'est pas la meme chose

l'exercice c'est quoi

(Petit beurre 20g 20g--->Petit beurre 20g 2) OU !! (Petit beurre 20g 20g-->tit beurre 20g 20g)

ou
(Petit beurre 20g 20g-->blablatit beurre 20g 2blabla)

c'est pas la meme facon de l'aborder

ca manque de précision tout ca

**mercatog** · 14/03/2019, 12h20

Bonjour
Fonction incomplète aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function DoublCellVraiFaux(ByVal c As String) As Boolean
Dim Tmp As String
Dim i As Integer
Dim a
 
a = Split(c)
For i = 0 To UBound(a)
    Tmp = a(i)
    If Val(StrReverse(Tmp)) <> 0 Then Tmp = Mid(Tmp, 2) 'unité avant la valeur
    If Val(Tmp) <> 0 Then
        If Len(Replace(c, Tmp, "")) < Len(c) - Len(Tmp) Then
            DoublCellVraiFaux = True
            Exit For
        End If
    End If
Next i
End Function

**kev6540** · 14/03/2019, 12h21

Envoyé par eriiic

Donc :
"Persil en feuille 120g 12" => VRAI
mais
"Persil en feuille 12g 120" => FAUX

Par contre "Filet de saint-pierre 170-220g 170-" => FAUX, il manque un poids

Super, c'est bien ça, juste que pour "Filet de saint-pierre 170-220g 170-", ça devrait me renvoyer vrai quand même car c'est un tronquage de caractères...

Encore merci à toi...

Cordialement...

**eriiic** · 14/03/2019, 12h26

Bonjour Patrick
Pour moi il faut comparer les 2 ou 4 nombres dans le ou les 2 derniers mots, sans tenir compte des unités (en espérant qu'il n'ait pas le cas kg d'un coté et g de l'autre).
Ensuite il est apparu que la chaine pouvait être tronquée.
eric