XL 2016 Ecarts entre 2 textes - trouver le nombre de différence

Poupi · 28 Juin 2021

Hello (pourExcel 2016 et 2019)
Est ce que vous pouvez m'aider pour ceci; je préviens ça s'annonce compliqué (VBA/Fonction VBA/Formules etc)
Défi:
Comparer 2 cellules A2 et B2 (plus généralement 2 colonnes sélectionnées A et B comportant une série de lettre et en sortir 1 résultat dans la cellule à côté C2 (colonne à côté col C)
Rien de mieux que des exemples, j'ai 2 versions, les plus forts peuvent essayer les 2

La version compliquée: nombre total de lettre pas trouvé dans les 2 sens (attention pour la même lettre il faut le même nombre de cette lettre ex. COCA et COKO résultat total différence = 3 càd manque la "A" à gauche comparé à droite, et manque le K et le 2e O à droite comparé à gauche)

Ex:

A	B	C
ENGIE	ENGIES	1
ESSENTIAL	ESENTIAAL	2
ARIELTO	ARIELOO	2
ARAMIS	ARMAIS	0
AKATOA	AKATO	1
AKATOAR	AKATOA	1
ENGIEFRANCECOMPAGNIE	ENGIESUEZFRANCECOMPAGNIE	4

Version un peu moins compliquée peut-être ? (les 2 versions m'intéressent) nombre de lettre de B non trouvé dans A (attention pour le même lettre il faut le même nombre de cette lettre ex. COCA et COCAA résultat = 1 le 2e A n'est pas trouvé )

Name GEKI	Name Graydon	C
ENGIE	ENGIES	1
ESSENTIAL	ESENTIAAL	1
ARIELTO	ARIELOO	1
ARAMIS	ARMAIS	0
AKATOA	AKATO	0
AKATOAR	AKATOA	0
ENGIEFRANCECOMPAGNIE	ENGIESUEZFRANCECOMPAGNIE	4
TELECC	TELEK	1

Merci d'avance pour votre expertise !
Merci bcp bcp

job75 · 28 Juin 2021

Bonsoir Poupi, patricktoulon,

Voyez le fichier joint, cette fonction VBA comptabilise les écarts entre les 2 textes :

VB:

'Option Compare Text 'activer pour ignorer la casse

Function Ecarts%(text1$, text2$)
Dim i%, x$, j%
For i = Len(text1) To 1 Step -1
    x = Mid(text1, i, 1)
    For j = 1 To Len(text2)
        If Mid(text2, j, 1) = x Then
            text1 = Left(text1, i - 1) & Mid(text1, i + 1)
            text2 = Left(text2, j - 1) & Mid(text2, j + 1)
            Exit For
        End If
Next j, i
Ecarts = Len(text1) + Len(text2)
End Function

A+

Poupi · 30 Juin 2021

@patricktoulon Si ce n'est pas claire pour toi voici ce que je voulais dire en exemple ci-dessous;
les fonctions/codes font le taf dans Col C et Col D.

Texte 1 (colA)	Texte 2 (col B)	Ecarts (col C)	Correspondance (col D)
ENGIE	AKATOA	1	AKATOAR
ESSENTIAL	ENGIESUEZFRANCECOMPAGNIE	4	ENGIEFRANCECOMPAGNIE
ARIELTO	TELEK	3	TELECC
ARAMIS	ENGIES	1	ENGIE
AKATOA	ESENTIAAL	2	ESSENTIAL
AKATOAR	ARIELOO	2	ARIELTO
ENGIEFRANCECOMPAGNIE	ARMAIS	0	ARAMIS
ENGIE	AKATO	1	AKATOA
ESSENTIAL	ENGIES	1	ENGIE
ARIELTO	ESENTIAAL	2	ESSENTIAL
ARAMIS	ARIELOO	2	ARIELTO
AKATOA	ARMAIS	0	ARAMIS
AKATOAR	AKATO	1	AKATOA
ENGIEFRANCECOMPAGNIE	AKATOA	1	AKATOAR
TELECC	ENGIESUEZFRANCECOMPAGNIE	4	ENGIEFRANCECOMPAGNIE

patricktoulon · 30 Juin 2021

a ben fait un effort
job t'a donné un truc
j'y ajoute un select case c'est pas pour rien
je t'ai donné un fichier en plus
on va pas te la tenir non plus

Poupi · 30 Juin 2021

patricktoulon à dit:
a ben fait un effort
job t'a donné un truc
j'y ajoute un select case c'est pas pour rien
je t'ai donné un fichier en plus
on va pas te la tenir non plus

Ok merci à toi . Bonne soirée

patricktoulon · 30 Juin 2021

de rien et étudie bien tranquillement ligne par ligne
tu devrais comprendre le principe

Poupi · 30 Juin 2021

patricktoulon à dit:
de rien et étudie bien tranquillement ligne par ligne
tu devrais comprendre le principe

C'est assez compliqué pour qqun qui ne baigne pas dedans, pour toi c'est du Français surement ;-)
d'ailleurs je ne sais toujours pas ce que rend comme résultat cette partie du code
"Select Case True ...etc", avec la réponse : "ben ça veut dire ce que ça veut dire" ça ne m'apprend pas grand chose, tu comprends?

Toute manière mon but c'est pas d'embêter les gens, t'es pas là pour transmettre.
un passionné se plus tolérant avec moi ;-)

Mais j'apprécie beaucoup ton aide.
Bonne soirée

patricktoulon · 30 Juin 2021

que veux tu que je te dise
select case true
3 mots c'est si difficile que ça a traduire ?
selectionner la case vrai
en dessous tu a
case machin chose
case truc bidule
case blablabla

et bien il va matcher sur la première case qui donne vrai c'est tout

tiens si là tu pige pas je jette mon tablier , je peux plus rien pour toi

VB:

Sub test()
  
   monami = "poupi"

    Select Case True
    Case monami = "toto": t = "ben oui bien sur c'est toto"
    Case monami = "titi": t = "ben oui bien sur c'est titi"
    Case monami = "poupi": t = "ben oui bien sur c'est poupi"
    Case monami = "fifi": t = "ben oui bien sur c'est fifi"
    End Select

    MsgBox t
End Sub

XL 2016 Ecarts entre 2 textes - trouver le nombre de différence

Poupi

XLDnaute Nouveau

job75

Poupi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Poupi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Poupi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires