debut valeur TextBox

[Bruce68]

Bonsoir à tous

Dans une textBox je peux avoir 9H00 ou 15H00 ( 1 ou 2 chiffres devant le H) comment faire dans une macro pour pouvoir recuperer le ou les chiffres se trouvant devant le H sans etre oblige de mettre 09H00 pour avoir toujours 2 chiffffres devant le H, risque d'oublier le 0.
je veux recuperer ce chiffre : si avant 13H00 = Matin sinon APRES MIDI.
Je vous remercie de votre aide.

 

[Cousinhub]

Re : debut valeur TextBox

Bonjour,

en haut du code, tu mets :

Option Compare Text

afin de t'affranchir des minuscules ou majuscules (h ou H)

puis, pour récupérer l'heure, tu fais :

x = Val(Left(Me.TextBox1, InStr(1, Me.TextBox1, "H") - 1))

 

[Bruce68]

Re : debut valeur TextBox

Bonsoir à tous
Merci bhbh pour ta solution cela fonctionne bien mais maintenant j'ai un souci c'est en fermant mon UserForm il repasse par la macro ci dessous ct cela provoque une erreur .

Private Sub TextBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)
j = Val(Left(Me.TextBox2, InStr(1, Me.TextBox2, "H") - 1))

If j < 13 Then
Label1.Visible = True
Else
Label2.Visible = True
End If

End Sub
Merci pour toute l'aide

 

[Cousinhub]

Re : debut valeur TextBox

Bonjour,

essaie en rajoutant ceci :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Fermeture = 1
End Sub

en haut du code :

Dim Fermeture As Integer

et dans l'exit de la textbox :

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Fermeture = 1 Then Exit Sub
.....

 

[Bruce68]

Re : debut valeur TextBox

Bonsoir à tous

Merci bhbh j'ai tout rajouté et je peux fermer mon UserForm sans erreur, c'est impeccable
Merci encore et bon dimanche à tous