Discussion :

[Greenseed]

Bonjour à tous,

je vous sollicite en ce dimanche pluvieux après avoir passé plusieurs heures sur des forums. Je cherche à trier automatiquement une plage de valeurs en fonction du critère "contient".

Si par exemple les valeurs de ma colonne A contiennent "poire", je veux copier ces valeurs (+les valeurs associées en colonne B et C), et les reporter dans un autre onglet Résultat. Ensuite, même opération pour les valeurs contenant "banane", et ainsi de suite.

En fait, comme je connais le nombre de critères "contient" à renseigner (on va dire ici qu'il n'y en a que trois: poire, banane, tomate), je pourrais écrire les opérations à la suite mais ça ne me semble pas optimisé et je suis presque sûre qu'on peut faire une boucle -mais comment ? je débute totalement en VBA mais j'aimerais m'améliorer ..

F3:F5 feuille "Valeurs" ce sont les critères servant à trier les valeurs en colonne A à C. "Résultats", c'est là où je recopie les valeurs concernées (il faudrait que je puisse faire un décalage avec offset pour ne pas tout recopier au même endroit)


Voilà dites-moi si c'est confus... Je joins mon fichier avec mon début de macro, et j'attends impatiemment toutes vos remarques

Merci beaucoup !

[Marc-L]

Bonjour,

déjà sans boucle via un filtre ou encore un filtre avancé …

Rappel :

Important : Fichiers joints dans les discussions

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Greenseed]

"déjà sans boucle via un filtre"? Cela signifie que ma demande de base est impossible ?

[Greenseed]

A vrai dire je suis en train d'essayer le filtre avancé mais ça m'embrouille encore plus ^^ je ne sais pas comment lui faire comprendre qu'il doit travailler sur chaque critère l'un après l'autre...

[Philippe Tulliez]

Bonjour,

A vrai dire je suis en train d'essayer le filtre avancé mais ça m'embrouille encore plus ^^ je ne sais pas comment lui faire comprendre qu'il doit travailler sur chaque critère l'un après l'autre...

Ce que tu veux faire est donc de placer sur plusieurs onglets suivant critères soit un onglet avec les lignes dont les cellules de la colonne A contiennent Poire et ensuite banane, etc.
La fonction permettant de savoir si une cellule contient un mot est CHERCHE ou TROUVE. L'une est sensible à la casse, l'autre pas.
Le critère a utiliser est donc un critère nommé (ou calculé) et il faut donc préparer une boucle juste pour le critère et appliquer ensuite le filtre avancé d'excel

Exemple du critère calculé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ESTNUM(CHERCHE("poire";A)

Tu peux t'inspirer de ce lien qui exporte dans une feuille séparée une liste de données ayant en colonne A le nom de différents services d'une entreprise et dans les autres colonnes d'autres données. L'idée est d'envoyer un classeur contenant une feuille à chacun des services concernés avec les données qui lui sont propres

[Marc-L]

"déjà sans boucle via un filtre"? Cela signifie que ma demande de base est impossible ?

Non, cela signifie juste la boucle est inutile via Excel et ce, même en VBA.
(Et au passage je ne vois pas de rapport avec le tri évoqué dès le titre et la présentation de cette discussion,
 un tri n'ayant jamais besoin de boucle …)

A moins que la destination soit différente entre chaque produit,
dans ce cas voici un exemple via un simple filtre (et non un tri) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
         Feuil2.UsedRange.Clear
    With Feuil1.Cells(1).CurrentRegion
        For R& = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
            .Columns(1).AutoFilter 1, "*" & .Cells(R, 6).Value & "*"
            .Copy Feuil2.Cells(1 + 4 * (R - 2))
        Next
            .Columns(1).AutoFilter
    End With
End Sub

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …