Validation spéciale d'un textbox - heures de travail

[blord]

Bonjour à tous,

Je sollicite votre aide pour savoir comment je pourrais valider ou ne permettre que la saisie des valeurs suivantes dans un textbox :

1- N'importe quels chiffres avant le symbole décimal
2- Un symbole décimal
3- Après le symbole décimale, uniquement les valeurs suivantes : 00, 25, 50, 75

Mon but est de valider la saisie d'heures de travail dans un textbox ou 15 minutes est indiqué par 0.25, 30 minutes par 0.50 et 45 minutes par 0.75.

Merci pour vos suggestions !

Blord

 

[kjin]

Re : Validation spéciale d'un textbox - heures de travail

Bonjour,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Exit Sub
If Not IsNumeric(TextBox1) Then Exit Sub 'à compléter sans doute
y = TextBox1 - Val(TextBox1)
Select Case y
    Case 0, 0.25, 0.5, 0.75
    Case Else
        MsgBox "non valide"
        TextBox1 = ""
End Select
    
End Sub

Sinon tu pourrais forcer l'utilisateur à saisir une valeur dans une combo
A+
kjin

 

[kiki29]

Re : Validation spéciale d'un textbox - heures de travail

Salut, à adapter à ton contexte , avec une ComboBox comme suggéré par Kjin
Cela à l'air de fonctionner mais reste un peu lourd au niveau de la saisie , enfin à voir et améliorer

pour le séparateur décimal , je pense que dans ton contexte tu devras remplacer entre autre

Private Sub ComboBox1_Change()
    TextBox11.Text = TextBox10.Text & "," & ComboBox1.Text
End Sub

par

Private Sub ComboBox1_Change()
    TextBox11.Text = TextBox10.Text & "." & ComboBox1.Text
End Sub

 

[blord]

Re : Validation spéciale d'un textbox - heures de travail

Bonjour à vous...

Merci pour vos efforts, je vais tenter d'adapter le tout à mes besoins...

Blord

 

[blord]

Re : Validation spéciale d'un textbox - heures de travail

Bonjour à tous,

Les pistes de solutions que vous m'avez si soigneusement suggérées m'ont ammenées à ceci :

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then

'Converti le textbox en format heure 00.00 si la longueur du texte est de 4 caractères
If TextBox1.TextLength = 4 Then
TextBox1.Value = Mid(TextBox1, 1, 2) & "." & Mid(TextBox1, 3, 2)
Else
MsgBox "Heure invalide"
TextBox1.Value = ""
Cancel = True
Exit Sub
End If

'Valide que la valeur entrée est une heure valide (qui se termine par 00, 25, 50 ou 75)
If Right(TextBox1.Value, 2) <> 0 And Right(TextBox1.Value, 2) <> 25 And Right(TextBox1.Value, 2) <> 50 And Right(TextBox1.Value, 2) <> 75 Then
MsgBox "Heure invalide"
TextBox1.Value = ""
Cancel = True
End If
End If
End Sub


Merci !

Blord