D
deado
Guest
bonsoir le forum ....
voila j'ai un petit souci un peut bizard .....
j'ai un userform qui me permet d'ajouter des donnée : date, nom, prenom, N° telephonne ....
quand je valide un tris par date se fait automatiquement ....
jusque la pas de probleme, seulement, quand je tape une date du genre : 05/01/2009 .... la date se transforme automatiquement en 01/05/2009 .... je comprend pas pourquoi !!
a chaque foi que la valeur du jour est superieur a la valeur du Mois, les valeur sont inverser ^^
voici le code que j'utilise :
merci de me dire se que je dois ajouter pour que ca marche sans probleme 🙂
voila j'ai un petit souci un peut bizard .....
j'ai un userform qui me permet d'ajouter des donnée : date, nom, prenom, N° telephonne ....
quand je valide un tris par date se fait automatiquement ....
jusque la pas de probleme, seulement, quand je tape une date du genre : 05/01/2009 .... la date se transforme automatiquement en 01/05/2009 .... je comprend pas pourquoi !!
a chaque foi que la valeur du jour est superieur a la valeur du Mois, les valeur sont inverser ^^
voici le code que j'utilise :
Code:
Private Sub UserForm_Initialize()
Me.kind.RowSource = "M7:M" & [M65000].End(xlUp).Row
Me.kind.ListIndex = 0 'positionne sur le premier élément
Me.nouveau.SetFocus
Sheets("Inquiry").[A7:H5000].Sort key1:=Sheets("Inquiry").[A7]
End Sub
Private Sub CommandButton1_Click()
'--- Positionnement dans la base
[A65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.nouveau)
ActiveCell.Offset(0, 1).Value = Me.Nom
ActiveCell.Offset(0, 2).Value = Me.Prenom
ActiveCell.Offset(0, 3).Value = Me.Telephonne
ActiveCell.Offset(0, 4).Value = Me.kind
vider
Me.nouveau.SetFocus
Sheets("Inquiry").[A7:H5000].Sort key1:=Sheets("Inquiry").[A7]
End Sub
Sub vider()
Me.nouveau = ""
Me.Nom = ""
Me.Prenom = ""
Me.Telephonne = ""
Me.kind = ""
End Sub
Private Sub b_fin_Click()
Unload Me
End Submerci de me dire se que je dois ajouter pour que ca marche sans probleme 🙂