Formulaire ajouter un article

Bonjour,

j'ai crée un formulaire ajouter un article mais le code vba ne marche pas. A partir du formulaire Ajouter un article, normalement le nouveau article crée doit s'afficher dans la feuille Article à la suite des autres.

Je joins le fichier.

Merci d'avance pour votre aide.

bonjour,

proposition de correction

Private Sub CommandButton1_Click()

'Declaration des variables'

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim finligne As Integer
Dim erreur1 As Long
Dim erreur2 As Long
Dim erreur3 As Long
Dim erreur4 As Long
Dim erreur5 As Long

' Declarion feuille utilisée'

With Worksheets("Articles")
finligne = .Range("A65536").End(xlUp).Row + 1

' boucle controle remplisage des champs avec les numeros de tag'

For Each Ctrl In AjoutArticle.Controls

r = Val(Ctrl.Tag)

If r > 0 Then .Cells(finligne, r) = Ctrl

Next

End With

Unload AjoutArticle

End Sub

Merci pour la réponse. J'ai essayé que le code que vous m'avez donné mais un message d'erreur s'affiche lorsque j'exécute le code.

Voici ce qui s'affiche :

Erreur d'exécution 424 : Objet requis

Désolé c'était le nom d'un objet qui n'était pas correct, du coup j'ai modifié et ça marche mais je retrouve pas l'article ajouté dans la feuille Excel "Articles".

bonsoir

A tester

Le transfert des données de l'userform se fait dans l'onglet Article

Clt

JPH

merci beaucoup pour votre aide

si vous pouvez supprimer le fichier que vous avez joint à mon projet, ça me ferait plaisir car j'ai peur que certains de mes camarades de classe viennent télécharger le meme fichier. Encore merci