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 ?
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
Code:
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