Ajouter données dans table dans plusieurs feuilles via un userform

Bonjour à tous,

Je dois créer un userform me permettant de remplir plusieurs tables dans des feuilles différentes (1 table par feuille)

Les données sont ajoutées dans 10 Controles se trouvant sur le userform.

Les feuilles dans lesquelles ces données vont être envoyées sont choisies à l'aide d'une combox (liste déroulante)

J'ai déjà codé le fait d'avoir les différents noms des onglets sur ma combobox.

Voici mon code où je galère :

'procédure permettant d'ajouter sur la feuille sélectionnée le

' nouvel enregistrement à la fin de la table

Private Sub btnValiderCommande_Click()

Dim nbControle As Integer

Dim NouvelleLigne As Range

Dim MaFeuille As String

'On récupère le nom de la feuille de la liste déroulante

MaFeuille = cboNomFeuille.Value

'On test qu'il y ait bien le nom d'une feuille de sélectionnée

If Me.cboNomFeuille.Value = "" Then

MsgBox "Catégorie de prestation non choisie", vbOKOnly + vbInformation, ""

Exit Sub

End If

'Je récupère le nombre de contrôle dans le Userform

nbControle = 10 'Changer le numéro si vous ajouté de nouveaux contrôles

Je bugge à partir de cette ligne

'On se positionne sur la dernière ligne vide de la table de données

Set NouvelleLigne = Sheets(MaFeuille).Cells(Rows.Count, 2).End(x1up).Offset(1, 0) (la ligne qui bugge)

For x = 1 To nbControle

NouvelleLigne = Me.Controls("Cont" & x).Value

'Me.Cont1.Value = Format(Me.Cont1.Value, "JJ/MM/AAAA")

Set NouvelleLigne = NouvelleLigne.Offset(0, 1)

Next x

'on réinitialise les champs du formulaire à vide

For x = 1 To nbControle

Me.Controls("Cont" & x).Value = ""

Next x

cboNomFeuille.Value = ""

'On affiche un message confirmant la nouvelle saisie dans la table

MsgBox "La nouvelle vente a bien été envoyée sur la feuille : " & MaFeuille, vbOKOnly + vbInformation, "VALIDATION"

End Sub

Si quelqu'un peut me donner un tip, ça serait super cool de votre part.

La bise.

Rechercher des sujets similaires à "ajouter donnees table feuilles via userform"