Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

[LORDDD]

Bonjour à vous tous,

Mon souhait :
Ouvrir un userform
Saisir un text dans un textbox
Prendre la valeur de ce textbox
Ouvrir un autre userform
Coller le texte dans un label

A ce jour voila ce que j'ai fait sur mon premier Userform :

Private Sub CommandButton1_Click()
Dim refusdate As Date
refusdate = TextBoxRefus.Value
MsgBox (refusdate)
Refus1.Hide
Refus2.Show
End Sub

Sur mon 2eme userform

Private Sub UserForm_Activate()
Dat = "Date du jour : " & Format(TextBoxRefus, "dddd d mmm yyyy")
End Sub

Mais ca ne fonctionne pas.

Merci de vos lumières

 

[camarchepas]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Bonjour ,

Comme ceci peut être :

Private Sub UserForm_Activate()
Dat = "Date du jour : " & Format(Refus1.TextBoxRefus, "dddd d mmm yyyy")
End Sub

 

[DoubleZero]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Bonjour, LORDDD, camarchepas , le Forum

LORDDD, qu'en est-il de cette discussion

 

[Staple1600]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Bonsoir à tous , camarchepas, 00


une petite variante qui fonctionne chez moi
Dans un module standard

Public dateRefus

Dans le code de l'userform 1, dans la procédure du CommandButton, insérer cette ligne quelque part

dateRefus=TextBoxRefus

Dans le code de l'userform2

Private Sub UserForm_Activate()
Dat.Caption = Format(dateRefus, """Date du jour : ""dd/mm/yyyy")
End Sub

 

[camarchepas]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Bonsoir Jean Marie , à tous

Et oui , c'est aussi une trés bonne idée en effet .

 

[Si...]

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é :

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

 

[LORDDD]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Voici le document, plus facil pour voir...

 

[Dranreb]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Bonjour.

Personnellement je n'hésiterais pas à mettre dans Refus1 :

Private Sub CommandButton1_Click()
Me.Hide
Refus2.Afficher TextBoxRefus.Text
Unload Me
End Sub

Et dans Refus2 :

Public Sub Afficher(ByVal D As Date)
Dat.Caption = "Date du jour : " & Format(D, "dddd d mmm yyyy")
Me.Show
End Sub

 

[LORDDD]

Re : Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform

Dranreb,

Ta proposition fonctione, par contre je comprend pas la démarche.

Losque l'on attribue une valeur on peut normalement la coller ou l'utiliser à tout moment .

Je vais essayer de comprendre, merci un coup de pouce n'est pas de refus.

Cordialement

 

[Dranreb]

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.