Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trier sur plusieurs mots

cinc

XLDnaute Nouveau
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é

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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é

XLDnaute Barbatruc
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]
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…