macro tri mois d'une plage de date

[almas]

Bonjour le forum

j 'ai adapté un code à un de mes projets qui consiste à trier par mois une base de donnée avec une date de début et une date de fin
ca marche nikel......sauf quand la date de début n'a pas le même mois que celle de fin

il faut que je rajoute une fonction "ou" dans mon code et sans faire de doublon

ex: titre 12/01/2017 10/02/2017

je doit retrouver titre dans l onglet janvier et aussi dans l'onglet février et sans qu 'il soit 2 fois en janvier
et je n 'y arrive pas en VBA

je vous joint un fichier test ( le code s 'active quand on actualise la cellule A1 de chaque onglet par la liste)

 

[vgendron]

le second code permet de ne PAS supprimer la ligne de titre quand il n'y a rien à effacer dans le mois..

 

[almas]

ok par contre j 'ai rajouter 2 colonnes en modifiant le code mais l 'effacement marche pas sur les 2 que j 'ai rajouter
pourtant j 'ai bien mis "E" au lieux de "C"

j 'ai merdé ou?

For Each ws In Worksheets 'on efface les différentes feuilles
If ws.Name <> "Liste_manif" Then
With ws
If .Range("A" & .Rows.Count).End(xlUp).Row <> 6 Then
.Range("A7:E" & .Range("A" & .Rows.Count).End(xlUp).Row).ClearContents
End If
End With
End If
Next ws

non en fait c 'est bien toute les colonne qui marche pas
il réecrit a la 1ere celule vide sans effacer

du cout j 'ai fait ca et ca marche
For Each ws In Worksheets 'on efface les différentes feuilles
If ws.Name <> "Liste_manif" Then
With ws
If .Range("A" & .Rows.Count).End(xlUp).Row <> 6 Then
.Range("A7:E2000").ClearContents
End If
End With
End If
Next ws