[VBA] Retraitement base de données

Bonjour tout le monde,

Je suis actuellement confronté à un problème de programmation. En effet, je dois automatiser le retraitement d'une balance comptable effectué chaque mois.

L'objectif étant de filtrer sur la colonne M, les libellés un par un, et de copier le rendu sur un nouvel onglet appelé du nom du retraitement. Ainsi, si je filtre sur ACHAT, j'aimerai coller la totalité des données filtrées sur un nouvel onglet appelé ACHAT. Et ainsi de suite pour chacun des libellés se trouvant dans la colonne M.

Malheureusement, ma méconnaissance de VBA ne me permet pas d'atteindre cet objectif. J'ai bien essayé en enregistrant une macro de réaliser cette prouesse. En vain. C'est pourquoi je me tourne vers vous pour que vous me donniez un petit coup de main.

Si vous souhaitez plus d'informations, n'hésitez pas à venir vers moi. Je vous transmets le fichier avec la base de données.

En vous remerciant d'avance.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

C'est absolument merveilleux !

Je vais essayer de comprendre le code, ça peut-être intéressant à savoir.

Merci beaucoup en tout cas !!

Bonjour,

voilà,

Sub test()
'activer la référence "Microsoft Scripting Runtime"
Dim Dico As New Scripting.Dictionary
Dim sh1, LastRw1 As Long, i As Long, y As Long, x As String
Set sh1 = Sheets("Sheet1")

LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To LastRw1
    Cle = Range("M" & i)
    If Not Dico.Exists(Cle) Then Dico.Add Cle, Valeur
Next
For y = LBound(Dico.keys) To UBound(Dico.keys)
 x = Dico.keys(y)
 sh1.Range("A1").AutoFilter field:=13, Criteria1:=x
 Sheets.Add after:=Sheets(Sheets.Count)
 ActiveSheet.Name = x
 sh1.Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy Sheets(x).Range("A1")
 sh1.Activate
 sh1.Range("A1").AutoFilter
Next
End Sub

Merci sabV, je vais également regarder ta solution en détail !

En tout cas, merci à vous deux, vous me faciliter énormément de choses !!!!