Exporter des données vers un onglet en fonction du mois

Bonjour à tous,

J'ai une base de données avec différents filtres dont le mois. J'aimerai exporter les données correspondant à un certain mois vers un autre onglet dédié à ce même mois.

Ainsi toutes les données "janvier" de la base de données irait directement se ranger dans l'onglet Janvier, de même pour Fevrier et ainsi de suite.

De plus faire en sorte que lorsqu'on rajoute une ligne à cette base, la ligne va également s'ajouter dans l'onglet correspondant au mois.

Merci d'avance pour les conseils.

Je reste dispo pour plus de précisions.

Cordialement,

Geoffroy.

Bonjour

Geoffroy44 a écrit :

je reste dispo pour plus de précisions.

Merci Banzai,

J'ai joint le fichier pour exemple.

Ainsi j'aimerai extraire les données correspondant au mois de janvier vers l'onglet janvier et etc...

Et que ça se fasse automatiquement à chaque fois qu'on rentre une ligne dans la base de données.

J'apprécierai vos conseils.

Bonjour Geoffrey44,

Ci-joint un test.

J'ai rajouté:

=> une seconde colonne Month dans DataBase

=> Un onglet paramètre pour indiqué les mois

Active la macro, il suffit de cliquer sur le bouton présent en onglet Data Base pour qu'Excel enregistre les données de cet onglet dans les onglets adéquats.

Merci beaucoup Greg.

Effectivement la macro fonctionne!

Cependant je fais face à 2 problemes:

Info importante je travaille sur une version d'excel en Anglais.

- J'ai essayé de l'entendre à une data base plus importante et je n'arrive pas activer la macro.

-Egalement lorsque j'appuie sur le bouton une 2eme fois ça me recopie les lignes sans effacer celles déjà existante

Merci pour vos conseils. Je rajoute mon fichier original.

Voici le message d'erreur.

Application.ScreenUpdating = False

Dim Dl As Long

Dim Dm As Long

'Déclaration de la variable 1

Dl = Feuil1.Range("A50000").End(xlUp).Row

For J = 2 To Dl

i = Feuil1.Range("H" & J).Value

Feuil1.Range("A" & J & ":" & "W" & J).Copy

Dm = Worksheets(i).Range("A50000").End(xlUp).Row

Worksheets(i).Range("A" & Dm + 1).PasteSpecial

Application.CutCopyMode = False

Next J

End Sub