Besoin d'aide !!!!!

Le
STEN
Bonjour, pourquoi les dates entres dans des textbox sont-
elles reproduite en anglais dans les cellules de
destination.
Style j'entre 01/05/04 et je me retrouve avec 05/01/04 ?
J'ai tout essay rien n'y fait.
Autre problme, les montants entrs dans le textbox
appropri sont considrs une fois valid comme du texte
donc les formules pour les totaux ne fonctionnent pas, je
craque!!!
Merci de votre aide ci-dessous le code de l'usf.

Option Explicit

Private Sub CmdFerme_Click()
Unload Me
ACCEUIL.Activate
MENU.Show

End Sub

Private Sub CmdModiff_Click()

End Sub

Private Sub CmdValid_Click()
Sheets("JANVIER").Range("A65536").End(xlUp)(2).Value =
VALIDATION.TxtDateJour.Value
Sheets("JANVIER").Range("B65536").End(xlUp)(2).Value =
VALIDATION.TxtNumFacture.Value
Sheets("JANVIER").Range("C65536").End(xlUp)(2).Value =
VALIDATION.TxtPeriode.Value
Sheets("JANVIER").Range("D65536").End(xlUp)(2).Value =
VALIDATION.TxtFinPeriode.Value
Sheets("JANVIER").Range("E65536").End(xlUp)(2).Value =
VALIDATION.TxtMontant.Value
Sheets("JANVIER").Range("F65536").End(xlUp)(2).Value =
VALIDATION.ListeType.Value
Me.TxtDateJour.Value = ""
Me.TxtPeriode.Value = ""
Me.TxtFinPeriode.Value = ""
Me.TxtNumFacture.Value = ""
Me.TxtMontant.Value = ""
Me.ListeType.Value = ""
Me.TxtDateJour.SetFocus

End Sub

Private Sub TxtDateJour_Change()
Select Case Len(TxtDateJour)
Case 2, 5: TxtDateJour = TxtDateJour & "/"
End Select

End Sub

Private Sub TxtFinPeriode_Change()
Select Case Len(TxtFinPeriode)
Case 2, 5: TxtFinPeriode = TxtFinPeriode & "/"
End Select

End Sub

Private Sub TxtPeriode_Change()
Select Case Len(TxtPeriode)
Case 2, 5: TxtPeriode = TxtPeriode & "/"
End Select

End Sub

Private Sub UserForm_Initialize()
'NoXUSF Me


Me.ListeType.RowSource = "K5:K7"

End Sub
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1330220
Bonjour Sten,

Tout ce qui est relié au langage de programmation dans l'éditeur de Macro (vbe), se passe en anglais, et par défaut, ce
sont les paramètres américains qui sont en vigueur. Et comme exemple, inscrit dans une feuille de code ce qui suit :

#5/12/2004# cette date égale 5 décembre 2004 ... mais si tu tapes cette date sur une feuille de code, elle va
immédiatement se transformer en #12/5/2004# qui est le format américain (m/jour/année) de base pour VBA.

Dans une feuille de calcul, tu peux cependant choisir le format que prendra la date.

Il est important de se rappeler qu'une variable en vba ne transmet pas à une cellule d'une feuille excel son format mais
seulement sa valeur. Tu dois en conséquence appliquer le format désiré à la cellule et copier ensuite la valeur de la
variable dans celle-ci.

Range("A1").numberformat = "d/mm/yyyy" ou tout autre format
Range("A1").value = Me.textbox1 ' ou le nom de ta variable contenant la date.



Salutations!






"STEN" Bonjour, pourquoi les dates entrées dans des textbox sont-
elles reproduite en anglais dans les cellules de
destination.
Style j'entre 01/05/04 et je me retrouve avec 05/01/04 ?
J'ai tout essayé rien n'y fait.
Autre problème, les montants entrés dans le textbox
approprié sont considérés une fois validé comme du texte
donc les formules pour les totaux ne fonctionnent pas, je
craque!!!
Merci de votre aide ci-dessous le code de l'usf.

Option Explicit

Private Sub CmdFerme_Click()
Unload Me
ACCEUIL.Activate
MENU.Show

End Sub

Private Sub CmdModiff_Click()

End Sub

