Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Misange
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 !
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 !
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
Bonjour
Quand la "Maîtresse de maison" réponds on s'incline, on apprécie, on remercie
A bientôt
Rex
"Misange" a écrit dans le message de news: %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 !
Bonjour
Quand la "Maîtresse de maison" réponds
on s'incline, on apprécie, on remercie
A bientôt
Rex
"Misange" <misange@monsiteprefere.net> a écrit dans le message de news:
%23PXB9b%23wJHA.3848@TK2MSFTNGP02.phx.gbl...
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 !
Quand la "Maîtresse de maison" réponds on s'incline, on apprécie, on remercie
A bientôt
Rex
"Misange" a écrit dans le message de news: %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 !
>> 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 -
=(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 <aka...@free.fr> wrote:
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)) ?
> On 23 avr, 09:22, LEPSY <LE...@discussions.microsoft.com> wrote:
>> 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 -
>> 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 -