Récupérer mois et année d'une cellule date

Résolu

bla -
bla - 28 mai 2015 à 16:48

Bonjour,

J'ai un code vba qui va s'appliquer à partir d'une cellule de mon fichier excel.
Dans cette cellule, l'utilisateur va entrer une date sous la forme "jj/mm/aaaa" et j'aimerai récupérer le mois de cette cellule dans une variable M et l'année dans une variable A afin de faire tourner mon programme en fonction de M et A.

Si quelqu'un sait comment faire je le remercie par avance

Afficher la suite

A voir également:

Excel extraire le mois et l'année d'une date
Récupérer le mois d'une date excel - Meilleures réponses
Vba année d'une date - Meilleures réponses
Extraire une video youtube - Guide
Word et excel gratuit - Guide
Extraire le son d'une vidéo - Guide
Liste déroulante excel - Guide
Déplacer une colonne excel - Guide

5 réponses

Réponse 1 / 5

Excel-worker Messages postés 589 Date d'inscription Statut Membre Dernière intervention 58

Salut,

En VBA, je ne sais pas mais sinon en formule, cela donne :

=TEXTE(A1;"mmmm") pour récupérer le mois
=TEXTE(A1;"aaaa") pour l'année

Cdlt

bla

Oui je sais, d'ailleurs pour le moment je récupère le mois dans une cellule et l'année dans une autre par une formule et j'attribue ces cellules à mes variables M et A.
Ca marche mais j'aurai aimé le faire directement, sans passer par deux cellules intermédiaires.
En tout cas merci pour ton aide

Excel-worker Messages postés 589 Date d'inscription Statut Membre Dernière intervention 58

Ca marche mais j'aurai aimé le faire directement, sans passer par deux cellules intermédiaires.

Euh ... tu as essayé :

=TEXTE(A1;"mmmm")&" "&TEXTE(A1;"aaaa") car là tu concatène et tu passe pas par deux cellules.

Cdlt

Réponse 2 / 5

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

Bonjour,

Dim M As Integer, A As Integer
M = Month(Range("A1").Value)
A = Year(Range("A1").Value)

A+

Réponse 3 / 5

Jeanfrale Messages postés 176 Date d'inscription Statut Membre Dernière intervention 17

Bonjour,

voir cela :
https://www.excel-downloads.com/threads/extraire-la-partie-texte-dune-cellule-en-vba.113921/
En définitive il faut aller chercher avec la fonction Mid je crois les 4eme et 5eme caractère = au mois les mètrent dans une varaiable "m" et ensuite aller chercher les 7-8-9-10 eme caratères de l'année et les mètrent dans une variable "a"

Réponse 4 / 5

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

Bonjour,

Avec la date en A1 :

m = Month(CDate(Range("A1")))
a = Year(CDate(Range("A1")))

Cdlmnt
Via

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

bla

C'est bon ça marche avec la méthode de Via55 et celle de Gyrus.

Merci à tous pour votre aide.

Cordialement,

Discussions similaires

Formule Excel pour afficher les mois (chiffres) en lettre

Connaitre la date d'une photo.

Convertir un mois en chiffre en lettre RESOLU

Conversion cellule avec mois en chiffre en mois en lettre

Votre réponse

Discussions similaires