XL 2021 Recherche V

job75

XLDnaute Barbatruc

• 29 Mai 2023

• #2

Bonjour Lionel,

RECHERCHEV nécessite 4 arguments, tu en utilises 3.

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #3

Bonjour Gérard
Merci pour le retour.
Je vais voir...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2023

• #4

Bonjour Lionel,
Essayez :

VB:

=SIERREUR(RECHERCHEV(G3;Récap!G$3:G$16;1;FAUX);"")

et pour voir si ce N° existe :

Code:

=SIERREUR(SI(RECHERCHEV(G3;Récap!G$3:G$16;1;FAUX)<>"";"Existe");"N'existe pas")

Fonction RECHERCHEV - Support Microsoft

Découvrez comment utiliser la fonction RECHERCHEV dans Excel pour rechercher des données dans un tableau ou une plage par ligne. Notre guide pas à pas rend vlookup dans Excel facile et efficace.

support.microsoft.com

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #5

Bonjour Sylvanu
Merci à toi aussi.
Je venais d'y arriver lol et ça fonctionne nickel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #6

Re-Bjr Gérard , sylvanu , le Forum ,

Je croyais que ça fonctionnait bien mais..... NON
Et je ne vois pas comment je pourrais modifier.

dans mon fichier test :
en Feuille "Récap", j'ai 11254 lignes
En feuille "Agents, j'ai 38560 lignes

Ma recherche V est en feuille "Agents" (qui me recherche les n° identiques en Feuille "Récap")
Apparemment, ça fonctionne jusqu'à la ligne 11244
Et après : que des "#VALEUR!" jusqu'à la fin.

Pourriez-vous m'aider encore ?
Le fichier est trop gros pour être mis directement sur le fil
En cas que vous souhaitiez m'aider, je l'ai mis sur "cjoint"
Voici le lien de téléchargement.
https://www.cjoint.com/c/MEDmIp2tyOD

Un grand merci à vous

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2023

• #7

Re,
Et pourquoi ne pas avoir recopié la formule que je vous ai proposé ?
Essayez :

VB:

=SIERREUR(SI(RECHERCHEV(G2;Récap!G$2:G$100000;1;FAUX)<>"";"Existe");"Ya pas")

et si vous voulez faire apparaitre le N° alors :

VB:

=SIERREUR(RECHERCHEV(G2;Récap!G$2:G$100000;1;FAUX);"Y'a Pas")

Comme indiqué plus haut il faut respecter la syntaxe et dans :

Code:

=RECHERCHEV(G11246;Récap!G$2:G$100000;1;"Y'a Pas")

"Y'a Pas" n'est pas un paramètre de RechercheV

 

Dernière édition: 29 Mai 2023

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #8

Re-Bjr sylvanu
Merci d'être encore là
=SIERREUR(SI(RECHERCHEV(G2;Récap!G$2:G$100000;1;FAUX)<>"";"Existe");"Ya pas") :
Fonctionne mais me donne des "Y'a Pas" alors qu'il y a des n° existants dans la feuille "Récap"

=SIERREUR(RECHERCHEV(G2;Récap!G$2:G$100000;1;FAUX);"Y'a Pas")
Fonctionne mais me donne des "Y'a Pas" alors qu'il y a des n° existants dans la feuille "Récap"

=RECHERCHEV(G11246;Récap!G$2:G$100000;1;0")
Fonctionne jusqu'à la ligne 11244 et met des "#N/A" sur toutes les lignes suivantes alors qu'il y a des n° existants dans la feuille "Récap"

Je continue mes recherches...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #9

Peut-être que ce serait mieux avec une boucles ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #10

Re
Il y a bien le code de notre mapomme qui fonctionnerait certainement...

VB:

Option Explicit

Sub Degoter()
Dim dico As New Dictionary, datader&, data
Dim resultder&, result, i&, clef, deb

   deb = Timer: Application.ScreenUpdating = False
   Set dico = CreateObject("scripting.dictionary")
   dico.CompareMode = 1    'textcompare
  
   If Me.FilterMode Then Me.ShowAllData
   datader = Cells(Rows.Count, "a").End(xlUp).Row
   data = Cells(1, "a").Resize(datader, 3)
  
   Range("j2:j" & Rows.Count).ClearContents
   resultder = Cells(Rows.Count, "i").End(xlUp).Row
   result = Cells(1, "i").Resize(resultder, 2)
  
   For i = 2 To UBound(data): dico(data(i, 1)) = dico(data(i, 1)) & " " & data(i, 3): Next
   For Each clef In dico: dico(clef) = Trim(dico(clef)): Next
  
   For i = 2 To UBound(result): result(i, 2) = dico(result(i, 1)): Next
   Cells(1, "i").Resize(UBound(result), UBound(result, 2)) = result
  
   MsgBox Format(Timer - deb, "0.00"), vbInformation
End Sub

Mais je ne sais pas l'adapter

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Mai 2023

• #11

Lionel,
Regardez cette PJ avec la même formule que proposée.
En colonne J avec un nb.si je vérifie si le numéro existe ou pas.
En colonne L je regarde la cohérence entre la colonne H et la colonne J.

VB:

Col H : =SIERREUR(RECHERCHEV(G2;Récap!G$2:G$100000;1;FAUX);"Y'a Pas")
Col J : =SI(NB.SI(Récap!G:G;G2)>0;"Existe";"N'existe pas")
Col L : =SI(ET(H2="Y'a Pas";J2="Existe");"ERREUR";SI(ET(H2<>"Y'a Pas";J2="N'existe pas");"ERREUR";"ok"))
M1    : =NB.SI(L:L;"ERREUR")  Donne le nombre d'erreurs détectées

et je ne trouve aucune erreur.
Votre feuille Récap contient 15760 lignes, votre feuille Agents 35860.
Donc dans la feuille Agents il existe plus de N° que dans la feuille Recap.
Dans cette PJ, donnez nous quelles lignes vous posent problème, ça fera avancer les choses.

LIEN : https://www.cjoint.com/c/MEDptY5ZQaJ

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #12

Merci sylvanu
J'y vais dès que j'ai un moment

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Mai 2023

• #13

Merci sylvanu
C'est nickel

Bon sang, comme dirait Raymond, "mais c'est bien sûr" lol
Je n'avais pas pensé au "=SI(NB.SI......)"
=SI(NB.SI(Récap!G:G;G2)>0;"Existe";"N'existe pas")
Qui fonctionne bien et qui permet de le faire directement.

Merci pour ton aide et le temps que tu m'as accordé,

 

Vote positif 0 Vote négatif