Reconnaitre Fin De Mois

[Pat5]

Bonjour le forum aux anciens et aux nouveaux


En cliquant sur le bouton" Extraire Données Journalières" je colle des valeurs à la première colonne vide.
Comment, si la date est le dernier jour du mois de la ligne 2 colonne X , créer un nouvel onglet dont l'intitulé
serait le mois écrit en toutes lettres en récupérant les données du mois.. Merci.

 

[vgendron]

Bonjour

en ajouttant un test quelque part dans ton code

if month(jour+1)<>month(jour) then
'ton code
end if

sachant que faire +1 à une date, c'est ajouter un jour..
donc. si tu changes de mois entre les deux. c'est qu'il s'agissait d'une fin de mois.

 

[pierrejean]

Bonjour Pat5

Ajouter ou cela te convient:

 If Month(Date + 1) <> Month(Date) Then Sheets.Add.Name = Format(Date + 1, "mmmm")

 

[Pat5]

Bonjour
ca ne marche pas car date me donne la date systeme alors que je vais etre amené à avoir par exemple 30/06/2017

 

[pierrejean]

Re
Remplace Date par c=cdate("jj/mm/aaaa") avec jj le jour mm le mois et aaaa l'année

 

[Pat5]

Merci Pierrejean mais je suis nul.

ActiveSheet.Range("K2").End(xlToRight).Select

c = CDate("jj/mm/aaaa")
If Month(c + 1) <> Month(c) Then

Sheets.Add.Name = Format(c + 1, "mmmm")

Ca me dit que c est vide et ca m'efface la cellule sélectionnée ???

merci

 

[pierrejean]

Re
Ou ce situe la date censée être la fin du mois ????

 

[Pat5]

sur la ligne 2 a la derniere colonne remplie. Si lorsque je colle les valeurs, la macro detecte sur la derniere cellule non vide de la ligne 2 que c'est une fin de mois (janvier, aout , etc ) elle me crée une feuille avec le nom du mois

 

[pierrejean]

Re
Alors
dercol = Cells(2, Columns.Count).End(xlToLeft).Column
ladate = CDate(Cells(2, dercol))
If Month(ladate + 1) <> Month(ladate) Then Sheets.Add.Name = Format(ladate + 1, "mmmm")

 

[Pat5]

Pierrejean au top. Un grand merci car ca fait plusieurs jours que je galère avec ces dates dans VBA.
Merci aussi à vgendron pour sa réponse