Comparaison entre 2 celulles au bout d'une longue chaine d'information...

[guit85]

Bonjour,

voilà mon problème j'ai fait une macro :

Range("a3").Select
LP = 0
While LP = 200
If ActiveCell.Offset(1, 0) = ActiveCell Then
Rows(ActiveCell.Row).EntireRow.Delete
ActiveCell.Offset(-1, 0).Activate
Else
ActiveCell.Offset(1, 0).Activate
End If
LP = LP + 1
Wend

Qui me permet de comparer une case sélectionné (A3 au début), à celle en dessous. le code en soit marche super bien. MAIS (et oui il y a un mais) en fait je me suis rendu compte que dans ces cases il y a une chaine d'information (fichier CSV) et cette chaine varie parfois de 3 fois rien, mais moi je veux supprimer les cases même si ce 3 fois rien existe (en gros la comparaison doit se faire jusqu'à la 51 chaine et si c'est les mêmes 51 premiers codes alors on supprime)

Exemple dans le fichier.

Dans cet exemple il faudrait que les cases A4 et A5 soit supprimées mais pas les autres (la différence se faisant ici sur la 23 éme chaine...


Les contraintes : (!?)
- Macro obligatoire;
- Je ne peux pas supprimer des chaines pour faciliter la comparaison ou les modifiés.

Merci parce que la je rames total et pas d'exemple équivalent sur le net...🙁

 

[phlaurent55]

Re : Comparaison entre 2 celulles au bout d'une longue chaine d'information...

Bonjour, guit85

pour tester les 51 premiers caractères:

If Left(ActiveCell.Offset(1, 0), 51) = Left(ActiveCell, 51) Then

à+
Philippe

 

[guit85]

Re : Comparaison entre 2 celulles au bout d'une longue chaine d'information...

Okéééééééé ça a l'air de fonctionner mais j'avais pourtant déjà essayé cette solution avec :
=GAUCHE(...)

et là ça ne fonctionnait pas c'était pourtant une solution Windows...

Merci je test aujourd'hui en condition réelle.