controler le format de saisie dans un combobox

bonjour
je cherche controle la saisie dans combobox .
le combobox recoit une date au format JJ/MM/AAAA
1) la saisie peut se faire par le calendrier via le code suivant

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox18_enter() 'on entre dans le combobox Me.MonthView1.Visible = True End Sub   Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 'recopie la valeur du calendrier ComboBox18.Value = MonthView1.Value MonthView1.Visible = False 'rend invible le calendrier End Sub

---

2)l'utilisateur peut saisir manuellement en tapant dorectement la date ,
c'est que je veux etre sur du format JJ/MM/AAAA en verifiant le format et les valeurs quelles ne soient pas fantaisistes comme 78/12/9999

merci de l'aide

Bonjour,

D'instinct (puisque tu utilises un contrôle MONTVIEW) :

Au focus (évènement Enter) , quand tu rends visible le MONTVIEW, rien ne t'empêche, dans la foulée, d'inhiber ta ComboBox (propriété enabled = False).

A la fin de le saisie dans le MONTVIEW ==>> tu passes sa valeur à ta Combo en lui rendant sa propriété enabled = True

Fastoche, non ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox18_enter() 'on entre dans le combobox Me.MonthView1.Visible = True ComboBox18.enabled = false End Sub   Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 'recopie la valeur du calendrier ComboBox18.enabled = True ComboBox18.Value = MonthView1.Value MonthView1.Visible = False 'rend invible le calendrier End Sub

---

salut
oui , effectivement c'est encore plus sur
mais c'est surtout pour la saisie dans l'utilisation du montview que je veux verifier!

Citation:

---

2)l'utilisateur peut saisir manuellement en tapant dorectement la date ,
c'est que je veux etre sur du format JJ/MM/AAAA en verifiant le format et les valeurs quelles ne soient pas fantaisistes comme 78/12/9999

---

Vérifie alors en utilisant IsDate (encore que.... bref...)...

Je regrette tellement qu'une autre discussion ait mal tourné il y a un mois environ...

;)
ouf j'ai deja oublié , pas de probleme, je suis aussi fautif

bravo à tous pour le forum:king:

Si tu tiens à contrôler la saisie, tu ne peux le faire qu'à l'exit du combobox sans compliquer trop les tests. Tu peux faire ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim ok As Boolean ok = ComboBox1 Like "##/##/####" And IsDate(ComboBox1) ok = ok And Val(Mid(ComboBox1, 1, 2)) < 32 ok = ok And Val(Mid(ComboBox1, 4, 2)) < 13 If Not ok Then MsgBox "Saisir une date valide au format jj/mm/aaaa" Cancel = True End If End Sub

---

Mais je suis de l'avis d'ucfoutu (pour cette fois :mouarf:) si tu neutralise le combo le temps de la sélection dans le calendrier, ce serait plus mieux sioux ;)
Par contre je reste partisan d'un contrôle global des données saisies lors de la validation de ces données... (Bonjour uc...)

bonjour,

sur la controle saisie des dates nous avions eu cette discussion

http://www.developpez.net/forums/sho...=435532&page=3

voir la procedure a la fin de la discussion

Citation:

---

Envoyé par patbou

bonjour,

sur la controle saisie des dates nous avions eu cette discussion

http://www.developpez.net/forums/sho...=435532&page=3

voir la procedure a la fin de la discussion

---

Oui, je me souviens, mais, en cas d'erreur, le code que tu mets ne renvoie pas dans le Combo pour modification ;)

Edit
En outre, tu peux écrire mm/jj/yyyy, ta saisie sera (je pense) reconnue comme une date, donc pas au bon format (je suppose...)

ce code est bien sur a adapter pour un combo :D

retenir le principe

1/ controle du format de saisie (##,### .........)
2/verifier si la variable est une date par l 'utilisation de la gestion d erreur (cdate)

bonjour à tous et à toute

merci
je vais suivre les conseils de ouskel'n'or:king:
je reste uniquement sur une saisie de calendrier avec verrouillage apres la saisie de la date.


merci
:lol: