Passage variable d'un USF à un autre USF

  • Initiateur de la discussion Initiateur de la discussion JBSB
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

JBSB

Guest
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour