Bonjour, pourquoi les dates entr=E9es dans des textbox sont-
elles reproduite en anglais dans les cellules de=20
destination.
Style j'entre 01/05/04 et je me retrouve avec 05/01/04 ?
J'ai tout essay=E9 rien n'y fait.
Autre probl=E8me, les montants entr=E9s dans le textbox=20
appropri=E9 sont consid=E9r=E9s une fois valid=E9 comme du texte=20
donc les formules pour les totaux ne fonctionnent pas, je=20
craque!!!
Merci de votre aide ci-dessous le code de l'usf.
Option Explicit
Private Sub CmdFerme_Click()
Unload Me
ACCEUIL.Activate
MENU.Show
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de news: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
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
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" <jsterjean@aol.com> a écrit dans le message de news:6f0401c42f9a$e0de9890$a601280a@phx.gbl...
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
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" a écrit dans le message de news: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
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
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" a écrit dans le message de news: 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
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
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" <jsterjean@aol.com> a écrit dans le message de news:
6f0401c42f9a$e0de9890$a601280a@phx.gbl...
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
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" a écrit dans le message de news: 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