Private Sub CmdValid_Click()
Sheets("JANVIER").Range("A65536").End(xlUp)(2).Value VALIDATION.TxtDateJour.Value
Sheets("JANVIER").Range("B65536").End(xlUp)(2).Value VALIDATION.TxtNumFacture.Value
Sheets("JANVIER").Range("C65536").End(xlUp)(2).Value VALIDATION.TxtPeriode.Value
Sheets("JANVIER").Range("D65536").End(xlUp)(2).Value VALIDATION.TxtFinPeriode.Value
Sheets("JANVIER").Range("E65536").End(xlUp)(2).Value VALIDATION.TxtMontant.Value
Sheets("JANVIER").Range("F65536").End(xlUp)(2).Value VALIDATION.ListeType.Value
Me.TxtDateJour.Value = ""
Me.TxtPeriode.Value = ""
Me.TxtFinPeriode.Value = ""
Me.TxtNumFacture.Value = ""
Me.TxtMontant.Value = ""
Me.ListeType.Value = ""
Me.TxtDateJour.SetFocus

End Sub

Private Sub TxtDateJour_Change()
Select Case Len(TxtDateJour)
Case 2, 5: TxtDateJour = TxtDateJour & "/"
End Select

End Sub

Private Sub TxtFinPeriode_Change()
Select Case Len(TxtFinPeriode)
Case 2, 5: TxtFinPeriode = TxtFinPeriode & "/"
End Select

End Sub

Private Sub TxtPeriode_Change()
Select Case Len(TxtPeriode)
Case 2, 5: TxtPeriode = TxtPeriode & "/"
End Select

End Sub

Private Sub UserForm_Initialize()
'NoXUSF Me


Me.ListeType.RowSource = "K5:K7"

End Sub
Pascal Engelmajer
Le #1330216
Salut,
ma solution : http://www.ilyapa.net/baseExcel/dateTextBox.xls
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"STEN" 6f0401c42f9a$e0de9890$
Bonjour, pourquoi les dates entrées dans des textbox sont-
elles reproduite en anglais dans les cellules de
destination.
Style j'entre 01/05/04 et je me retrouve avec 05/01/04 ?
J'ai tout essayé rien n'y fait.
Autre problème, les montants entrés dans le textbox
approprié sont considérés une fois validé comme du texte
donc les formules pour les totaux ne fonctionnent pas, je
craque!!!
Merci de votre aide ci-dessous le code de l'usf.

Option Explicit

Private Sub CmdFerme_Click()
Unload Me
ACCEUIL.Activate
MENU.Show

End Sub

Private Sub CmdModiff_Click()

End Sub

Private Sub CmdValid_Click()
Sheets("JANVIER").Range("A65536").End(xlUp)(2).Value VALIDATION.TxtDateJour.Value
Sheets("JANVIER").Range("B65536").End(xlUp)(2).Value VALIDATION.TxtNumFacture.Value
Sheets("JANVIER").Range("C65536").End(xlUp)(2).Value VALIDATION.TxtPeriode.Value
Sheets("JANVIER").Range("D65536").End(xlUp)(2).Value VALIDATION.TxtFinPeriode.Value
Sheets("JANVIER").Range("E65536").End(xlUp)(2).Value VALIDATION.TxtMontant.Value
Sheets("JANVIER").Range("F65536").End(xlUp)(2).Value VALIDATION.ListeType.Value
Me.TxtDateJour.Value = ""
Me.TxtPeriode.Value = ""
Me.TxtFinPeriode.Value = ""
Me.TxtNumFacture.Value = ""
Me.TxtMontant.Value = ""
Me.ListeType.Value = ""
Me.TxtDateJour.SetFocus

End Sub

Private Sub TxtDateJour_Change()
Select Case Len(TxtDateJour)
Case 2, 5: TxtDateJour = TxtDateJour & "/"
End Select

End Sub

Private Sub TxtFinPeriode_Change()
Select Case Len(TxtFinPeriode)
Case 2, 5: TxtFinPeriode = TxtFinPeriode & "/"
End Select

End Sub

Private Sub TxtPeriode_Change()
Select Case Len(TxtPeriode)
Case 2, 5: TxtPeriode = TxtPeriode & "/"
End Select

End Sub

Private Sub UserForm_Initialize()
'NoXUSF Me


Me.ListeType.RowSource = "K5:K7"

End Sub
Publicité
Poster une réponse
Anonyme