Problème de suppression dans un TextBox !

Version imprimable

Je continue sur mon projet de suivi de vols journaliers, et je suis confronté à un soucis.

Les heures de vols sont en centièmes. J'ai donc créé une case txt heure centième (nommée txtHHC) où à chaque changement dans cette case, il se passe un événement dans la case txt heure/minutes/secondes (nommées txtHHM) située juste après sur le
Code:

1 2 3 4 Private Sub txtHHC_Change txtHHC.Value = Replace(txtHHC.Value, ".", ",") ´ je transforme les points en virgule txtHHM.Value = Format((txtHHC.Value / 24), "hh:mm:ss") ' je remplace heures centièmes en heure minute End Sub
Cela fonctionne mais !
Primo si je rentre une valeur autre que des chiffres où le point où la virgule, j'ai une erreur que j'aimerai ignorer
Secundo, lorsque j'ai saisi dans mon txt centième la valeur, si je fais à nouveau le focus dessus avec ma souris pour changer totalement la valeur avec la touche BackSpace du clavier, et bien à la suppression de tous les caractères, il me sort une erreur de type.
Je peux aller avec ma souris dans la case et changer un chiffre mais en aucun cas je ne peux tout y supprimer via cette fameuse touche BackSpace. À savoir que je n'ai pas essayer la touche Supp 🤔 !
Je ne sais pas trop si je suis assez clair là ?
De plus j'ai limité à 4 le nombre de caractère via les propriétés du TxtBox ! Est ce qu'il y aurait une incidence à cela ?

Merci à vous tous.

Cordialement.

Citation:

Envoyé par Tony4152

Primo si je rentre une valeur autre que des chiffres où le point où la virgule, j'ai une erreur que j'aimerai ignorer

Bonjour,

Pour contrôler la saisie dans le TextBox, vous pourriez ajouter ce code limitant la saisie aux seuls caractères contenus dans la fonction Instr :
Code:

1 2 3 4 Private Sub txtHHC_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890,", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub
Citation:

Secundo, lorsque j'ai saisi dans mon txt centième la valeur, si je fais à nouveau le focus dessus avec ma souris pour changer totalement la valeur avec la touche BackSpace du clavier, et bien à la suppression de tous les caractères, il me sort une erreur de type.

Il faut transformer la valeur du TextBox en valeur numérique, ou l'assigner à 0 si vide avant de faire la division par 24.
Code:

1 2 3 4 5 Private Sub txtHHC_Change txtHHC.Value = Replace(txtHHC.Value, ".", ",") ´ je transforme les points en virgule txtHHM.Value = Format((CDbl(txtHHC.Value) / 24), "hh:mm:ss") ' je remplace heures centièmes en heure minute End Sub

09/03/2017, 07h49
Tony4152

Bonjour Éric.

Comme à chaque réponse, je reste toujours sur le c.. si je puis me permettre.
Mais comment savez-vous tout cela vous les internautes ?
Je teste cet après-midi et te tiens au courant des événements. Mais je doute que cela ne fonctionne pas 😉
Par la même occasion, je vais aller étudier ces fonctions InStr et CDbl. Car s'il est toujours plaisant de se faire aider je crois qu'il est aussi gratifiant d'apprendre du savoir des autres.

Un grand grand merci.
10/03/2017, 04h41
Tony4152

Retour d'expérience !

Alors, concernât la saisie dès caractère, ça fonctionne très bien. Au point de l'avoir utilisé dans d'autres UserForm.
Par contre la suppression de l'ensemble d'un textbox par la touche Supp ou BackgSpace du clavier me donne une erreur de type avec un chiffre 13 !
Là je sèche 🤒
Si tu as une autre idée Éric, je suis preneur.
Je laisse le sujet ouvert.

À bientôt.

Citation:

Envoyé par Tony4152

Bonjour,

A essayer :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub txtHHC_Change()
 
    txtHHC.Value = Replace(txtHHC.Value, ".", ",") '´ je transforme les points en virgule
    If txtHHC <> "" Then
       txtHHM.Value = Format((txtHHC.Value / 24), "hh:mm:ss") ' je remplace heures centièmes en heure minute
    Else
       txtHHM.Value = Format(0, "hh:mm:ss") ' je remplace heures centièmes en heure minute
    End If
 
End Sub

10/03/2017, 13h04
Tony4152

Hello,

Merci Éric, voilà qui fonctionne à merveille. Je pense que tu n'en doutais pas. Le 0 est enfin reconnu et cela m'arrange car lorsque le vol est annulé j'ai quand même besoin d'afficher les heures en heure/minute afin d'effectuer un calcul global des heures.
Mais une solution amène parfois un problème 😞
Je me suis aperçu sans le vouloir qu'en tapant d'abord la virgule, cela engendre une erreur. Je pensais qu'en affichant la virgule, le zéro s'inscrivait automatiquement ?

Citation:

Envoyé par Tony4152

Il faut tester le cas avec la fonction Mid et remplacer la virgule par "0,"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub txtHHC_Change()
 
    txtHHC.Value = Replace(txtHHC.Value, ".", ",") '´ je transforme les points en virgule
    If txtHHC <> "" Then
       If Mid(txtHHC, 1, 1) = "," Then txtHHC = "0,"
       txtHHM.Value = Format((txtHHC.Value / 24), "hh:mm:ss") ' je remplace heures centièmes en heure minute
    Else
       txtHHM.Value = Format(0, "hh:mm:ss") ' je remplace heures centièmes en heure minute
    End If
 
End Sub

10/03/2017, 13h47
Tony4152

Ok je vois cela ce soir si je retourne au boulot ou demain 😉

Mais d'abord voir la fonction Mid ! 🙄🤔

Merci Éric. On va bien finir par clore le sujet un jour ! 😂
11/03/2017, 13h18
Tony4152

Un grand merci Éric.
Tout fonctionne à merveille.
C'est souvent ces petits événements impromptus dans les programme qui peuvent vite nuire. Mais là super 👍
Je clos le sujet 😌
À bientôt.