Comment extraire une annee d une date en vba

Résolu
flexi2202 Messages postés 4141 Statut Membre -  
flexi2202 Messages postés 4141 Statut Membre -
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

didibonf Messages postés 439 Statut Membre 96
 
Bonjour,
Peut-être en utilisant :
Year(Date)
1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

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

1
flexi2202 Messages postés 4141 Statut Membre 190
 
bonjour
merci cela fonctionne
0
madmyke Messages postés 60718 Statut Modérateur 12 248
 
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
0
flexi2202 Messages postés 4141 Statut Membre 190
 
bonjour
oui je vais la mettre en resolu
merci pour ce forum
0