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

Messages postés
2189
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 octobre 2019
- - Dernière réponse : flexi2202
Messages postés
2189
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 octobre 2019
- 2 nov. 2018 à 22:06
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2187
1
Merci
Bonjour,

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

Dire « Merci » 1

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

CCM 63080 internautes nous ont dit merci ce mois-ci

Commenter la réponse de pijaku
Messages postés
418
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
21 mai 2019
46
0
Merci
Bonjour,
Peut-être en utilisant :
Year(Date)
Commenter la réponse de didibonf
Messages postés
2189
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 octobre 2019
75
0
Merci
bonjour
merci cela fonctionne
madmyke
Messages postés
42813
Date d'inscription
lundi 21 janvier 2008
Statut
Modérateur
Dernière intervention
16 octobre 2019
6819 -
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
flexi2202
Messages postés
2189
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
16 octobre 2019
75 -
bonjour
oui je vais la mettre en resolu
merci pour ce forum
Commenter la réponse de flexi2202