Trier sur plusieurs mots

[cinc]

Hello i'm a neebies 🙂

Bon je suis venu il y a kk mois et on avait trouvé ma soluce en deux deux, donc je reviens vous êtes tellement rapide et efficasse 😛
Bon la lêche étant fini place a ma question:

J'ai un fichier EX (jusque la...), avec plusieurs lignes/colones.
Je veux trier par colone, sur un bout de phrase (ex: polo<10 héhé),
récupérer les lignes correspondantes et les réécrire dans une nouvelles feuilles.

Si vous avez des idées merci d'avance :silly:

Cinc

 

[andré]

Salut,

Pourrais-tu quelque peu préciser ta question :

Les bouts de phrase peuvent-ils se trouver dans plusieurs colonnes, et dès lors trier toutes les lignes contenant ces bouts de phrase ?

'polo<10 héhé' est-il un bout de phrase ou deux bouts de phrase, d'une part 'polo<10', d'autre part 'héhé' ?

A première vue, en créant une colonne supplémentaire qui repère les lignes répondant à tes critères, trier cette colonne avec copie vers une autre feuille me semble une solution.

Si tu mets un petit extrait de ton fichier en pièce jointe il sera plus facile de te suggérer une procédure.

Ândré.

 

[cinc]

Ben en fait je voudrais faire un tri sur le bout de phrase
'derniere relance (0€ depuis + 6mois' excatement, car avant et aprés y a du texte, et on ne retrouvera ce bout de phrase nulle par allieurs.

Je veux rechercher ce bout de phrase dans la colone REMARQUE
récupérer toutes les lignes qui auraient ce critère
écrire un nouveau tableau avec toutes ces lignes.

Merci d'avance

Cinc

Message édité par: cinc, à: 03/06/2005 11:58

 

[cinc]

j'arrives po à envoyer le fichier joint

 

[andré]

Resalut,

Pour les pièces jointes : zippées, max. 50Ko, pas d'espaces ni d'accents ni de signes spéciaux dans le nom de l'onglet.

Si cela ne va pas envoie-moi ton fichier en direct : lindenhof@opticall.be

Ândré.

 

[cinc]

RE
Ben je fais ça pour le moment

Dim i As Integer
i = InputBox('Entrez le nombre de ligne')
j = 1
Do
Cells.Find(What:='derniere relance (0€ depuis + 6mois)', After:=ActiveCell _
, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 2) = '&'
j = j + 1
Loop Until j = i

Du coup on entre le nombre de ligne a la main et hop...c partit!!

Merci bc a André 😉
Mais si kelkun a la soluce pour parcourir toute la feuille je suis preneur!

 

[andré]

Salut,

Voici en pièce jointe la solution à laquelle on est arrivé avec Cinc.
Au cas o&ugrave; cela pourrait en intéresser d'autres.

Quant a une solution par macro, je dois jeter l'éponge.
Alors le petit exemple pourra peut-être vous aider à aider Cinc (lol).

Ândré. [file name=cincV3.zip size=3766]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/cincV3.zip[/file]