Enregistrer des valeurs sur cellule via USERFORM

Salut à tous,

Voilà j'ai un petit problème avec mon fichier, je souhaiterais depuis la Feuille 1 "Devis" pouvoir ajouter des articles via le bouton présent sur cette feuille, vers la feuille 2 Catalogue article.

Mais j'ai une erreur 9, et je ne comprends pas....

Dim derligne As Integer

If MsgBox("Confirmez-vous l'ajout de l'article ?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("Feuil2").Range("A456541").End(x1Up).Row + 1

Cells(derligne, 1) = TextBox1.Value

End If

Si quelqu'un peut me filer un coups de pouce !

D'autre part comment générer à chaque fois un nouveau n° de devis ? En entrant les informations nécessaires dans le tableau correspondant ?

Je vous laisse mon fichier en PJ

Merci, ++

Bonjour,

il n'y a pas d'onglet nommé "Feuil2" sur votre fichier

sabV a écrit :

Bonjour,

il n'y a pas d'onglet nommé "Feuil2" sur votre fichier

En effet, mais même en la renommant "Catalogue" = Erreur 12

Bonjour,

Private Sub CommandButton1_Click()
Dim derligne As Long
derligne = Sheets("catalogue").Cells(Rows.Count, 1).End(xlUp).Row + 1

If MsgBox("Confirmez-vous l'ajout de l'article ?", vbYesNo, "confirmation") = vbYes Then
 Sheets("catalogue").Cells(derligne, 1) = Me.TextBox3.Value
 Sheets("catalogue").Cells(derligne, 2) = Me.TextBox2.Value
 Sheets("catalogue").Cells(derligne, 3) = Me.TextBox4.Value
 Sheets("catalogue").Cells(derligne, 4) = Me.TextBox1.Value
End If
End Sub