Calcul date : Calculer une date selon condition

[StefTah]

Bonjour,

Ma période de facturation est du 15 au 14 de chaque mois, donc quand je saisie une date j'aimerais que la date de fin de facturation s'affiche (en fonction de la date saisie c'est soit le 14 du mois en cours soit le 14 du mois suivant).

Exemple :
Si je suis le 02 février, j'aimerais que la date de fin de facturation qui s'affiche soit le 14/02 (période de facturation du 15/01 au 14/02)
Si je suis le 16/02, j'aimerais que la date de fin de facturation qui s'affiche soit le 14/03 (période de facturation du 15/02 au 14/03).

Merci

Stef

 

[Dranreb]

Re : Calcul date : Calculer une date selon condition

Bonsoir.

C'est quelque chose comme ça :

=DATE(ANNEE(A1);MOIS(A1)+(JOUR(A1)>14);14)

 

[Tentative]

Re : Calcul date : Calculer une date selon condition

Bonjour

Une tentative en vba :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DD, MM, YYYY As Integer

On Error Resume Next
MM = Month(Target)
YYYY = Year(Target)

  If Day(Target) <= 14 Then
    DD = 14
  Else
    DD = 14
    MM = MM + 1
    If MM > 12 Then
      MM = 1
      YYYY = YYYY + 1
    End If
  End If
 
Target = CDate(DD & "-" & MM & "-" & YYYY)
  
End Sub

Ouuppsss ... avec une correction au changement d'année


Tentative

 

[StefTah]

Re : Calcul date : Calculer une date selon condition

Merci Dranreb c'est parfait !
Tentative merci également, malheureusement je suis loin d'être une Pro du VBA...