Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
Lolote86
C'est parfait , mais il reste un souci si la date de txtDépart est vide j'ai un bug
a+
 

Lolote83

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

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…