Remplir un tableau avec un userform

Bonjour,

Le titre n'est peut-être pas parlant. Je souhaite après avoir saisie dans un userform 2 textbox puis une saisie d'un nombre x de combox, écrire ligne par ligne avec txt1 et txt2 toujours identique tant que combox 1

à ? n'est pas vide. La valeur de la combox x dans une troisieme colonne.

Je joins mon fichier, ce sera plus parlant

Merci de votre aide

bonjour,

je suppose que vous voulez ceci

Private Sub cbnCValider_Click()

     Dim ptr, Res(1 To 20, 1 To 5)    '20 est le max possible et 4 données par règle, moi, j' ajouté un 5ieme.
     ptr = 0

     ' recherche du nombre de produit saisie
     For i = 20 To 1 Step -1
          If Controls("cbxprod" & i).Value <> "" Then
               ptr = ptr + 1     'nombre de données
               Res(ptr, 1) = ID_CC
               Res(ptr, 2) = Date
               Res(ptr, 3) = "'" & Me.cbxJuratsC.Value     'le ' c'est pourque le prefix 0 reste
               Res(ptr, 4) = Me.cbxTable.Value
               Res(ptr, 5) = Controls("cbxprod" & i).Value     '---> ajouter !!!
          End If
     Next

     If ptr > 0 Then
          Sheets("Concours").ListObjects("T_Controle").ListRows.Add.Range.Range("A1").Resize(ptr, UBound(Res, 2)).Value = Res
     End If

End Sub

Exactement. Parfait

Merci 1000 fois