Discussion :

[CmzxNene]

Bonjour à tous,

Je viens de m'apercevoir d'un bug dans une appli que j'aie créée dernièrement.
Je résume les étapes en simplifiant :

1) J'ouvre un USERFORM de saisie
2) J'ai un champ Heure (TxtHeure) sous lequel j'ai le code suivant (contrôle des heures et des minutes ainsi que l'ajout des ":" entre les heures et les minutes) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub TxtHeure_Change()
 
On Error Resume Next
Dim Texte As String
Texte = TxtHeure.Text
 
Select Case Len(Texte)
Case 2
    If CInt(Texte) > 23 Then
        MsgBox ("Vous avez saisi des heures supérieures à 23")
        Texte = ""
    Else
        Texte = Texte & ":"
    End If
Case 5
    If CInt(Right(Texte, 2)) > 59 Then
        MsgBox ("Vous avez saisi des minutes supérieures à 59")
        Texte = ""
    End If
End Select
 
TxtHeure.Text = Texte
 
On Error GoTo 0
 
End Sub

3) Je saisi la suite des autres champs
4) Je clique sur le bouton "Valider" pour enregistrer mes données sous un onglet spécifique.
5) Mon code pour écrire le champ TxtHeure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("Données").Activate
...
Range("D" & num).Value = TxtHeure.Value
...

Jusque là, tout va bien

6) J'ai un second USERFORM (identique au premier) qui me permet de rappeler mes données si j'ai des modifs à effectuer.
7) A l'initialisation, le champ TxtHeure prend bien la valeur saisie à l'origine par le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
...
    TxtHeure.Value = ValidHeure 'ValidHeure  est récupéré de la manière suivante dans un formulaire de choix ==> ValidHeure = Format(Sh.Range("D" & .List(.ListIndex, 4)), "hh:mm")
...

MON PROBLEME

Si je veux modifier l'heure, mes contrôles ne fonctionnent plus sur ce champ !
Les ":" ne s'affichent plus non plus.

Pourtant mes contrôles ont bien été copiés dans le code de ce 2ème formulaire.

Si quelqu'un a réussi à déchiffrer ma demande, je suis preneur de tous les commentaires.

Merci

[Daniel.C]

Bonjour,

La variable "ValidHeure" contient du texte et non pas une heure. Il est possible que ton erreur vienne de là.

[CmzxNene]

Bonjour Daniel,

Effectivement, je pense que tous mes champs que je récupère pour alimenter mon 2ème USERFORM sont des champs texte.
Maintenant il va falloir que je réfléchisse à la meilleure méthode pour qu'ils redeviennent au format d'origine.

As-tu une idée pour récupérer mon champ txtHeure ?

Cordialement

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim ValidHeure As String
TxtHeure.Value = CDate(ValidHeure)

[CmzxNene]

Bonjour Daniel,

Merci pour ce code mais cela ne fonctionne toujours pas.

Dans mon champ TxtHeure de mon 2ème USERFORM, j'ai bien la bonne valeur qui apparait (ex : 11:45) mais si je veux la modifier mon contrôle suivant ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub TxtHeure_Change()
 
On Error Resume Next
Dim Texte As String
Texte = TxtHeure.Text
 
Select Case Len(Texte)
Case 2
    If CInt(Texte) > 23 Then
        MsgBox ("Vous avez saisi des heures supérieures à 23")
        Texte = ""
    Else
        Texte = Texte & ":"
    End If
Case 5
    If CInt(Right(Texte, 2)) > 59 Then
        MsgBox ("Vous avez saisi des minutes supérieures à 59")
        Texte = ""
    End If
End Select
 
TxtHeure.Text = Texte
 
On Error GoTo 0
 
End Sub

Si je supprime 11:45 et que je mets (en me trompant bien sûr) 25:63, le résultat affiché est 2563 ==> pas de contrôle sur l'heure, les minutes et pas de ":"

Là, je sèche.

Merci de votre aide

_________________
Cordialement

[Daniel.C]

Bonjour,

J'ai testé ton code et la saisie de "25" dans le textbox provoque bien l'affichage du message d'erreur. Peux-tu mettre ton classeur - sans données confidentielles - en pièce jointe ?