XL 2016 FONCTION RECHERCHE

[mcj1997]

Bonjour,

J'ai une question pour adapter la fonction recherche en PJ.

Merci d'avance,

 

[M12]

Bonjour,
Si j'ai compris

 

[mcj1997]

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

 

[M12]

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

 

[Claudy]

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

 

[mcj1997]

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,

 

[Claudy]

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

 

[mcj1997]

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".

 

[Claudy]

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

 

[M12]

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

 

[job75]

Bonjour à tous,

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

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+

 

[M12]

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"

 

[job75]

@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.

 

[job75]

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.

 

[mcj1997]

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