Trier des lignes dans des feuilles suivant une donnée

Bonjour à tous,

Je réalise actuellement ma base de données sur excel, et après de nombreuses recherches et essaies, je me redirige vers vous afin d'avoir votre avis

Je souhaiterais Trier mes prospects, et les ranger dans différentes feuilles en fonction de leur "ETAT"

Ex: A traiter, Attente de Réponse, ...

Car actuellement les lignes s'accumules, et c'est vraiment compliqué de traiter mes dossiers

J'ai essayer les filtres avancées, mais pas moyen de le faire fonctionner

Auriez vous une solution adapté à mon problème ?

Faudrait-il utiliser des macros ?

Bonne journée à vous

Bonjour,

l'astuce avec un filtre avancé est de se placer sur la feuille de destination avant de l'appeler …

Bonjour

Essayez ce code mais avec la condition suivante :

Le nom de la feuille doit être écrit de la même manière dans la colonne AG

Code :

Sub iCopy()

Dim i As Long, r As Long, Lrr As Long, M As Integer
Dim S As Worksheet
Application.ScreenUpdating = False
M = 3
Lrr = Sheets("BASE").Cells(Rows.Count, "L").End(xlUp).Row
    For r = 2 To Lrr
    For Each S In ThisWorkbook.Sheets
    M = S.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If Sheets("BASE").Cells(r, 33) = S.Name Then
With Sheets("BASE")
.Range("A" & r).Resize(1, 33).Copy
End With
    With S
   .Range("A" & M).PasteSpecial xlPasteValues
            .Columns("A:AG").EntireColumn.AutoFit
            .Rows(2 & ":" & M).EntireColumn.AutoFit
            M = M + 1: End With
        End If
    Next
Next
Application.ScreenUpdating = True

End Sub

Veuillez m'excuser, mais je reste encore novice pour tous ce qui est macro,

Je rentre ses informations dans créer une macro ?

Si je modifie dans une autre feuille l'état, les modifications de feuille seront elles bien prises en compte ?

Merci pour votre réactivité

Merci beaucoup pour ses informations belkacem64 ,

après avoir essayé de nombreuses manipulations, j'ai enfin réussi à réalisé le tri dans les différentes feuilles, grâce à ta formule,

en revanche, il me reste encore un soucis à régler, lorsque je modifie les lignes en fonction de leur "ETAT" ( le critère de tri ) les lignes restent dans la même feuille au lieu de se ranger dans la nouvelles feuille, comment faire pour actualiser le filtre ?

bonjour

Désolé pour le retard

Pour mettre à jour les données , Essayez ce code Je pense qu'il fonctionne correctement

Sub iCopy()

Application.ScreenUpdating = False
Dim r As Long, Lrr As Long, M As Long, MM As Long, S As Worksheet, sh As Worksheet
            For Each sh In ThisWorkbook.Sheets
            MM = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
            If Not sh.Name = "BASE" Then sh.Range("A3:AG" & MM).ClearContents
Next
M = 3
Lrr = Sheets("BASE").Cells(Rows.Count, "L").End(xlUp).Row
    For Each S In ThisWorkbook.Sheets
    For r = 2 To Lrr
    M = S.Cells(Rows.Count, "A").End(xlUp).Row + 1
        If Sheets("BASE").Cells(r, 33) = S.Name Then
            With Sheets("BASE")
        .Range("A" & r).Resize(1, 33).Copy
    End With
With S
.Range("A" & M).PasteSpecial xlPasteValues
M = M + 1: End With
        End If
    Next
Next
Application.ScreenUpdating = True

End Sub

Je viens d'essayer la nouvelle macro, et elle ne fonctionne pas bien,

chaque case sur laquelle on écrit se remplit en noir,

les cellules se trient dans les différentes feuilles, mais ne s'actualisent pas quand on change l'état

Je ne vois vraiment pas d'ou vient le problème,

je me suis renseigné, et j'ai vu que certains utilisent des boutons créés sur la feuille, permettant d'actualiser la feuille.

auriez vous une idée de comment solutionner ce problème, le bouton pour actualiser serait-il une solution ou y-a-t'il plus simple d'utilisation ?

Merci beaucoup pour votre professionnalisme

Sans pouvoir consulter le classeur, je maintiens la solution la plus adaptée est le filtre avancé.

Suffit de consulter les exemples dans les sujets de ce forum via une p'tite recherche !

Sans compter l'aide VBA de la méthode AdvancedFilter …