Bonsoir à tout le monde.
Je suis en train de mettre en place pour mes cours un "logiciel" de gestion de stock dans une entreprise.

J'ai relativement bien avancé mais comme dit dans le titre, J'ai des problèmes avec l'utilisation de la fonction END(XLDOWN) ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Private Sub Enter1_Click()
Dim Produit As String
'produit

Dim quantité As Integer
'quantité

Dim variable As String

Dim variable2 As String

variable = Range("A1").End(xlDown).Row + 1

variable2 = Range("B1").End(xlDown).Row + 1

Produit = TextBox1.Value
quantité = TextBox2.Value

Cells(variable, 1).Value = Produit

Cells(variable2, 2).Value = quantité

End sub
Bref, mon programme ne veut pas marcher (logique) et me renvoit toujours à ce que j'ai balisé en rouge.
Je ne comprend pas pourquoi et si quelqu'un pourrait m'aider ce serait vraiment sympa.