Discussion :

[tytos]

Bonjour le forum , mon problème comme l'indique le titre est que je voudrais que dans le textbox on entre uniquement que la date donc j'ai essayé d'utiliser derriere le textebox

Code :

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

x.value = Format(x.value, "dd mm yyyy")

mais le soucis est que dès que je commence par entrer un chiffre il le converti directement en la date auquel il correspond dans excel par exemple si je comence par entré 2 maintenant il sort 02/01/1900 . si quelqu'un peut m'aider.
Ou est ce possible d'appeler le calendrier depuis un combobox?
Merci

[unparia]

Bonjour

mais le soucis est que dès que je commence par entrer un chiffre il le converti directement en la date auquel il correspond

ce qui ne peut arriver que si tu as mis ce code dans l'évènement Change, ce qu'il ne convient bien évidemment pas de faire !
Exécute ton code en sortie de la textbox.

[patricktoulon]

bonjour
tu peux aussi forcer le textbox au format date dynamiquement quand tu tape ta date

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 Then
        If Right(TextBox1, 1) = "/" Then TextBox1 = Mid(TextBox1, 1, Len(TextBox1) - 1)
   End If
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case Len(TextBox1.Text)
    Case 2: If Val(TextBox1.Value) > 31 Then TextBox1.Value = "": MsgBox "jour trop grand" Else TextBox1 = TextBox1 & "/"
    Case 5: If Mid(TextBox1, 4, 2) > 12 Then TextBox1.Value = Mid(TextBox1, 1, 3): MsgBox "mois  trop grand" Else TextBox1 = TextBox1 & "/"
    Case 10: If Not IsDate(TextBox1) Then MsgBox "tu veux une claque ou quoi?" & vbCrLf & " Ou ta vu que ce jour existe dans le calendrier" & vbCrLf & " allez recommence!!!": TextBox1 = ""
    Case 11: TextBox1 = Mid(TextBox1, 1, 10)
    End Select
End Sub

1. essaie de commencer par un plus gros chiffre que 31
2. essaie de mettre un mois plus grand que 12
3. essaie de taper 31/02/2017
4. essaie de taper plus qu'il n'en faut

[a.soteau]

Bonjour
Merci pour ce code qui fonctionne très bien et avec humour
Pour ma culture VBA encore faible pouvez vous décrire un peu le principe de ce code
Merci d'avance

[patricktoulon]

le principe est simple

avec keydown on gère les touches entrée,suppr,back

avec keypress on gère les autres touches

avec keypress on interdit les lettre :que le pavé numérique

on place les slashs en fonction du len(longueur de texte dans le textbox)

et enfin test avec isdate voir si la date est valide (par exemple 31/02/2017) ne passera pas il n'y a pas 31 jour dans un mois de février

[a.soteau]

Merci pour cet éclairage (et la rapidité)
Par contre je peux saisir des dates incohérentes : ex 31//12 passe dans ma BDD

Ensuite question subsidiare : j'ai un userform avec 36 dates (au total 75 textbox) et je me demande s'il existe manip pour appliquer ce code à un ensemble de textbox ?

[MolikDLuffy]

le principe est simple

avec keydown on gère les touches entrée,suppr,back

avec keypress on gère les autres touches

avec keypress on interdit les lettre :que le pavé numérique

on place les slashs en fonction du len(longueur de texte dans le textbox)

et enfin test avec isdate voir si la date est valide (par exemple 31/02/2017) ne passera pas il n'y a pas 31 jour dans un mois de février

Bonjour,

Et à propos de KeyUp?

[patricktoulon]

avec le keyup le code s'exécute quand tu la la touche tu l'aura compris

pour tout tes textboxs il faudra subclasser (module classe) tu a un de mes exemple dans les contribs

par contre ton double slachs je suis étonné
je vais regarder

[patricktoulon]

re
a oui en effet ca n'est pas la version que j'utilise

bon pour methode avec keyup et keydown je t'ai ajouté la touche suppr
et bloquer le clavier (impossible de taper autre chose que les touche 0 a 9
par conséquence les slashs et autre virgules et compagnie ainsi que les lettres de l'alphabet =niet peau de cochon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 Then
        If Right(TextBox1, 1) = "/" Then TextBox1 = Mid(TextBox1, 1, Len(TextBox1) - 1)
    ElseIf KeyCode = 46 Then TextBox1 = ""
    End If
End Sub
 
 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode < 96 Or KeyCode > 105 Then
        If TextBox1 <> "" Then TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
    Select Case Len(TextBox1.Text)
    Case 2: If Val(TextBox1.Value) > 31 Then TextBox1.Value = "": MsgBox "jour trop grand" Else TextBox1 = TextBox1 & "/"
    Case 5: If Mid(TextBox1, 4, 2) > 12 Then TextBox1.Value = Mid(TextBox1, 1, 3): MsgBox "mois  trop grand" Else TextBox1 = TextBox1 & "/"
    Case 10: If Not IsDate(TextBox1) Then MsgBox "tu veux une claque ou quoi?" & vbCrLf & " Ou ta vu que ce jour existe dans le calendrier" & vbCrLf & " allez recommence!!!": TextBox1 = ""
    Case 11: TextBox1 = Mid(TextBox1, 1, 10)
    End Select
End Sub

maintenant tu n'a plus qu'a intégrer cela dans un module classe et classer tout tes textboxs concernés
voili voilou

[Invité]

Bonjour,
Pourquoi saisir une date?

https://www.developpez.net/forums/d1...6/#post8408985

[a.soteau]

Merci Patrick

Ma modeste contribution

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Txtdateenvoistc_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TxtDateEnvoiSTC.SetFocus
 If KeyCode = 9 Then 'code 9 = tabulation
    If Len(TxtDateEnvoiSTC.Value) <> 10 Then
        MsgBox ("Format JJ/MM/AAAA non respecté")
        TxtDateEnvoiSTC = ""
    End If
End If
End Sub

Par contre la tabulation fait que la souris passe sur textbox suivant et m'oblige a revenir sur textbox vide

Pour la solution module de classe, je ne maitrise pas : en 2 mots tu peux préciser
Encore merci

Pour dysorthographie je n'ai pas le controle calendrier avec excel 2013 et malgré tuto je n'arrive pas à l'installer. De plus ayant 36 formats date je pense que ca peut etre lourd demanipuler 36 fois le calendrier

[Invité]

Je n'utilises pas de contrôle calendrier!

Même pas de contrôle du tout.