Problème de date(VB)

Résolu
majdolina Messages postés 60 Statut Membre -  
majdolina Messages postés 60 Statut Membre -
Salut,
je veux ajouter un an à une date donnée comment je peux le faire svp?y a t il une fonction qui le fait?
Configuration: Windows XP
Firefox 3.0.6

2 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Salut,

    Tout simplement avec une formule, si tu as ta date en A1

    =DATE(ANNEE(A1)+1;MOIS(A1);JOUR(A1))

    pour plus de souplesse si ta date est en A1 et en B1 la valeur à ajouter à ta date

    =DATE(ANNEE(A1)+B1;MOIS(A1);JOUR(A1))

    En VBA

    Sub test()
    Range("A2") = DateAdd("yyyy", 1, Range("A1"))
    End Sub

    si la valeur à ajouter est toujours en B1

    Sub test()
    Range("A2") = DateAdd("yyyy", Range("B1"), Range("A1"))
    End Sub

    A+
    0
  2. majdolina Messages postés 60 Statut Membre
     
    Merci beaucoup Mike!
    0