XL 2016 FONCTION RECHERCHE

M12

XLDnaute Accro

• 28 Août 2021

• #2

Bonjour,
Si j'ai compris

 

Pièces jointes

• mcj1997.xlsm

  15.1 KB · Affichages: 16

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 28 Août 2021

• #3

C'est bien cela, par contre je ne retrouve pas de formule pour adapter et ainsi que les recherches se fassent sur un tableau plus grand avec plus de lignes et colonnes.
Merci

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 28 Août 2021

• #4

Re,
Il n'y a pas de formule, c'est une macro
Et pour le reste, un classeur exemple serait mieux avec les bonnes demandes dés le départ

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 28 Août 2021

• #5

Bonjour, si j'ai compris, voir pièce jointe, sans macro...
A+
Claudy

 

Pièces jointes

• RECHERCHE LIGNE.xlsx

  10.9 KB · Affichages: 7

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 28 Août 2021

• #6

Merci à vous deux,
Claudy, en A2 je dois pouvoir cherche la recherche sur tous les mots ou chiffres du tableau mais pas seulement sur le nom.
M12, je joins un fichier plus complet que le premier avec la vision globale du besoin,

Merci d'avance,

 

Pièces jointes

• mcj1997.xlsm

  16.1 KB · Affichages: 8

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 28 Août 2021

• #7

Re bonjour,
Pourquoi pas utiliser le filtre tout simplement?
Et faire copier coller.
Claudy

 

Pièces jointes

• mcj1997 (1).xlsm

  15.9 KB · Affichages: 4

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 28 Août 2021

• #8

merci pour le retour mais non car je vais mettre la fonction recherchée (recherche ligne) dans un fichier à part et qui pointera sur un autre fichier "fichier source".

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 28 Août 2021

• #9

Conseil:

Fonction XLOOKUP - Support Microsoft

Utilisez la fonction RECHERCHEX lorsque vous devez rechercher des éléments dans une table ou une plage par ligne. Par exemple, recherchez le prix d'une pièce automobile par le numéro de pièce ou recherchez le nom d'un employé en fonction de son identifiant d'employé. Avec RECHERCHEX, vous pouvez...

support.microsoft.com

Claudy

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 28 Août 2021

• #10

Bonjour à tous
Teste ceci (peut importe le NB de colonnes)
par contre pour les lignes de 4 à 10, si plus de ligne, il faudra modifier la macro

 

Pièces jointes

• mcj1997 (1).xlsm

  16.5 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2021

• #11

Bonjour à tous,

Voyez le fichier joint et cette macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
Dim cible$, ncol%, tablo, i&, j%, n&, k%
If [A2] <> "" Then cible = "*" & UCase([A2]) & "*"
ncol = 6 'à adapter
tablo = Range("A1", [A3].CurrentRegion).Resize(, ncol)
ReDim resu(1 To UBound(tablo), 1 To ncol)
For i = 4 To UBound(tablo)
    For j = 1 To ncol
        If UCase(tablo(i, j)) Like cible Then
            n = n + 1
            For k = 1 To ncol: resu(n, k) = tablo(i, k): Next k
            Exit For
        End If
Next j, i
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A14] '1ère cellule des résultats, à adapter
    If n Then .Resize(n, ncol) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

L'exécution est très rapide même s'il y a beaucoup de lignes car on utilise des tableaux VBA.

A+

 

Pièces jointes

• RECHERCHE LIGNE(1).xlsm

  19.7 KB · Affichages: 19

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 28 Août 2021

• #12

Bonsoir Job
Désolé, mais de mon côté si c'est pour des résultats dans la même feuille, je ne vois la différence
Si tu avais placé la cellule de recherche dans une autre feuille avec ses résultats, OK
Mais là, la résultat arrive sur la ligne 14 donc pas plus de lignes qu'au départ 😉
mais la macro est effectivement bien "rouler"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2021

• #13

@M12 Bien sûr s'il y a beaucoup de lignes il faut mettre les résultats dans une autre feuille.

mcj1997 est "Accro", il devrait pouvoir adapter la macro facilement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2021

• #14

Pour tester j'ai copié le tableau A4:F10 sur 70 000 lignes.

La restitution dans une 2ème feuille se fait chez moi en 0,85 seconde au maximum.

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 28 Août 2021

• #15

Merci à tous je vais effectivement mettre les résultats dans une autre feuille, cf mon poste 8.

 

Vote positif 0 Vote négatif