Recherche sur deux colonnes

Bonjour,

Solution éventuelle pour une recherche sur deux colonnes

Cordialement

Bonjour le forum,

F5 :

=SI(LIGNE()-4>NB.SI(B:B;$F$4);"";INDEX(A:A;PETITE.VALEUR(SI(B:B=$F$4;LIGNE(A:A);"");LIGNE()-4)))

Formule matricielle.

A tirer vers le bas.

Bonjour

Avec macro si tu veux:

Sub Rechercher()
lr = 4
With Sheets("Feuil2").Range("B2:B700")
    Set c = .Find(Range("F4"), LookIn:=xlValues)
    If Not c Is Nothing Then
        ad1 = c.Address
        Do
            Cells(lr, 5) = Cells(c.Row, 1)
            lr = lr + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ad1
    End If
End With
End Sub

A insérer dans un module et mettre éventuellement un bouton pour l'exécuter ou se servir de l'évènement change pour automatiser à chaque nouvelle sélection

Bye

Re

Un petit souci, la recherche oubli le premier de la liste

Si, il y a une seule cellule, la recherche ne le trouve pas.

Merci de te pencher sur mon problème

Re

Bravo

Affaire réglée

Merci beaucoup pour ta patience

Cordialement

Bonjour,

sur un code de JB à tester

P.

Salut Patrick

Très beau complément de JB

Un petit souci, lorsqu’il y a qu’un SEUL libellé, il ne le trouve pas (Exemple CADO)

Cordialement.

Bonsoir

Nouveau fichier modifié de Patrick, si je ne me trompe pas :

Beau travail !!!

A +

Bonjour,

Bien, mais je n'arrive pas à reproduire la macro sur le fichier (issu d'une association)

Si possible faire, la recherche sur la colonne "C" et noter les numéros à partir de la colonne "M"

Si cela est trop compliqué, alors on oublie

Cordialement,

Fichier ci-joint

Bonjour,

Si, quelqu’un se dévoue pour me trouver une solution, je dois préciser que la colonne C est issue d’autres onglets

Un libellé par onglet

Onglet 1 : Plage – Osselle

Onglet 2 : APE - Les petits de Fourg

Etc.

Merci

Bonjour,

avant d'aller plus loin, ton ficher contient des erreurs de conception, il faut:

• un titre à CHAQUE colonne et sans doublon
• pas besoin de ligne vide (la 2)
• le total (colonne L) pourra se faire après avec soit sous-total, soit sommeprod, soit TCD, etc etc...

On peut te monter ce qu'est un filtre élaboré

P.

Salut Patrick,

Merci de te pencher sur mon problème,

Je suis nul en informatique (je pense que cela se voit), j’ai récupéré ce fichier en prenant la responsabilité d’une association

Sur ce fichier dans la ligne C se trouvent environ 300 lignes (qui enflent chaque semaine)

Très souvent nous avons besoin de consulter par exemple : Plage d’Osselle afin de récupérer le numéro à gauche qui est un numéro de bordereau de prêt (l’ensemble après impression est groupé dans des classeurs ordonnés numériquement)

J’ai précisé que la colonne C est issue d’autres onglets, ainsi nous ne pouvons pas faire de recherche avec « rechercher sélectionner »

Pour l’instant nous cherchons manuellement c’est galère, et je crois que nous allons continuer, je pense que cela devient trop compliquer pour mon petit cerveau.

Je vais encore consacrer quelque temps pour essayer d’adapter toutes vos idées (proposé avec tant de patience)

Merci

Re,

Re,

Il n'y a rien de compliqué dans les filtres mais ton tableau doit avant tout être bien structuré comme indiqué auparavant

Je vois qu'il y a un lien vers "recherche abonné.xlsm" mais ça n’empêche pas un filtre pour trouver rapidement ton client en colonne C

Le reste de mes remarque (les titres de colonne) reste valable sans qui en cas de tri tu vas moins rire

P.

Re

Le gros souci, les données de cet onglet sont toutes issus d’autres onglets

Alors je n’ose pas trop modifier

Pour l’instant j’essaye sur une copie et ce n’est pas mon truc.

Encore merci

Bobbyfrance a écrit :

Re

Le gros souci, les données de cet onglet sont toutes issus d’autres onglets

Alors je n’ose pas trop modifier

Pour l’instant j’essaye sur une copie et ce n’est pas mon truc.

Encore merci

Voir dans tes messages privés

Re

Désolé même ce que tu me demande, je suis incapable de le faire

Cordialement

Re

Dernière tentative

Par respect pour tous ceux qui ont travaillé, j’insiste encore.

J’ai reconstitué un fichier pas de soucis toutes les données sont fausses donc la confidentialité est respectée

Voir les commentaires en rouge, et flèches

Il y a deux cas, bien sûr un seul suffirait à mon bonheur.

Cordialement,

Re

Encore un oubli

La formule de MBBP ne fonctionne pas

Merci

Bonjour à tous,

mettre cela dans ton bouton rechercher:

Sub Rechercher()
Columns(13).ClearContents
lr = 2
With Sheets("R").Range("B2:B700")
    Set c = .Find(Range("W1"), LookIn:=xlValues)
    If Not c Is Nothing Then
        ad1 = c.Address
        Do
            Cells(lr, 13) = Cells(c.Row, 1)
            lr = lr + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ad1
    End If
End With
End Sub

Bon courage