recherche

[Momo44]

Bonjour a toutes et tous

Encore une fois je ne sais pas si je poste au bon endroit
mais apres plusieurs heures de recherche sur le forum qui non rien données je me decide a vous faire part de ma demande . je voudrais recherché la plus grande valeur d'un colonne (c'est fait) et que il me note le contenu d'une cellule se trouvant sur la meme ligne mais dans une colonne plus a gauche. je m'exprime peut etre mal mais je pense que avec le fichier joint vous me comprendrez.

je vous remerci d'avance.

 

[Eric 45]

Re : recherche

Bonjour à tous
Bonjour momo44

Avec cette formule :

=INDEX(A4:I10;EQUIV(A1;I4:I10;1);1)

Cette formule doit être tapée sous forme matricielle : CTRL+MAJ+ENTREE

Eric

 

[Momo44]

Re : recherche

Merci eric 45 cette formule marche a merveille.

bonne journée a toi et a tout le forum.

 

[LPandre]

Re : recherche

Bonjour, autre proposition (très proche de celle d'Eric 45) qui libère la cellule A1 :


=INDEX(A4:I10;EQUIV(MAX(I4:I10);I4:I10;1);1)


Cordialement

 

[Momo44]

Re : recherche

finalement elles ne fonctionne que sur les 2 dernier prénoms

 

[LPandre]

Re : recherche

Re

Que ce soit celle d'Eric ou la mienne elles fonctionnent correctement chez moi.

Voici ton fichier avec la formule ( en matricielle !)

Tiens nous au courant

 

[LPandre]

Re : recherche

Re :

Bon sang t'as raison !!????


Alors là...

 

[Eric 45]

Re : recherche

Bonjour à tous
Bonjour momo44, LPandre

Tout à fait exact LPandre.
Je préfère dans certain cas la fonction GRANDE.VALEUR car elle donne la "fourchette des rangs" ce qui peut être plus intéressant que MAX (enfin c'est ce que je pense).

Eric

PS : avec un peu de retard

 

[Momo44]

Re : recherche

je viens de faire un essai avec ton fichier et quand je tape 30 en i4 il me met jimmy au lieu de john

 

[LPandre]

Re : recherche

Re

oui comme indiqué ds mon mail précédent ça marche pas !

J'ai récupéré les infos de A en colonne j pour permettre la rechercheV

C'est du "bricoloage" mais j'ai pas mieux (vu mes limites très vites atteintes).


Cordialement



Ps: Eric effectivement selon les cas, Grande.valeur peut être plus adaptée.

 

[patte d'ours]

Re : recherche

En B1 tu tapes :

=INDIRECT(ADRESSE(EQUIV(A1;i:i;0);1))

voici les arguments de la fonction EQUIV, de manière plus lisible ( ne pas taper les espaces lors de la saisie de la formule)
EQUIV( A1 ; i : i ; 0 )

traduction :

EQUIV recherche la position de la valeur portée en A1 sur l’ensemble de la colonne I, ce qui permet de rajouter des lignes sans avoir à modifier la formule

ADRESSE : transforme une valeur de ligne et de colonne En l’occurrence 1 pour la 1ère ) en une adresse de cellule.

INDIRECT : renvoie la valeur contenue dans la cellule correspondant à ADRESSE.


ATTENTION : d’autres formules sont utilisables. Par contre, en cas d’ex aequo, ce sera toujours le même qui sera sélectionné.

 

[Eric 45]

Re : recherche

Bonjour à tous

Dans ma formule, il y a un "bug", la voici corrigée :

=INDEX(A4:I10;EQUIV(GRANDE.VALEUR(A4:I10;1);I4:I10;[COLOR=Red]0[/COLOR]);1)

La formule de patte d'ours est tout aussi intéressante, mais pour libérer la cellule A1, il faut remplacer "A1" par grande.valeur

Eric

 

[LPandre]

Re : recherche

Re :

Je ne suis pas le créateur de ce fil, mais je fais "miennes" les propositions d'Eric et de Patte d'Ours.

 

[Momo44]

Re : recherche

Vos formules fonctionnent mais pour lee ex-equo il y aurait il pas une solution vue que je compte remettre la formule en b2.

je sais je suis en peut exigent mais j'ai tellement besoin de cette formule.
je vous remerci tous dejas pour l'avancement.

 

[Eric 45]

Re : recherche

Bonjour à tous

Je pense qu'il ne reste plus qu'à passer par une petite macro de ce genre :

Sub trouve()
Range("B2").Delete
num_ref = Range("a1").Value
With Worksheets("Feuil1").Range("I4:I10")
    Set c = .Find(num_ref, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ligne = c.Row
            lenom = Range("A" & ligne).Value
            If Range("B2") = "" Then
                Range("B2") = lenom
            Else
                Range("B2") = Range("B2") & " / " & lenom
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Eric