Excel: Est-il possible de faire converger plusieurs sorties ComboBox en une seule cellule?

Context : ma feuille de calcul Excel se compose d'un formulaire d'user qui envoie plusieurs feuilles. Une fonction de cette forme d'user est un sélecteur de date, qui est souhaité pour sortir à une seule cellule. Cependant, en raison de la nature de son design (Obtenu chez un gentleman de ce site particulier, Doug Glancy), il se compose de trois comboboxes.

Il s'affiche comme suit :

[ComboBox1: Day] [ComboBox2: Month] [ComboBox3: Year]

Voici une image de reference visuelle

• vba Excel sortinger les éléments de la combinaison par valeur de la cellule et sélectionner automatiquement l'option correspondante
• Problème Excel Excel Combobox
• boîtes combinées activeX
• Utilisez la valeur de combobox en tant que critère d'autofilter lié au button macro sur la feuille en tant que triggersur
• Macro qui utilise la valeur d'une combobox pour filterr automatiquement une colonne spécifique

Existe-t-il une méthode particulière pour forcer une concision de plusieurs sorties en une seule cellule? Et sinon, quelle serait une méthode alternative pour get un résultat similaire?

Edit: Voici mon code actuel pour la transmission de données à partir du formulaire user:

Sub Transfer() Dim emptyRow As Long 'Make Sheet2 active Sheet2.Activate 'Determine emptyRow emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1 'Transfer information Cells(emptyRow, 2).Value = TextBoxSON.Value Cells(emptyRow, 3).Value = TextBoxJobDescription.Value Cells(emptyRow, 4).Value = TextBoxCustomer.Value Cells(emptyRow, 5).Value = TextBoxQuantity.Value Cells(emptyRow, 6).Value = TextBoxDateRequired.Value Dim LR As Integer LR = Range("B" & Rows.Count).End(xlUp).Row Application.EnableEvents = False Range("A4:BB" & LR).Sort Key1:=Range("A4"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Application.EnableEvents = True End Sub 

Edit: Un grand merci à CLR pour la réponse:

 mydate = DateSerial(cboYear.Value, cboMonth.Value, cboDay.Value) Cells(emptyRow, 6).Value = mydate 

Ce code permet d'afficher datatables exactement comme vous le souhaitez. J'espère que cela aidera quelqu'un dans le futur.

( Informations inexactes (mais apparemment nécessaires) : Hé, je suis un nouvel user SO. Après des heures (et des heures) d'essayer de find et de comprendre ce problème, je ne suis pas arrivé à une conclusion possible et, avec les mains en colère du L'horloge me montrant furieusement, je suis obligé (honteusement) de poser cette question.

Je ne suis pas compétent pour l'excellence ni l'alphabétisé VBA. Cependant, j'ai lentement appris la langue à travers des sites tels que HomeandLearn.org pour surmonter mes difficultés, mais apparemment sans utilité pour ce problème particulier. Je dois m'excuser à l'avance pour toute utilisation inappropriée ou une mauvaise utilisation de la terminologie ou toute autre mauvaise compréhension mal informée qui a été faite dans ma question ci-dessus. J'ai essayé de me familiariser avec la communauté et les règles de ce site avant de poser cette question et j'ai beaucoup cherché une réponse.

Toute aide serait appréciée. Je vous remercie.)

• Remplissage de la zone de list déroulante avec une colonne de la feuille Excel C #
• Pourquoi la boucle For réplique-t-elle la procédure?
• Erreur VBA Excel Userform 1004
• Rassemblez un ComboBox de UserForm avec des en-têtes de colonne, qui se réfèrent à la colonne par adresse
• Excel VBA Comstack Error with Ssortingng Array

  mydate = ComboBoxDay.Value & ComboBoxMonth.Value & ComboBoxYear.Value Cells(2, 7).Value = mydate 

  mydate = DateSerial(ComboBoxYear.Value, ComboBoxMonth.Value, ComboBoxDay.Value) Cells(2, 7).Value = mydate 

 MyDate = ComboBox1.Value & ComboBox2.Value & ComboBox2.Value Cells(emptyRow, 7).Value = MyDate