[Résolu] Report date dans différentes TextBoxs

[maninwhite]

Bonjour à toutes et à tous

Lorsque je double click sur un textbox, j'ai un userform avec un calendrier qui s'ouvre qui me permet de choisir une date et lorsque je clique sur la date la valeur est reportée.

Private Sub TextBox_date1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendrier.Show

End Sub

Private Sub Calendar1_Click()

reporter_un_incident_part1.TextBox_date.Value = Format(Calendar1.Value, "dd/mm/yy")
reporter_un_incident_part4.TextBox_date1.Value = Format(Calendar1.Value, "dd/mm/yy")
reporter_un_incident_part4.TextBox_date2.Value = Format(Calendar1.Value, "dd/mm/yy")
reporter_un_incident_part4.TextBox_date3.Value = Format(Calendar1.Value, "dd/mm/yy")
reporter_un_incident_part4.TextBox_date4.Value = Format(Calendar1.Value, "dd/mm/yy")
reporter_un_incident_part4.TextBox_date5.Value = Format(Calendar1.Value, "dd/mm/yy")

End Sub

Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub

Comme vous pouvez le voir, la date cliquée est reportée dans plusieurs TextBoxs.
J'aimerai que la valeur soit uniquement reportée dans le TextBox cliqué.

Merci

 

[Pierrot93]

Re : Report date dans différentes TextBoxs

Bonjour,

en supposant 2 userforms :

Private Sub Calendar1_Click()
UserForm1.ActiveControl = CDate(Calendar1.Value)
End Sub

bon après midi
@+

 

[maninwhite]

Re : Report date dans différentes TextBoxs

Comme dh'abitude, mon sauveur est là.

J'avais trouvé la commande ActiveControll, mais ma syntaxe n'était pas correcte.

Merci