Discussion :

[chargeur123]

Bonjour,

si l'utilisateur frappe "50" donc je stocke la valeur "0050" dans ma zone de texte
si l'utilisateur frappe "100" donc je stocke la valeur "0100" dans ma zone de texte
j'ai le code suivant. Mais ce marche pas le curseur reste bloqué sur le champ [LstDN]

de l'Aide SVP

MERCI

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
 
Private Sub LstDN_BeforeUpdate(Cancel As Integer)
Cancel = True
 
If LstType.Value <> "Vanne Murale" Then
 
      Select Case Len(LstDN.Text)
        Case Len(LstDN.Text) = 2
             LstDN.Value = "00" & LstDN.Value
 
        Case Len(LstDN.Text) = 3
             LstDN.Value = "0" & LstDN.Value
 
      End Select
End If
End Sub

[RobiPMS]

Bonjour.
Une proposition:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub LstDN_AfterUpdate()
If LstType.Value <> "Vanne Murale" Then
    If Len(Me.LstDN) = 2 Then
    Me.LstDN.Value = "00" & Me.LstDN.Value
    Exit Sub
    ElseIf Len(Me.LstDN) = 3 Then
    Me.LstDN.Value = "0" & Me.LstDN.Value
    Exit Sub
    End If
End If
End Sub

Ainsi, après la mise à jour du champ, quand l'utilisateur quitte le champ par tab ou Enter ou clique ailleurs, si LstType n'est pas "Vanne murale", la valeur est remplacée par ce que tu souhaites stocker.
Peut-être aussi penser à gérer les cas où l'utilisateur entre autre chose qu'une suite de 2 ou 3 chiffres...?
Cordialement.

[chargeur123]

Bonjour,
Merci pour cette aide.
j'ai essayer ton code mais il me sort une erreur 2115

[RobiPMS]

Bonjour.
Tu es bien dans l'événement "Après mise à jour"?!!!
As-tu effacé pour faire l'essai l'événement "Avant mise à jour"?

[chargeur123]

Ca marche

merci beaucoup