OVH Cloud OVH Cloud

INDEX / EQUIV

10 réponses
Avatar
Crel
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche qui
me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick

10 réponses

Avatar
Bourby
bonjour,

je ne sais pas si j'ai bien compris.
Mettons que ta feuille contenant les valeurs s'appelle Base de Données;
dans ton autre feuille:
en E1: =EQUIV("X";'Base De Données'!E:E;0)
en E2: á+EQUIV("X";INDIRECT("'Base De Données'!E"&E1+1&":E10000");0)
( à recopier en dessous)

en D1: =INDEX('Base De Données'!D:D;Feuil1!E2) (idem pour A1, B1, C1, )
( à recopier en dessous)

Voilà.
Remarques: sensible à la casse x <>X.
Ajouter des tests si les valeurs d'erreur renvoyées lorsqu'il netrouve plus
de x
te gênent.

Est-ce que ça convient?

Cordialement

Bourby

"Crel" a écrit dans le message news:
Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick






Avatar
ru-th
Salut Crel

par macro
Sub Test()
[a1].AutoFilter Field:=5, Criteria1:="X"
Range("A2:D" &
[A65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
[a1].AutoFilter
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de news:
Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick






Avatar
Crel
Salut Bourby, merci beaucoup, je teste et te contact.
Patrick

"Bourby" a écrit dans le message de news:

bonjour,

je ne sais pas si j'ai bien compris.
Mettons que ta feuille contenant les valeurs s'appelle Base de Données;
dans ton autre feuille:
en E1: =EQUIV("X";'Base De Données'!E:E;0)
en E2: á+EQUIV("X";INDIRECT("'Base De
Données'!E"&E1+1&":E10000");0)

( à recopier en dessous)

en D1: =INDEX('Base De Données'!D:D;Feuil1!E2) (idem pour A1, B1,
C1, )

( à recopier en dessous)

Voilà.
Remarques: sensible à la casse x <>X.
Ajouter des tests si les valeurs d'erreur renvoyées lorsqu'il netrouve
plus

de x
te gênent.

Est-ce que ça convient?

Cordialement

Bourby

"Crel" a écrit dans le message news:
Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick










Avatar
Crel
Salut Ruth,
Je teste et te contact.
Patrick

"ru-th" a écrit dans le message de news:

Salut Crel

par macro
Sub Test()
[a1].AutoFilter Field:=5, Criteria1:="X"
Range("A2:D" &
[A65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
[a1].AutoFilter
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick










Avatar
Crel
Mille merci Ruth j'ai fait quelques modifs, cela fonctionne parfaitement.
C'est extra.
Patrick


"ru-th" a écrit dans le message de news:

Salut Crel

par macro
Sub Test()
[a1].AutoFilter Field:=5, Criteria1:="X"
Range("A2:D" &
[A65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
[a1].AutoFilter
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Crel" a écrit dans le message de
news:

Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick










Avatar
Crel
Merci beaucoup Bourby, je conserve ta formule, et en l'analysant, j'y ai
beaucoup appris.
Patrick

"Bourby" a écrit dans le message de news:

bonjour,

je ne sais pas si j'ai bien compris.
Mettons que ta feuille contenant les valeurs s'appelle Base de Données;
dans ton autre feuille:
en E1: =EQUIV("X";'Base De Données'!E:E;0)
en E2: á+EQUIV("X";INDIRECT("'Base De
Données'!E"&E1+1&":E10000");0)

( à recopier en dessous)

en D1: =INDEX('Base De Données'!D:D;Feuil1!E2) (idem pour A1, B1,
C1, )

( à recopier en dessous)

Voilà.
Remarques: sensible à la casse x <>X.
Ajouter des tests si les valeurs d'erreur renvoyées lorsqu'il netrouve
plus

de x
te gênent.

Est-ce que ça convient?

Cordialement

Bourby

"Crel" a écrit dans le message news:
Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick










Avatar
boblebob
salut,
sans macro faire un tri (regroupement des X) puis copier-coller

--
a+
bob
-------
(retirer nospam-00-)
"Crel" a écrit dans le message de
news:Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick






Avatar
Crel
Salut, en fait c'est quasiment cela.
Patrick

"boblebob" a écrit dans le message de news:

salut,
sans macro faire un tri (regroupement des X) puis copier-coller

--
a+
bob
-------
(retirer nospam-00-)
"Crel" a écrit dans le message de
news:Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de recherche
qui

me trouve toutes les lignes avec des X et me les mets à la suite (ligne
après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick










Avatar
Bourby
bonjour,

en relisant la formule, je vois que l'enregistrement de mes manips à la
souris avait généré un Feuil1! inutile;
il suffit de:
en D1: =INDEX('Base De Données'!D:D;E2)

Bon week-end

Bourby

"Crel" a écrit dans le message news:

Merci beaucoup Bourby, je conserve ta formule, et en l'analysant, j'y ai
beaucoup appris.
Patrick

"Bourby" a écrit dans le message de news:

bonjour,

je ne sais pas si j'ai bien compris.
Mettons que ta feuille contenant les valeurs s'appelle Base de Données;
dans ton autre feuille:
en E1: =EQUIV("X";'Base De Données'!E:E;0)
en E2: á+EQUIV("X";INDIRECT("'Base De
Données'!E"&E1+1&":E10000");0)

( à recopier en dessous)

en D1: =INDEX('Base De Données'!D:D;Feuil1!E2) (idem pour A1, B1,
C1, )

( à recopier en dessous)

Voilà.
Remarques: sensible à la casse x <>X.
Ajouter des tests si les valeurs d'erreur renvoyées lorsqu'il netrouve
plus

de x
te gênent.

Est-ce que ça convient?

Cordialement

Bourby

"Crel" a écrit dans le message
news:


Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de
recherche



qui
me trouve toutes les lignes avec des X et me les mets à la suite
(ligne



après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick














Avatar
Crel
Merci beaucoup
Patrick

"Bourby" a écrit dans le message de news:

bonjour,

en relisant la formule, je vois que l'enregistrement de mes manips à la
souris avait généré un Feuil1! inutile;
il suffit de:
en D1: =INDEX('Base De Données'!D:D;E2)

Bon week-end

Bourby

"Crel" a écrit dans le message news:

Merci beaucoup Bourby, je conserve ta formule, et en l'analysant, j'y ai
beaucoup appris.
Patrick

"Bourby" a écrit dans le message de news:

bonjour,

je ne sais pas si j'ai bien compris.
Mettons que ta feuille contenant les valeurs s'appelle Base de
Données;



dans ton autre feuille:
en E1: =EQUIV("X";'Base De Données'!E:E;0)
en E2: á+EQUIV("X";INDIRECT("'Base De
Données'!E"&E1+1&":E10000");0)

( à recopier en dessous)

en D1: =INDEX('Base De Données'!D:D;Feuil1!E2) (idem pour A1, B1,
C1, )

( à recopier en dessous)

Voilà.
Remarques: sensible à la casse x <>X.
Ajouter des tests si les valeurs d'erreur renvoyées lorsqu'il netrouve
plus

de x
te gênent.

Est-ce que ça convient?

Cordialement

Bourby

"Crel" a écrit dans le message
news:


Om1k5$
Bonsoir à toutes et tous.
J'ai un tableau de A à E
J'ai des X de la colonne E, J'essaye de créer une fonction de
recherche



qui
me trouve toutes les lignes avec des X et me les mets à la suite
(ligne



après ligne), dans une autre feuille est-ce possible ?
Merci beaucoup.
Patrick