Compare, remplace noms

[Hoareau]

Bonjour

J'essai de comparer deux colonnes.
Dans la deuxième colonne certains noms ne sont pas complets et finisssent par des points

Donc j'enlève les points de la colonne B et je compare ce qui reste avec le même nombre de caractère de la colonne A

Cela fonctionne pour certains noms, pas pour d'autres
En comparant manuelement on dirait pourtant que c'est la même chose

merci


Sub Remplace_Noms()

Application.ScreenUpdating = False

Bd_1 = [A51].Row
Bd_2 = [B51].Row

For i = 1 To Bd_1
For j = 1 To Bd_2



t_1 = Cells(i, 1)
t_2 = Cells(j, 2)

t_2 = Replace(t_2, ".", "")

NB_Caract_BD_1 = Len(t_1)
NB_Caract_BD_2 = Len(t_2)

If Left(t_1, NB_Caract_BD_2) = Left(t_2, NB_Caract_BD_2) Then

Cells(i, 1).Offset(0, 5) = t_1 'Left(t_1, NB_Caract_BD_2)
Cells(i, 1).Offset(0, 6) = NB_Caract_BD_1
Cells(j, 2).Offset(0, 6) = t_2 'Left(t_2, NB_Caract_BD_2)
Cells(j, 2).Offset(0, 7) = NB_Caract_BD_2


Next
Next

Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Compare, remplace noms

Bonsoir Hoareau,

peut être qu'un petit fichier en pièce jointe, avec modèle de donnée et résultat attendu nous aiderait à t'aider...

bonne soirée
@+

 

[Hoareau]

Re : Compare, remplace noms

Dans la colonne C affichage de la phrase complète si commun A et B

Je pense qu'il n'y a que trois cas:

>>>La phrase est complète>>Elle appartient à A et à B donc commun= col C

>>>La phrase est imcomplète et se termine par des points :
-Enlever les points en fin de ligne
-Vérifier la chaine de caractère restante avec la même chaine de caractère de la colonne A
-Si la chaine est présente, afficher la chaine A (le mot complet)dans la colonne C

>>> La phrase contient des points qui ne sont pas en fin de ligne :
si c'est la même phrase commun A don colonne C


Ex:
colonne A:
Le temps est à l'orage
Le temps est pluvieux ce matin
C.T.B.A
Il fait beau

Colonne B:
Le temps est à l'orage
Le temps est pluvieux ce m...
C.T.B.A
Il ne fait pas beau

Colonne C:
Le temps est à l'orage
Le temps est pluvieux ce matin
C.T.B.A

 

[ROGER2327]

Re : Compare, remplace noms

Bonjour à tous

A essayer :

[COLOR="DarkSlateGray"][B]=SI(A2=B2;A2;SI(ESTERREUR(CHERCHE(SUBSTITUE(B2;".";"")&"*";A2));"";A2))[/B][/COLOR]

ROGER2327
#2556

 

[Hoareau]

Re : Compare, remplace noms

merci

cette formule me renvoi des noms qui ne devrait pas apparaitre

ce que je voudrais en vba

enlever les trois points de la fin dans la colonne B et comparer avec la même chaine en colonne A

 

[ROGER2327]

Re : Compare, remplace noms

Re...

(...)

cette formule me renvoi des noms qui ne devrait pas apparaitre
(...)

Je n'ai évidemment travaillé que sur la base des exemples fournis...
​

ROGER2327
#2559

 

[pierrejean]

Re : Compare, remplace noms

Re

Salut a tous

En supposant avoir bien compris

 

[Hoareau]

Re : Compare, remplace noms

A première vue avec les exemples du fichier cela fonctionne

en rajoutant XX dans la colonne A
en rajoutant X. dans la colonne B
en colonne C on trouve XX qui ne devrait pas être là


Chose bizzare en transferrant mes données cela ne fonctionne plus, pourtant pas de référence aux feuilles