XL 2010 recherch V à gauche avec plusieurs résultats

B

Backhandshot

XLDnaute Occasionnel

• 15 Février 2022

• #2

Bonsoir à tous !
gservas, avec un petit code VBA 2 solutions
Bonne soirée !

 

Pièces jointes

• Gservas.xlsm

  22.4 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Février 2022

• #3

Bonjour à tous,

Un essai avec power query, pas de formule, pas de code.

JHA

 

Pièces jointes

• recherchv à gauche avec plusieurs résultats.xlsx

  19.5 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2022

• #4

Bonjour gservas, Backhandshot, JHA, le forum,

Une solution VBA avec le filtre automatique, le code de la feuille "résultats" :

VB:

Private Sub Worksheet_Activate()
Worksheet_Change [B3] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
[Tableau2].Delete xlUp 'RAZ
[Tableau1].ListObject.Range.AutoFilter 2, [B3] 'filtre automatique
[Tableau1].Columns(1).Copy [Tableau2].Cells(1) 'copie-colle la 1ère colonne
[Tableau1].ListObject.Range.AutoFilter 'RAZ
End Sub

Il s'exécute quand on modifie ou valide B3 ou qu'on active la feuille.

A+

 

Pièces jointes

• recherche VBA(1).xlsm

  21.5 KB · Affichages: 15

Vote positif 0 Vote négatif

G

gservas

XLDnaute Junior

• 15 Février 2022

• #5

Bonjour à tous
Merci pour vos retours qui fonctionnent trés bien mais je ne maitrise pas le VBA ni power query, c'est pour celà que je cherchai une formule "classique" mais je ne sais pas si elle est réalisable.
Si elle peut se faire je suis preneur.
Merci pour votre aide
GS

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Février 2022

• #6

Bonjour à tous
Une proposition au cas ou...

VB:

=SIERREUR(INDEX(Tableau1[N°];PETITE.VALEUR(SI(Tableau1[nom]=$B$3;LIGNE(Tableau1[nom])-1);LIGNES($1:1)));"")

Cordialement

 

Vote positif 0 Vote négatif

G

gservas

XLDnaute Junior

• 15 Février 2022

• #7

Merci
C'est exactement ce que je cherchais.
Merci à tous pour votre aide.
GS

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Février 2022

• #8

Bonjour à tous,

Sans matricielle, sans colonne supplémentaire, je ne vois pas.
Exemple avec colonne supplémentaire.

JHA

 

Pièces jointes

• recherchv à gauche avec plusieurs résultats bis.xlsx

  21.1 KB · Affichages: 4

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Février 2022

• #9

Bonjour à tous,
@Efgé

C'est une formule matricielle, mais notre ami n'en voulait pas.
Je pense qu'une solution existe sans passer par une formule matricielle et je ne peux pas modifier mon tableau pour éviter le recherch V à gauche.

JHA

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Février 2022

• #10

Re à tous
@JHA
Nous sommes bien d'accord, mais beaucoup confondent "Validation matricielle" et "Formule matricielle" depuis qu'il n'y a plus besoin de CTR+Maj+Entrée dans certaines versions
C'est pour cela que j'avais précisé "Au cas ou..."

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2022

• #11

Une solution par formule sans validation matricielle.

Créez le nom défini matrice =SI(Tableau1[nom]=résultats!$B$3;Tableau1[N°])

Formule normale en A7 =SIERREUR(PETITE.VALEUR(matrice;LIGNE(A1));"")

Bien le bonjour Efgé.

A+

 

Pièces jointes

• recherche formule(1).xlsx

  13.7 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Février 2022

• #12

Pour tester j'ai complété le tableau source A2:B21 sur 10 000 lignes :

- post #4 la macro s'exécute chez moi en 0,2 seconde

- post #11 les formules (3500) se recalculent en 1,7 seconde.

 

Vote positif 0 Vote négatif

G

gservas

XLDnaute Junior

• 16 Février 2022

• #13

Bonsoir
Merci pour votre aide, mais j'ai insérer la formule dans mon fichier mais il y a un bug. Je vais essayer de le régler et je reviendrai vers vous si besoin.
Merci à tous
GS

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Février 2022

• #14

Bonsoir gservas,

gservas à dit:

j'ai insérer la formule dans mon fichier mais il y a un bug

Cliquez pour agrandir...

Quelle formule ? Sur la mienne je ne vois pas de problème.

A+

 

Vote positif 0 Vote négatif

G

gservas

XLDnaute Junior

• 3 Mars 2022

• #15

Bonsoir
Désolé pour ma réponse tardive mais j'ai trouvé la solution, il s'agissait d'une colonne mal renseigné.
Merci pour votre aide
GS

 

Vote positif 0 Vote négatif