Bonjour à tous,
Je viens vers vous car j'ai petite question à vous poser dans l'exemple du classeur que je mets à disposition dans mon UserForm j'ai deux textbox.
La première reçoit une date avec le bon format cela fonctionne pas de souci pour exemple si vous mettez la date suivante dans la première textbox :03/05/2020 et dans la seconde vous rentrez la date suivante :01/06/2020
Dans la seconde la date s'efface avec la formule que j'ai mis dedans je voudrais savoir si il était possible que la formule se concentre aussi sur le jour et le mois en plus de l'année.
Car si je rentre plusieurs dates de la même année elle va s'effacer automatiquement hors j'ai besoin de pouvoir rentrer des dates supérieures au premier exemple comme on pourrait rentrer dans la seconde textbox la date suivante :04/05/2020 par contre là où il joue bien le rôle ces si on met une date inférieure exemple 02/05/2020 la elle ne doit pas s'afficher.
Pouvez-vous m'aider s'il vous plaît.
Je viens vers vous car j'ai petite question à vous poser dans l'exemple du classeur que je mets à disposition dans mon UserForm j'ai deux textbox.
La première reçoit une date avec le bon format cela fonctionne pas de souci pour exemple si vous mettez la date suivante dans la première textbox :03/05/2020 et dans la seconde vous rentrez la date suivante :01/06/2020
Dans la seconde la date s'efface avec la formule que j'ai mis dedans je voudrais savoir si il était possible que la formule se concentre aussi sur le jour et le mois en plus de l'année.
Car si je rentre plusieurs dates de la même année elle va s'effacer automatiquement hors j'ai besoin de pouvoir rentrer des dates supérieures au premier exemple comme on pourrait rentrer dans la seconde textbox la date suivante :04/05/2020 par contre là où il joue bien le rôle ces si on met une date inférieure exemple 02/05/2020 la elle ne doit pas s'afficher.
Pouvez-vous m'aider s'il vous plaît.
VB:
Option Explicit
Private Sub TextBox1_Change()
Dim valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox1)
If valeur = 2 Or valeur = 5 Then
TextBox1 = TextBox1 & "/"
End If
Me.TextBox1.Value = UCase(Me.TextBox1.Value)
End Sub
Private Sub TextBox2_Change()
Dim valeur As Byte
TextBox2.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox2)
If valeur = 2 Or valeur = 5 Then
TextBox2 = TextBox2 & "/"
End If
Me.TextBox2.Value = UCase(Me.TextBox2.Value)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox2.Value < Me.TextBox1.Value Or Me.TextBox2.Value = Me.TextBox1.Value Then
Me.TextBox2.Value = ""
End If
End Sub