Changement de textbox automatiquement selon une autre textbox

[chaelie2015]

Bonjour forum
Je souhaite modifier le contenue de TextBox123 automatiquement selon la TextBox122
Si TextBox122 contiens une date alors modifier le Texte de TextBox123 de "en cours" au "Établie le"
ci dessous le code mais ça n'a pas fonctionné parfaitement ??

Private Sub TextBox123__Change()
If TextBox122 <> "" Then
TextBox123.Value = "Etablie le"
TextBox124.Value = ""
Else
TextBox123.Value = "En cours"
End If
End Sub

SALUTATIONS

 

[sousou]

Re : Changement de textbox automatiquement selon une autre textbox

bonjour
tu peux essayer ceci
le keydown sert à détecter la fin de saisie, exit n'étant pas possible parcque tu n'as qu'un controle valide

Controle() est utilisé pour vérifier le contenu du texte box il faut peut-être y ajouter un ensemble de date possible.

Private Sub TextBox122_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then controle (Me.TextBox122)
End Sub

Sub controle(texte)
On Error Resume Next
d = CDate(texte)
MsgBox Error
If Error = "" Then
Me.TextBox123 = d
Else
Me.TextBox122.Value = ""
End If
On Error GoTo 0
End Sub

 

[chaelie2015]

Re : Changement de textbox automatiquement selon une autre textbox

Bonjour SOUSOU
Merci pour la réponse je vais la tester
salutations