macro tri mois d'une plage de date

  • Initiateur de la discussion Initiateur de la discussion almas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

almas

XLDnaute Occasionnel
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)
 

Pièces jointes

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
105
Réponses
10
Affichages
174
Retour