Somme d'une date et d'une constante

Résolu
Bonjour, je travaille sur un projet client d'hôtel et j'aimerais savoir comment procéder pour obtenir la date départ suivant l'arrivée et le séjour.
Exemple : si mon label correspondant à séjour (textsej) reçoit 14 et que celui d'arrivée est format(now, "ddd.mmm.yyyy"), j'obtiens automatiquement la date de départ par addition.
Merci d'avance

3 réponses

  1. Cells(1, 2).Value = 14
    Cells(1, 3).Value = Now
    
    Dim laDate As Date
    laDate = CDate(Cells(1, 3).Value)
    
    Dim duree As Integer
    duree = CInt(Cells(1, 2).Value)
    
    Dim laFin As Date
    laFin = DateAdd("d", duree, laDate)
    Cells(1, 4).Value = laFin 'n'utilise pas Format, car là on à 03/01/2018, une fois passé en string Excel l'interprète à l'Américaine, et donc affiche 1 mars 2018.
    


    Quand j'étais petit, la mer Morte n'était que malade.
    George Burns
    1
    1. Grand merci pour ton aide précieux ça fonctionne à merveille
      0
  2. Bonjour,
    quel VB?
    • VBS
    • VBA -> précisez:
      • Word
      • Excel
      • Access
      • Powerpoint
      • Autre
    • VB6 (ou antérieur, précisez)
    • VB.Net - précisez la Framework et ->
      • Winform
      • WPF

    0
    1. Merci d'avance pour la précision demandée je m'en excuse. Il s'agit d'un code vba excel 2010. Pour être plus précis : cells(1,2)=14 et cells(1,3)=format(now, "ddd.mmm.yyyy")
      Je veux la somme en format date.
      Remerci d'avance
      0
  3. De rien, pense à marquer le sujet résolu si cela te convient
    0
    1. It's done, thks again
      0