Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform
salut
avec une seule macro, par contre avec un test de validité :
VB:
Private Sub CommandButton1_Click()
If Not IsDate(TextBoxRefus) Then _
MsgBox "une Date svp !", 16, "": TextBoxRefus = "": Exit Sub
Refus2.Label1 = "Date du jour : " & Format(TextBoxRefus, "dddd d mmm yyyy")
Refus1.Hide: Refus2.Show
End Sub
un particulier à DoubleZero sans oublier les autres
Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform
Un module d'Userform est un module objet. Les éléments Public en sont des méthodes ou des propriétés. On ne peut les utiliser en dehors de lui qu'à condition de préciser, devant, le nom de l'objet suivi d'un point. Refus2 en l'occurrence.
Bien que les contrôles d'un Userform soient des éléments Public, ma démarche procède d'une répugnance à aller bricoler dans les contrôle d'un autre Userform. Comme c'est un objet, il doit être équiper de ce qu'il faut pour pouvoir le manipuler selon nos besoins. On ne doit pas avoir à s'en mêler de l'extérieur, juste pouvoir lui indiquer avec quoi travailler. C'est à lui de savoir quoi en faire. Mais bon, ce n'est qu'un point de vue, une philosophie de ma programmation. Quand je suis dans un module objet, je ne suis plus dans un autre et je ne veux plus rien savoir de sa cuisine interne.