Obtenir un mois à partir d'une date

Bonjour à tous et à toutes,

Je viens à vous car je n’ai jamais manipulé de dates !!! et oui, et oui… lol
J’ai dans une de mes pages Excel, un tableau sur plusieurs lignes dans la colonne D (par exemple) contient des dates (ces dates sont mises automatiquement par une macro).

Ah oui, je n’ai jamais manipulé de dates… dans un sens oui car j’ai juste demandé à mon ami Excel de me les mettre ! :-p

Ce que j’aimerai faire, ce qu’une macro lise la fameuse colonne D (la date 16/05/2010 par exemple) et m’inscrive dans la colonne E le mois correspondant à cette date.

Merci d’avance pour votre aide.

Une simple recopie dans une colonne au format personnalisé "mmmm" t'affichera le mois correspondant.

.

Bonsoir

Toujours un peu de lecture avec de bonnes informations sur les fonctions date

Initiation au VBA Office

regarde particulièrement datepart

Bonjour

Citation:

---

et m’inscrive dans la colonne E le mois correspondant à cette date.

---

sous quelle forme ? numéro ou texte ?

vois ainsi :

Code:

---

1 2	MsgBox MonthName(Month(ActiveCell)) MsgBox Month(ActiveCell)

---

cordialement,

Didier

Bonjour,

Tout d'abord merci pour vos réponses.
Je viens de tester plusieurs manip (sans succès :cry:)...

Pour reprendre depuis le début,
j'ai un tableau sous excel, rien de plus basique jusque là. Ce tableau est rempli par l'intermédiaire d'une Userform qui contient un certain nombre d'infos contenues dans des textbox.
Ma userform contient une liste, dès le choix effectué parmis les éléments de cette liste, les différentes textbox viennent se remplir. Les infos de ces textbox sont alors retranscrit dans mon tableau basique.
Parmi ces texbox, une d'entre elle indique la date ou la ligne a été générée:

Code:

---

TextBox6 = "" & Date

---

Cette information est retranscrit dans mon tableau de cette manière:

Code:

---

Cel3.Offset(compteur, 9).Value = TextBox6 'date

---

J'ai essayé ceci mais cela ne fonctionne pas:

Code:

---

1 2	Cel3.Offset(compteur, 9).Value = TextBox6 'date Cel3.Offset(compteur, 10).Value = Format(Month(Cel3.Offset(compteur, 9).Value))

---

Et... me voila parmi vous! :aie:
Si vous avez d'autres pistes, je suis preneur! :ccool:

Merci

Salut.

Il faut te méfier des valeurs des textbox qui sont des dates.

La valeur d'un textbox est interprétée par Excel lors de son envoi dans une cellule. Lorsque c'est une date, Excel a tendance à considérer qu'elle a été saisie dans le textbox au format anglais (mm/dd/yyyy), ce qui pose évidemment problème.

Dès lors, je préfère considérer que la saisie du textbox correspond à du texte, et je recompose alors la date à passer dans la cellule avec DateSerial(Année, Mois, Jour).

Bien sûr, il faut que la date saisie le soit dans un format défini, sous peine de devoir tester tous les formats acceptables, ce qui est possible, mais lourd.

On pourrait donc avoir quelque chose comme ceci, en considérant que la date est saisie (ou passée au textbox) au format jj/mm/aaaa

Code:

---

1 2 3 4 5

If TextBox1.Value Like "##/##/####" Then Range("a1").Value = DateSerial(Right(TextBox1.Value, 4), Mid(TextBox1.Value, 4, 2), Left(TextBox1.Value, 2)) Else MsgBox "Erreur dans la date" End If

---

Tu pourras alors extraire le mois de la valeur de la cellule en utilisant la fonction Month()

Je n'ai qu'une chose a dire: MERCI!! :D
Sa marche du tonnerre!!!!!

:ccool: