Reconnaitre Fin De Mois

vgendron

XLDnaute Barbatruc

• 11 Juillet 2017

• #2

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juillet 2017

• #3

Bonjour Pat5

Ajouter ou cela te convient:

Code:

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

 

Vote positif 0 Vote négatif

Pat5

XLDnaute Junior

• 11 Juillet 2017

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juillet 2017

• #5

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

 

Vote positif 0 Vote négatif

Pat5

XLDnaute Junior

• 11 Juillet 2017

• #6

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juillet 2017

• #7

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

 

Vote positif 0 Vote négatif

Pat5

XLDnaute Junior

• 11 Juillet 2017

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juillet 2017

• #9

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")

 

Vote positif 0 Vote négatif

Pat5

XLDnaute Junior

• 11 Juillet 2017

• #10

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

 

Vote positif 0 Vote négatif