Microsoft 365 Problème avec textbox et combobox

[dubarre]

Bonsoir à tous je viens vers vous car j'ai un petit souci j'ai essayé ce code mais il ne veut pas fonctionner est-ce que quelqu'un pourrait m'expliquer d'une part pourquoi et d'autres pas savoir si il y a moyen de le contrer.

Je m'explique la text box reçois une date si elle est inférieure à la combo box alors elle s'efface.

Merci de votre aide

If Me.TextBox23.Value < Me.CbxBoursier.Value Then
Me.TextBox23.Value = ""
End If

 

[job75]

Bonjour dubarre,

Il faut que les 2 valeurs soient reconnues comme des dates par VBA :

If Not IsDate(TextBox23) Or Not IsDate(CbxBoursier) Then TextBox23 = "" _
    Else If CDate(TextBox23) < CDate(CbxBoursier) Then TextBox23 = ""

A+

 

[Dudu2]

Bonsoir à tous,
Job, comment tu as compris que c'était des dates ? Tu es trop fort !

Edit: OK c'est écrit ! Je vois rien.
Mais ta réponse est excellente !

 

[dubarre]

Bonsoir merci tout d'abord de vous pencher sur mon problème mais je pense qu'il y a un petit souci car quand je rentre le code que vous me proposez dans la text box je ne peux rentrer aucun chiffre peut-être il est quelque chose que je fais mal positionnements de votre code n'est pas au bon endroit pouvez-vous me dire s'il vous plaît.

Private Sub TextBox23_Change()
Me.TextBox22.Value = "X"
If Me.TextBox23 = "" Then
Me.TextBox22 = ""
End If

If Not IsDate(TextBox23) Or Not IsDate(CbxBoursier) Then TextBox23 = "" _
    Else If CDate(TextBox23) < CDate(CbxBoursier) Then TextBox23 = ""

'-------------------------------------------------------------------------
'Code permettant de mettre une date au format 00/00/0000 dans une textbox.
'-------------------------------------------------------------------------

Dim valeur As Byte
TextBox23.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox23)
If valeur = 2 Or valeur = 5 Then TextBox23 = TextBox23 & "/"

End Sub

 

[job75]

Avec Change ça ne va pas, remplacez TextBox23_Change par TextBox23_AfterUpdate

 

[dubarre]

Désolé encore de vous embêter j'essayer de faire ce que vous me proposez sauf qu'il y a un petit souci maintenant elle accepte les chiffres mais un seul si je tape plusieurs chiffres à la suite sauf qu'il ne met qu'un chiffre exemple si je tape zéro et trois le chiffre trois efface le zéro je vous mets le classeur

Cela se passe dans le userform2 dans la case date de décès je précise que les données sur ce classeur sont fictives en aucun cas elle représente la réalité.

 

[job75]

10 modules standards et 12 UserForms ! J'ai horreur des usines à gaz !

 

[dubarre]

Bonjour si cela vous embête est-ce que vous voulez un classeur avec juste un exemple ?

 

[dubarre]

Bonjour je vous mets un exemple plus facile pour que vous puissiez voir ce qui me pose problème merci de votre aide.

 

[job75]

La seule macro de la TextBox doit être la macro AfterUpdate, supprimez toutes les autres.

 

[dubarre]

Merci super ça fonctionne je te remercie beaucoup bonne journée

 

[patricktoulon]

Bonjour à tous
@job75
avec le afterupdate il ne peut pas formater avec les "/" automatiques

Private Sub TextBox23_AfterUpdate()
With TextBox23
If Len(.Value) < 10 And .Value <> "" Then MsgBox "date incomplete": .SetFocus: .SelStart = 0: .SelLength = 1
End With
End Sub

Private Sub TextBox23_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With TextBox23
        t = .Value
        Select Case KeyCode
        Case 96 To 105
            t = t & Chr(KeyCode - 48)
            If Len(t) = 2 Or Len(t) = 5 Then t = t & "/"
           .Value = t
           If Len(t) = 10 And Not IsDate(t) Then t = "": MsgBox "date invalide"
            If Len(t) = 10 Then If CDate(t) < CDate(CbxBoursier) Then t = "": MsgBox "date inferieur"
            KeyCode = 0
        Case 8: t = Left(t, Len(t) - 1): KeyCode = 0
        Case Else: KeyCode = 0
        End Select
        .Value = t
     TextBox22 = Array("", "X")(Abs(t <> ""))
End With
End Sub

le seul problème je n'arrive pas a faire revenir le carret (selstart)sur le textbox23 dans le after updtate

 

[job75]

Bonjour patricktoulon,

avec le afterupdate il ne peut pas formater avec les "/" automatiques

Le formatage des dates avec un masque de saisie est un gadget sans aucun intérêt.

Je ne le vois jamais installé sur les sites web.

A+