Autres Textbox personnalisé

chaelie2015 · 8 Février 2022

Bonjour
Dans mon Userfom? j'ai deux textbox, le 1er nommé "txtDépart" et le 2eme nommé "txtNenregistrement"
je souhaite lors du saisi un chiffre dans le textbox "txtNenregistrement" il affiche automatiquement dans ce dernier le format suivant
"chiffre/BEL/Année("txtDépart")
exemple : dans le 1 textbox : 28/11/2021
dans le 2em Textbox, si je saisi 12 j'aurai ce que suit : 012/BEL/2021.
Merci

Lolote83 · 8 Février 2022

Bonjour CHAELIE2015,
Peut être comme ceci.
Une fois la valeur saisie dans TxtNenregistrement, valider

Code:

Private Sub txtNenregistrement_AfterUpdate()
    txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
End Sub

Enfin si j'ai bien compris
@+ Lolote83

chaelie2015 · 8 Février 2022

Lolote83 à dit:
Bonjour CHAELIE2015,
Peut être comme ceci.
Une fois la valeur saisie dans TxtNenregistrement, valider

Code:

Private Sub txtNenregistrement_AfterUpdate() txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart) End Sub

Enfin si j'ai bien compris
@+ Lolote83

bONJOUR
Lolote86
C'est parfait , mais il reste un souci si la date de txtDépart est vide j'ai un bug
a+

Lolote83 · 8 Février 2022

Re bonjour,
Peut être en testant si date<>vide

VB:

Private Sub txtNenregistrement_AfterUpdate()
    If txtDépart <> "" Then
        txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
    End If
End Sub

@+ Lolote83

chaelie2015 · 8 Février 2022

Lolote83 à dit:
Re bonjour,
Peut être en testant si date<>vide

VB:

Private Sub txtNenregistrement_AfterUpdate() If txtDépart <> "" Then txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart) End If End Sub

@+ Lolote83

Merci pour la réponse
et si le textbox txtDépart est vidé alors vider txtNenregistrement et aller vers txtDépart

mais " txtDépart.SetFocus" ça n'a pas fonctionné pourquoi ?
a+

VB:

Private Sub txtNenregistrement_AfterUpdate()
If txtDépart <> "" Then
    txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
Else
    MsgBox " veuillez saisir la date de départ"
    txtDépart.SetFocus
    txtNenregistrement.Value = ""
End If
End Sub

Autres Textbox personnalisé

chaelie2015

XLDnaute Accro

Lolote83

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Lolote83

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires