Comment extraire une annee d une date en vba

Résolu

flexi2202 Messages postés 3640 Date d'inscription Statut Membre Dernière intervention -
flexi2202 Messages postés 3640 Date d'inscription Statut Membre Dernière intervention - 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

Réponse 1 / 3
didibonf Messages postés 418 Date d'inscription Statut Membre Dernière intervention 96

Bonjour,
Peut-être en utilisant :
Year(Date)
1

pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773

Bonjour,

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

Réponse 3 / 3
flexi2202 Messages postés 3640 Date d'inscription Statut Membre Dernière intervention 190

bonjour
merci cela fonctionne
1
1. madmyke Messages postés 52304 Date d'inscription Statut Modérateur Dernière intervention 12 485
  
  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
2. flexi2202 Messages postés 3640 Date d'inscription Statut Membre Dernière intervention 190
  
  bonjour
  oui je vais la mettre en resolu
  merci pour ce forum
  
  0

Comment extraire une annee d une date en vba

3 réponses

Discussions similaires

Newsletters