Problème de dates dans TextBox

Version imprimable

salut
voila je serais tres bref, je n'arrive pas a conditionner le format date car par exemple si une erreur de saisie par un utilisateur la date s'affiche toujours dans la cellule exemple le 12/13/2010 dans le textbox va afficher le 13 décembre 2010.
voici le code:
Code:

1 2 3 4 5 Private Sub TextBox7_Change() IsDate TextBox7 = Format(TextBox7, "dd/mm/yyyy") Sheets("cdd_sans_periode_essai").Range("h38") = TextBox7.Value Range("h38") = Format(Range("h38"), "dd mmmm yyyy") End Sub

29/04/2010, 14h55
sabzzz

bonjour DRH01,

je pense que la facon la plus sur pour éviter une erreur de saisie "date" par un utilisateur est d'utiliser 3 combobox prérenseignés chacun par jour/mois/année
29/04/2010, 16h18
DRH01

bonjour sabzzz
je te remercie pour ta réponse, quoi que je suis vraiment un débutant en vba , je me demande bien si tu pourra m'aider pour le code de ta proposition.
29/04/2010, 16h58
sabzzz

bonjour DRH01,

Citation:

je me demande bien si tu pourra m'aider pour le code de ta proposition

oui, veut-tu mettre les ComboBox sur une feuille ou sur un UserForm ?
29/04/2010, 17h11
DRH01

bonjour sabzzz
oui, j'aimerai bien que tu essai de me fournir le code pour les combobox, comme ca je pourrai les inserer directement dans le textbox7 (normalement ca devra marche).
29/04/2010, 17h20
sabzzz

ou veut tu mettre les ComboBox sur une feuille de calcul ou sur un UserForm ?
30/04/2010, 20h18
DRH01

salut sabzzz
c'est dans le userform que j'aimerai ajouter ces combobox, et lié au textbox7 si cela est possible.

bonjour DRH01,

voila,

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
For i = 2010 To 1930 Step -1
 Me.ComboBox1.AddItem i
Next
For i = 1 To 12
 Me.ComboBox2.AddItem i
Next
For i = 1 To 31
 Me.ComboBox3.AddItem i
Next
End Sub

Code:

1
2
3
4
5
Private Sub ComboBox1_Change()
If Me.ComboBox2 = "" Then Me.ComboBox2.ListIndex = 0
If Me.ComboBox3 = "" Then Me.ComboBox3.ListIndex = 0
Me.TextBox7 = Format(DateSerial(ComboBox1, ComboBox2, ComboBox3), "yyyy-mm-dd")
End Sub

Code:

1
2
3
4
5
Private Sub ComboBox2_Change()
If Me.ComboBox1 = "" Or Me.ComboBox3 = "" Then GoTo fin
Me.TextBox1 = Format(DateSerial(ComboBox1, ComboBox2, ComboBox3), "yyyy-mm-dd")
fin:
End Sub

Code:

1
2
3
4
5
Private Sub ComboBox3_Change()
If Me.ComboBox1 = "" Or Me.ComboBox2 = "" Then GoTo fin
Me.TextBox1 = Format(DateSerial(ComboBox1, ComboBox2, ComboBox3), "yyyy-mm-dd")
fin:
End Sub

tu pourrais aussi mettre celle-ci pour le ComboBox1_Change,
ceci oblige de renseigner les 3 combobox avant le mettre l'information dans le TextBox.

Code:

1
2
3
4
5
Private Sub ComboBox1_Change()
If Me.ComboBox2 = "" Or Me.ComboBox3 = "" Then GoTo fin
Me.TextBox1 = Format(DateSerial(ComboBox1, ComboBox2, ComboBox3), "yyyy-mm-dd")
fin:
End Sub

01/05/2010, 11h50
Didier Gonard

Bonjour,

Pourquoi ne pas passer carrément pas un contrôle calendrier, c'est propre, pro, ergonomiquement ça correspond aux applications courantes, on ne peut pas faire d'erreur autres qu'entres deux dates ;)

Il y en a un dans le tuto dans le classeur exemple USF demo DATES avec le lien pour avoir les contrôles si besoin...

Citation:

L'OCX MSCOMCT2.OCX permet d'utiliser des contrôles supplémentaires dans vos classeurs :
.../...
Contrôle MonthView Microsoft
Contrôle DTPicker Microsoft
.../...

De plus toujours dans le code fournit, tu peux remarquer que la date choisie est reportée dans un label (pas de confusion, ce n'est pas éditable pas l'utilisateur, mais tu peux utiliser une textbox lockée aussi...)...

cordialement,

Didier

salut
j'ai copier coller le code des trois combobox + userform_initialize mais ca ne marche pas encore car je pense que ces derniers ne sont pas lié au textbox7, et je ne c'est pas si je doit supprimer le code de mon textbox7 ou je dois remplacer private sub userform_initialize par Private Sub TextBox7_Change()
code:
Code:

1 2 3 4 5 Private Sub TextBox7_Change() IsDate TextBox7 = Format(TextBox7, "dd/mm/yyyy") Sheets("cdd_sans_periode_essai").Range("h38") = TextBox7.Value Range("h38") = Format(Range("h38"), "dd mmmm yyyy") End Sub

03/05/2010, 15h37
sabzzz

bonjour DRH01,

supprimer le code du textbox7.
04/05/2010, 13h09
DRH01

bonjour sabzzz
ok j'ai supprimer le code mais desque je lance le userform un message s'affiche (ERREUR DE COMPILATION VARIABLE NON DEFINIE ) sur cette partie du code:
For i = 2010 To 1930 Step -1
04/05/2010, 13h20
DRH01

1 pièce(s) jointe(s)

Salut sabzzz
j'ai pu télécharger un fichier excel très intéressant nommé DVP DemoDateBox.xls, et comme c'est juste maintenant que je m'applique sur le vba je n'ai pas récupérer un bout de son code.
si vous pouvais juste jeter un coup d'œil.

bonjour DRH01,

si tu as mit Option Explicit dans le haut du module il faut obligatoirement déclarer les variables,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim i As Integer '<-------------------------- ici
For i = 2010 To 1930 Step -1
 Me.ComboBox1.AddItem i
Next
For i = 1 To 12
 Me.ComboBox2.AddItem i
Next
For i = 1 To 31
 Me.ComboBox3.AddItem i
Next
End Sub

04/05/2010, 15h07
DRH01

salut sabzzz
je vous remercie mais le format de la date est incorrect car si je saisie dans combobox la date du 04 mai 2010, j'aurai dans le textbox la date du 31 octobre 2009, sinon si bon le message d'erreur n'apparaisse plus.
04/05/2010, 15h46
sabzzz

bonjour DRH01,

il faut mettre la propriété des combobox, MatchRequired à True, l'utilisateur ne peut pas quitter le contrôle ComboBox tant que le texte saisi ne correspond pas à une entrée de la liste existante.

voici le fichier :
http://www.cijoint.fr/cjlink.php?fil...cij55O9KqM.xls
04/05/2010, 17h49
DRH01

je te remercie pour ton aide, ça marche très bien et ça me donne l'envie de continuer a essayer de faire quelque chose pour mon fichier du personnel.:resolu: