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.