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