Discussion :

[BOU59000]

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.

[Peut-êtreUneRéponse]

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

.

[zyhack]

Bonsoir

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

Initiation au VBA Office

regarde particulièrement datepart

[Didier Gonard]

Bonjour

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

sous quelle forme ? numéro ou texte ?

vois ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement,

Didier

[BOU59000]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox6 = "" & Date

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!
Si vous avez d'autres pistes, je suis preneur!

Merci

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()