Recherche et revoi une table

Le
LEPSY
Bonjour,

Sur Excel, existe t-il une fonction permettant de faire une recherche qui ne
renvoi pas une seule valeur mais une table complète ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Misange
Le #19172651
LEPSY a écrit :
Bonjour,

Sur Excel, existe t-il une fonction permettant de faire une recherche qui ne
renvoi pas une seule valeur mais une table complète ?


bonjour

Vite fait :

Sub mesvaleurs()
Dim valeurstrouvées()

i=6 'à adapter, tu mets ici ce que tu cherches comme valeur
With Sheets("test").Range("A2:A11") 'à adapter aussi
Set m = .Find(i, LookIn:=xlValues)
If m Is Nothing Then
MsgBox ("pas trouvé")
Else
vt = 0
firstrow = m.Row 'ou m.address
Do

ReDim Preserve valeurstrouvées(0 To vt)
valeurtrouvées(vt) = m.Row 'ou m.address
Set m = .FindNext(m)
vt = vt + 1
Loop While Not m Is Nothing And m.Row <> firstrow
End If
End With

For a = 0 To UBound(valeurstrouvées)
MsgBox (valeurstrouvées(a))
Next a

End Sub


--
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !
rthompson
Le #19172771
Bonjour

Quand la "Maîtresse de maison" réponds
on s'incline, on apprécie, on remercie


A bientôt

Rex


"Misange" %23PXB9b%
LEPSY a écrit :
Bonjour,

Sur Excel, existe t-il une fonction permettant de faire une recherche qui
ne renvoi pas une seule valeur mais une table complète ?


bonjour

Vite fait :

Sub mesvaleurs()
Dim valeurstrouvées()

i=6 'à adapter, tu mets ici ce que tu cherches comme valeur
With Sheets("test").Range("A2:A11") 'à adapter aussi
Set m = .Find(i, LookIn:=xlValues)
If m Is Nothing Then
MsgBox ("pas trouvé")
Else
vt = 0
firstrow = m.Row 'ou m.address
Do

ReDim Preserve valeurstrouvées(0 To vt)
valeurtrouvées(vt) = m.Row 'ou m.address
Set m = .FindNext(m)
vt = vt + 1
Loop While Not m Is Nothing And m.Row <> firstrow
End If
End With

For a = 0 To UBound(valeurstrouvées)
MsgBox (valeurstrouvées(a))
Next a

End Sub


--
Misange migrateuse
http://www.excelabo.net : Participez à un travail collaboratif sur excel !


JB
Le #19172761
Bonjour,

http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeCond

JB
http://boisgontierjacques.free.fr/


On 23 avr, 09:22, LEPSY
Bonjour,

Sur Excel, existe t-il une fonction permettant de faire une recherche qui ne
renvoi pas une seule valeur mais une table complète ?


Grandola
Le #19173391
Bonjour JB,

Je suis un peu hors sujet là mais j'en profite pour te poser une
question après avoir consulter ton site.

A quoi correspond le "1" dans la fonction matricielle:
=INDEX(nom;EQUIV(************** 1
******************;(Club=H2)*(Cat=I2)*(temps=H6);0)) ?

Merci.

------------------------------------


JB a écrit :
Bonjour,

http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeCond

JB
http://boisgontierjacques.free.fr/


On 23 avr, 09:22, LEPSY
Bonjour,

Sur Excel, existe t-il une fonction permettant de faire une recherche qui ne
renvoi pas une seule valeur mais une table complète ?





JB
Le #19174191
=(Club=H2)*(Cat=I2)*(temps=H6) renvoie un vecteur contenant 0 et 1

Equiv(1,... ) donne la position de 1 dans ce vecteur

http://cjoint.com/?ezcGDW2Jvn

JB

On 23 avr, 11:10, Grandola
Bonjour JB,

Je suis un peu hors sujet là mais j'en profite pour te poser une
question après avoir consulter ton site.

A quoi correspond le "1" dans la fonction matricielle:
=INDEX(nom;EQUIV(************** 1
******************;(Club=H2)*(Cat=I2)*(temps=H6);0)) ?

Merci.

------------------------------------

JB a écrit :



> Bonjour,

>http://boisgontierjacques.free.fr/pages_site/sommeprod.htm#ListeCond

> JB
>http://boisgontierjacques.free.fr/

> On 23 avr, 09:22, LEPSY >> Bonjour,

>> Sur Excel, existe t-il une fonction permettant de faire une recherche qui ne
>> renvoi pas une seule valeur mais une table complète ?- Masquer le te xte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme