Discussion :

[oscar.cesar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[oscar.cesar]

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

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

[ucfoutu]

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...

[oscar.cesar]

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

bravo à tous pour le forum

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ) 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...)