Formulaire de saisie des données / VBA Excel

supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -
Je tente de créer un formulaire dans Excel que les utilisateurs pourront utiliser pour faire de l'entrée de données dans Excel. Voici mon code VBA


Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirm?", vbYesNo, "OK") = vbYes Then
derligne = Sheets("database").Range("A456541").End(x1up).Row + 1
Cells(derligne, 1) = TextBox1.Value
End If


End Sub

j'obtiens toujours une erreur d'exécution et quand je click sur le débogueur on m'amène à la ligne de code:

derligne = Sheets("database").Range("A456541").End(x1up).Row + 1


je ne comprend pas ce qu'il manque? quelqu'un pourrait m'aidé?

Merci à l'avance
A voir également:

2 réponses

supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   1
 
Maurice... Merci beaucoup pour ton aide!
1
Maurice
 
Bonjour
tu a mis 1 a la place de l
derligne = Sheets("database").Range("A" & Rows.Count).End(xlUp).Row + 1

a=
Maurice
0