Comment à partir d'une date d'un textbox mettre le mois en toute lettre dans un

Question

bonjour,
J'aimerais savoir comment faire pour à partir d'un texbox composé d'une date, mettre le mois de cette date iscrit en toute lettre dans un 2ème texbox.

Exemple:
1er texbox:01/03/2001
2ème texbox:Mars

Makabey · Answer

Ça devrais te donner une piste:


  Dim Mois(1 To 12) As String
  
  Mois(1) = "Janvier"
  Mois(2) = "Février"
  Mois(3) = "Mars"
  Mois(4) = "Avril"
  'etc...
  Mois(9) = "Septembre"
  
  Text1 = Format$(Now, "dd/mm/yyyy")
  Text2 = Mois(Val(Mid$(Text1.Text, 4, 2)))

titi · Answer

Merci pour ta réponse mais j'aimerais juste pouvoir saisir n'importe quelle date et non la date du jour

Jean · Answer

Pour completer la piste donnée :
Dans un formulaire tu disposes de deux TextBox
la première que j'ai nommée : DateSaisie
la seconde que j'ai nommée : MoisAffiche

Voici une procédure à placer sur le TextBox " DateSaisie" qui repond à ton problème :

Private Sub dateSaisie_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim calendrier(11)
Dim MoisEnCours

calendrier(0) = "Janvier"
calendrier(1) = "Février"
calendrier(2) = "Mars"
calendrier(3) = "Avril"
calendrier(4) = "Mai"
calendrier(5) = "Juin"
calendrier(6) = "Juillet"
calendrier(7) = "Aout"
calendrier(8) = "Septembre"
calendrier(9) = "Octobre"
calendrier(10) = "Novembre"
calendrier(11) = "Décembre"

MoisEnCours = Month(CDate(dateSaisie))

MoisAffiche = calendrier(MoisEnCours - 1)

End Sub

bon courage

Jean

isaca · Answer

-------------------------------
 Réponse au message :          
Bonjour tu peux essayer :

Dim LibMois
Texte1 = Format(Texte1,"mm")
LibMois = MonthName(Texte1)
LibMois = StrConv(LibMois, vbProperCase)

Bonne prog   :)         

@+

-------------------------------

Merci pour ta réponse mais j'aimerais juste pouvoir saisir n'importe quelle date et non la date du jour

tbbuim1 · Answer

Je sais pas pour vous, mais moi en VBA, je fais:
dim mois(12) as String
mois(1) = "janvier" ...

Textbox2 = Mois(Month(Texbox1))

Tout simplement...
Sinon il doit même exister une fonction pour ça, il me semble
TBBUIM

Lehuus · Answer

il existe une fonction integere dans vb qui vous donne le nom du mois automatiquement et elle utilise les parametres linguistique du system pour donner le mois dans la langue de l'utilisateur
cette fonction est monthname :
Function MonthName(Month As Long, [Abbreviate As Boolean = Faux]) As String
elle ce trouve dans vba.strings

Comment à partir d'une date d'un textbox mettre le mois en toute lettre dans un

6 réponses

Discussions similaires