Passage variable d'un USF à un autre USF

[JBSB]

Bonsoir à tous,

J'aurais une petite question à poser. Je me trouve devant un petit problème. Depuis l'USF1 (textbox1), j'appelle l'USF2 qui est un calendrier. De l'USF2, je choisi une date et j'aimerai retourner directement (fermeture USF2) à l'USF1 avec la date qui s'inscrit dans le textbox1 de l'USF1. Je n'arrive pas à faire cela actuellement. Quelqu'un pourrait-i m'aider svp.

Merci et bonne soirée à tous !

JBSB.

 

[jacquesderyes]

Bonjour JBSB

Pour envoyer la valeur de ta variable de UF2 à UF1 tu écris le code suivant dans le module du UF2 et dans l'évènement sélectionné,par exemple ici un CommandButton:

Private Sub CommandButton1_Click()



Dim maVariable As Date
maVariable = Me.ListBox1.Value
UserForm1.TextBox1.Value= Format(maVariable, "dd/mm/yyyy")


Unload UserForm2

End Sub

Losque l'on utilise un calendrier sur un UF il est souhaitable de renvoyer la selection sur un TextBox dans ce même UF,ce qui permêt de visualiser la date choisie avant de l'envoyer ailleurs.

Supposons que ton calendrier soit affiché par un ListBox.Nous aurons le code suivant

Private Sub ListBox1_Click()
Dim transdate As Date
transdate = ListBox1.Value
TextBox1 = Format(transdate, "dd/mm/yyyy")
(avec excelXP mettre TextBox1 = VBA.Format(transdate, "dd/mm/yyyy")

End Sub

Private Sub CommandButton1_Click()
UserForm1.TextBox1=Me.TextBox1
Unload UserForm2
End Sub

J'espère que celà t'aidera.

Bien amicalement
Jacques de ryes