OVH Cloud OVH Cloud

pb de date

3 réponses
Avatar
bob
Bonjour,

J'ai un pb dans mon formulaire.
J'ai une textbox qui va chercher une donn=E9e de type "date"=20
dans une cellule, l=E0 pas de pb.
Par contre si je veux modifier cette donn=E9e "date" dans=20
mon formulaire, il me change ou me rajoute les chiffres=20
que je tappe.
Par exemple ma donn=E9e dans ma cellule est : 23/11/2003
Il me la transforme en 31/12/1899 c'est =E0 dire n'importe=20
quoi.

La TextBox est param=E9tr=E9e comme ceci :

Private Sub TextBox_Change()
i =3D ComboBox.ListIndex
VTest =3D TextBox.Value
Cells((i + 5), 9).Value =3D VTest
End Sub

Merci d'avance pour vos conseils.

3 réponses

Avatar
mousnynao
Bonjour,

J'ai pas testé, mais il me semble que :

Private Sub TextBox_Change()
i = ComboBox.ListIndex
VTest = Format(TextBox.Value,"dd-mm-yyyy")
Cells((i + 5), 9).Value = VTest
End Sub

N.B. Le format de la cellule doit être "jj-mm-aaaa"
(personnalisé)

mousnynao!
-----Message d'origine-----
Bonjour,

J'ai un pb dans mon formulaire.
J'ai une textbox qui va chercher une donnée de
type "date"

dans une cellule, là pas de pb.
Par contre si je veux modifier cette donnée "date" dans
mon formulaire, il me change ou me rajoute les chiffres
que je tappe.
Par exemple ma donnée dans ma cellule est : 23/11/2003
Il me la transforme en 31/12/1899 c'est à dire n'importe
quoi.

La TextBox est paramétrée comme ceci :

Private Sub TextBox_Change()
i = ComboBox.ListIndex
VTest = TextBox.Value
Cells((i + 5), 9).Value = VTest
End Sub

Merci d'avance pour vos conseils.
.



Avatar
bob
Bonjour,

Je te remercie de ton conseil, mais il ne sagit pas d'un
pb de format mais du changement de donnée dans ma textbox
de mon formulaire.

A+

-----Message d'origine-----
Bonjour,

J'ai pas testé, mais il me semble que :

Private Sub TextBox_Change()
i = ComboBox.ListIndex
VTest = Format(TextBox.Value,"dd-mm-yyyy")
Cells((i + 5), 9).Value = VTest
End Sub

N.B. Le format de la cellule doit être "jj-mm-aaaa"
(personnalisé)

mousnynao!
-----Message d'origine-----
Bonjour,

J'ai un pb dans mon formulaire.
J'ai une textbox qui va chercher une donnée de
type "date"

dans une cellule, là pas de pb.
Par contre si je veux modifier cette donnée "date" dans
mon formulaire, il me change ou me rajoute les chiffres
que je tappe.
Par exemple ma donnée dans ma cellule est : 23/11/2003
Il me la transforme en 31/12/1899 c'est à dire n'importe
quoi.

La TextBox est paramétrée comme ceci :

Private Sub TextBox_Change()
i = ComboBox.ListIndex
VTest = TextBox.Value
Cells((i + 5), 9).Value = VTest
End Sub

Merci d'avance pour vos conseils.
.

.





Avatar
michdenis
Bonjour Bob,

Tu peux essayer ceci . Mais pour saisir des dates directement dans le textbox, je ne trouve pas que l'événement choisi soit
la meilleure façon pour passer une date à une cellule de la feuille de calcul.

'-------------------------------
Private Sub TextBox_Change()
i = ComboBox.ListIndex
If IsDate(TextBox) Then
Cells(1, 1).NumberFormat = "d/mm/yy"
Cells((i + 5), 9).Value = TextBox
End If
End Sub
'-------------------------------


Salutations




"bob" a écrit dans le message de news:e7e301c3f0c3$2c2c8530$
Bonjour,

J'ai un pb dans mon formulaire.
J'ai une textbox qui va chercher une donnée de type "date"
dans une cellule, là pas de pb.
Par contre si je veux modifier cette donnée "date" dans
mon formulaire, il me change ou me rajoute les chiffres
que je tappe.
Par exemple ma donnée dans ma cellule est : 23/11/2003
Il me la transforme en 31/12/1899 c'est à dire n'importe
quoi.

La TextBox est paramétrée comme ceci :

Private Sub TextBox_Change()
i = ComboBox.ListIndex
VTest = TextBox.Value
Cells((i + 5), 9).Value = VTest
End Sub

Merci d'avance pour vos conseils.