Microsoft 365 Equiv : pb de correspondance

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2021

• #2

Bonjour JCLG, et bienvenu sur XLD,
Comme personne ici n'a de boule de cristal, j'ai bien peur que sans un petit fichier test représentatif du problème ( et anonyme ) vous n'ayez que peu de réponses, si ce n'est des généralités.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Décembre 2021

• #3

Bonjour.
Il faut respecter le type de donnée de la valeur de la cellule que vous cherchez, ne pas spécifier comme argument de recherche un String reproduisant le texte qu'elle montre en raison de son format de nombre, et valant en réalité un Double, une Date ou un Currency !
Si ce sont bien des textes vérifiez s'il n'y a pas d'un seul coté des espaces en trop devant ou à la fin.

 

Dernière édition: 1 Décembre 2021

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #4

Bonjour,

Merci de votre accueil et de vos premiers retours. Je vous envoi un exemple dès que je suis de nouveau disponible. Pour la réponse à Dranreb, oui, j'ai vérifié qu'il n'y avait pas d'espaces devant ou à la fin.

A toute à l'heure.

 

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #5

Rebonjour,

Voici un fichier Excel avec 2 exemples dans le 1er onglet (le 2ème onglet comporte la liste client).
Le 1er exemple (client ABBEVILLE) fonctionne bien car j'ai recopié ABBEVILLE de l'onglet "liste client).
Le 2ème exemple (client ACHERES) ne fonctionne pas et ce qui est bizarre, c'es qu'en cliquant dans la cellule, il me fait un renvoi de lignes, ce qu'il ne fait pas pour ABBEVILLE suite au copier / coller.

Merci de votre retour.
Bon appétit.

 

Pièces jointes

• exemple probleme EQUIV.xlsx

  127.5 KB · Affichages: 8

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 1 Décembre 2021

• #6

Bonjour à tous,

Tu avais un retour après le nom.
J'ai retapé "ACHERES" et tout est "OK"

JHA

 

Pièces jointes

• exemple probleme EQUIV.xlsx

  128.1 KB · Affichages: 3

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #7

Bonjour,

Merci pour la réponse, mais comme indiqué dans mon message initial, je sais que j'ai un retour et que je dois retaper le nom du client, sauf que dans mon fichier original, j'ai 40 000 lignes.

Ya t'il un moyen automatique de régler ce problème de retour sans retaper une à une chaque ligne.

Merci.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2021

• #8

Bonjour JCLG, Dranreb, JHA,
J'ai tenté en A2:A6 :

VB:

=SIERREUR(INDEX('LISTE CLIENTS'!$A$2:$A$4231;EQUIV(RDV!D2;'LISTE CLIENTS'!$B$2:$B$4231;0));INDEX('LISTE CLIENTS'!$A$2:$A$4231;EQUIV(RDV!D2;'LISTE CLIENTS'!$B$2:$B$4231;1)))

Je tente une recherche exacte avec le param 0. S'il y a erreur je tente avec 1.
Mais pas ben sur que ça marche tout le temps.

 

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #9

Bonjour sylavnu,

Merci beaucoup. J'avais déjà testé avec le param 1 dans la formule EQUIV, mais effectivement, ça ne fonctionne pas tout le temps.

Avec ton exemple, certains cas fonctionnent, mais dans d'autres cas, il me remonte le même code en face de plusieurs clients différents.

Dans les faits, il faudrait que j'arrive à modifier mes 40 000 lignes clients de façon assez rapide.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2021

• #10

Droit au VBA ?

 

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #11

Heu, oui, je pense, mais je ne maîtrise pas vraiment.

L'idée est de développer une macro ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Décembre 2021

• #12

Certaines de vos sociétés comportent des caractères "parasites". ( en particulier
En PJ un essai qui analyse toute la colonne D et essaye de rectifier les valeurs si en colonne A il y a erreur, avec :

VB:

Sub remplace()
    Application.ScreenUpdating = False
    For L = 2 To Range("D65500").End(xlUp).Row
        If IsError(Cells(L, "A")) Then
            Chaine = Cells(L, "D")
            If Asc(Left(Chaine, 1)) = 63 Then Chaine = Mid(Chaine, 2)
            Chaine = Replace(Chaine, Chr(10), "")
            Chaine = Replace(Chaine, Chr(13), "")
            Chaine = LTrim(RTrim(Chaine))
            Cells(L, "D") = Chaine
        End If
    Next L
End Sub

 

Pièces jointes

• exemple probleme EQUIV (2).xlsm

  136 KB · Affichages: 3

Vote positif 0 Vote négatif

J

JCLG

XLDnaute Nouveau

• 1 Décembre 2021

• #13

Sylvanu,

Un grand merci du fond du cœur, ça fonctionne, j'ai récupéré les bons codes sur les 40 000 lignes...

Vous m'enlevez une sacré épine du pied.....

Bonne fin de journée.
Je vais mieux dormir ce soir ;-)!!!!!

 

Vote positif 0 Vote négatif