Comment extraire une annee d une date en vba [Résolu/Fermé]

Signaler
Messages postés
2261
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
1 octobre 2020
-
Messages postés
2261
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
1 octobre 2020
-
bonjour a tous

j ai essaye plusieurs choses afin que seul l annee soit affiche dans une cellule
avec le vba

cela fonctionne mais si je note 2018 il traite l info comme un nombre et pas une date
merci de l aide

Dim myDate As Date
myDate = InputBox("entre la date ?")
myDate = DatePart("m", Date) 'extrait le mois de la date courante.
myDate = DatePart("yyyy", Date) 'extrait l'année de la date courante.

MsgBox myDate

3 réponses

Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 494
Bonjour,

Sub demo()
Dim myDate As Date
myDate = InputBox("entre la date ?")
With Range("A1")
   .Value = myDate
   .NumberFormat = "yyyy"
End With
End Sub 

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
69
Bonjour,
Peut-être en utilisant :
Year(Date)
Messages postés
2261
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
1 octobre 2020
111
bonjour
merci cela fonctionne
Messages postés
44904
Date d'inscription
lundi 21 janvier 2008
Statut
Modérateur
Dernière intervention
11 octobre 2020
9 055
Bonjour

Merci d'avoir participé à ce forum.
Il semble que votre problème ai trouvé une réponse.

Si la réponse vous satisfait je vous invite à mettre en résolue, c'est très simple.

Merci de cliquer sur >CE LIEN<


Cordialement
Messages postés
2261
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
1 octobre 2020
111
bonjour
oui je vais la mettre en resolu
merci pour ce forum