Autres enregistre non pas en ligne mais en colonne

RE-bonnour,


Comme je l'ai indiqué dans ma présentation (à lire de toute urgence !) je vous soumets une petite interrogation (je ramasse les copies dans 1h30) !
Pour faire simple j’ai créé un formulaire avec des combobox et textebox. Lorsque l’on choisi dans l’une des combobox un chiffre allant de 1 à 5 j’ai 1 à 5 textbox qui s’affiche(nt). Jusque-là pas de soucis.

Le petit hic c’est que j’aimerais que les données des textbox qui s’affichent se compilent dans mon tableau dans la même colonne mais à la suite donc par exemple :

Si ma combobox contient le chiffre 4 j’ai 4 textboxe qui s’affiche que je nomme disons Txtb1 Txtb2 Txtb3 Txtb4

Les données de ces 4 textbox doivent s’enregistrer lorsque je clic sur le bouton valider dans le tableau à dans la colonne F les unes au-dessus des autres puisque ces 4 texbox contiennent le même type de donnée.

J’ai réussi à faire en sorte de recopier X fois le contenu des autre texbox ou combobox dans leur colonnes respectives mais enregistrer des données de sources différentes dans la même colonne je sais pas faire.

Quelqu’un a-t-il une idée ?

J'ai cette partie de code pour le boutton valider

Private Sub CommandButton3_Click()
Dim L As Long
Dim Derlign As Long
Derlign = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row
If TextBox7 <= TextBox2 Or TextBox2 = "" Or TextBox2 = "JJ/MM/AA" Or TextBox3 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox7 = "JJ/MM/AA" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox4 = "" Or TextBox8.Visible = True And TextBox8 = "" Or TextBox9.Visible = True And TextBox9 = "" Or TextBox10.Visible = True And TextBox10 = "" Or TextBox11.Visible = True And TextBox11 = "" Or TextBox12.Visible = True And TextBox12 = "" Then
MsgBox ("Compléter toutes les informations / La date de délai doit être inférieure à la date de l'événement")
Else
If MsgBox("Voulez-vous confirmer l'ajout de ces données ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
For L = 1 To Val(ComboBox5.Value)
Cells(Derlign + L, 1) = ComboBox1.Value
Cells(Derlign + L, 2) = ComboBox2.Value
Cells(Derlign + L, 3) = ComboBox4.Value
Cells(Derlign + L, 7) = ComboBox5.Value
Cells(Derlign + L, 4) = TextBox2.Value
Cells(Derlign + L, 5) = TextBox3.Value
Cells(Derlign + L, 8) = TextBox6.Value
Cells(Derlign + L, 9) = TextBox7.Value
Next
End If

' Affiche une boîte de message
MsgBox ("Données insérées dans la base de donnée") 'Vous informant que le présent contact est inséré dans votre tableau Excel.

Unload Me ' Vide et ferme l'Userform ( formulaire)
End If
End Sub


Merci par avance pour votre aide