Autres Textbox personnalisé

chaelie2015

XLDnaute Accro
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

XLDnaute Barbatruc
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

XLDnaute Accro
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+
 

chaelie2015

XLDnaute Accro
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
299 847
Messages
1 979 553
Membres
206 771
dernier inscrit
Charles Fabre