Formulaire et affichage mois

[jonat57]

Bonjour à tous,

Sur le fichier ci-joint, j'ai un formulaire qui permet la saisie chaque fin de mois du chiffre d'affaire de différents laboratoires. A l'ouverture du formulaire, j'ai inscris un code qui affiche directement l'année en cours ainsi que le mois -1. Cependant, le mois s'affiche en chiffre. Comment pourrai-je avoir "Avril" et non "4" automatiquement ? De plus comment puis-je avoir l'information ressortis en valeur numérique et non texte ?

Merci d'avance.

Cordialement.

 

[tototiti2008]

Re : Formulaire et affichage mois

Bonjour jonat57,

Pour avril dans la textbox :

Private Sub UserForm_Initialize()
   Me.Laboratoire.List = Array("Thionville", "Yutz", "Guenange", "Algrange")
   Me.Annee.Value = Year(Now)
   Me.Mois.Value = Format(DateSerial(2011, Month(Now) - 1, 1), "MMMM")
   End Sub

Pour que les contenus des textbox soient considérés comme des nombres dans la feuille de calcul

Private Sub b_validation_Click()
   '--- Positionnement dans la base
   [A65000].End(xlUp).Offset(1, 0).Select
   '--- Transfert Formulaire dans BD
   ActiveCell.Value = Application.Proper(Laboratoire)
   ActiveCell.Offset(0, 1).Value = CLng(Annee)
   ActiveCell.Offset(0, 2).Value = Mois
   ActiveCell.Offset(0, 3).Value = CDbl(CA.Value)
   
   End Sub

 

[jonat57]

Re : Formulaire et affichage mois

Merci de ta réponse rapide et efficace.


Bonne journée.

Cordialement.