Problème de date(VB)
Résolu/Fermé
majdolina
Messages postés
51
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
3 juillet 2009
-
5 mars 2009 à 20:30
majdolina Messages postés 51 Date d'inscription dimanche 2 décembre 2007 Statut Membre Dernière intervention 3 juillet 2009 - 8 mars 2009 à 02:45
majdolina Messages postés 51 Date d'inscription dimanche 2 décembre 2007 Statut Membre Dernière intervention 3 juillet 2009 - 8 mars 2009 à 02:45
A voir également:
- Problème de date(VB)
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Trouver une date de naissance gratuit - Forum Webmastering
- Airpods 3 date de sortie - Guide
- Passé cette date - Forum Logiciels
2 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
5 mars 2009 à 22:25
5 mars 2009 à 22:25
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+
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+
majdolina
Messages postés
51
Date d'inscription
dimanche 2 décembre 2007
Statut
Membre
Dernière intervention
3 juillet 2009
8 mars 2009 à 02:45
8 mars 2009 à 02:45
Merci beaucoup Mike!