Discussion :

[dido123123]

Bonjour tout le monde,

Je souhaiterai créer une macro qui me permettrai à partir de 2 dates données de me lister toutes les dates fin de mois entre ces 2 dates, je m'explique :
Par exemple date debut : 31/03/2017 date fin : 31/03/2018 et à partir de ces 2 dates de me lister toutes les autres dates fin du moi entre ces dates, c'est à dire 30/04/2017,31/05/2017...

Je vous remercie d'avance

Merci beaucoup

[ShinRyumen]

Bonjour,

Il y a de multiples façons de le faire à mon avis.
Ne connaissant pas votre fichier et sous quelle forme vous voulez lister ces dates, je peux vous dire que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
VotreDate = VotreDate + 1 'Renvoie le jour suivant
NumMois = Month(VotreDate) 'Renvoie le mois de la date

Avec ça vous pouvez créer quelques algorithmes

Cordialement,

Shin

[McLister213]

Salut,

Tu peux le faire sans VBA avec l'outil Segment chronologie avec un tableau de croisé dynamique. C'est un filtre améliorer.

Info : https://support.office.com/fr-fr/art...2-f2105d79dcb5

Par contre il faut que tu aies une version d'Excel de 2013 minimum.

Edit: Tu est plus rapide Menhir

[dido123123]

Salut,

Tu peux le faire sans VBA avec l'outil Segment chronologie avec un tableau de croisé dynamique. C'est un filtre améliorer.

Info : https://support.office.com/fr-fr/art...2-f2105d79dcb5

Par contre il faut que tu aies une version d'Excel de 2013 minimum.

Edit: Tu est plus rapide Menhir

Bonjour,
j'ai besoin d'utiliser une macro car je l'insère dans un autre code.

Merci

[dido123123]

Bonjour,

Il y a de multiples façons de le faire à mon avis.
Ne connaissant pas votre fichier et sous quelle forme vous voulez lister ces dates, je peux vous dire que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
VotreDate = VotreDate + 1 'Renvoie le jour suivant
NumMois = Month(VotreDate) 'Renvoie le mois de la date

Avec ça vous pouvez créer quelques algorithmes

Cordialement,

Shin

Bonjour,
je vous remercie pour votre réponse
Ma date de debut se trouve en cellule B1 et ma date fin en cellule B2 et j'aimerai à partir de la cellule C1 avoir toutes les dates fin de mois entre ces deux dates sans passer par une formule Excel mais une macro
Je vous remercie

[ShinRyumen]

Bonjour,
je vous remercie pour votre réponse
Ma date de debut se trouve en cellule B1 et ma date fin en cellule B2 et j'aimerai à partir de la cellule C1 avoir toutes les dates fin de mois entre ces deux dates sans passer par une formule Excel mais une macro
Je vous remercie

à modifier selon votre code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub dido()
Dim debut As Date, fin As Date
Dim DateTest As Date
Dim ligne As Integer
 
debut = Cells(1, 2)
fin = Cells(2, 2)
 
DateTest = debut
 
ligne = 1
While DateTest <= fin
    If Month(DateTest) <> Month(DateTest - 1) Then
        Cells(ligne, 3) = DateTest - 1
        ligne = ligne + 1
    End If
    DateTest = DateTest + 1
Wend
 
 
End Sub

[Menhir]

Il suffit de faire une boucle sur l'ensemble des lignes et dans laquelle on met un test pour vérifier la date, avec une copie en cas de réponse positive.

Mais, à mon avis, pas besoin de faire une macro pour ça.
Un filtre peut se mettre en place en 2 secondes et faire la même chose.

Au pire, si tu veux copier l'ensemble des lignes concernées pour les mettre à part, tu peux passer par un filtre avancé.
Voir ce tutoriel : http://philippetulliez.developpez.co...dvancedfilter/
Une solution qui, d'ailleurs, peut être aussi mise en place en VBA.