VBA EXCEL : problème de procédure

Bonjour,

Je cherche à faire une procédure en mettant en paramètres un label et une textbox.

Voici mon code d'origine :

Private Sub 1erarticle_Change()

If montant1.Caption < 0 Then
remise1.Value = ""
If remise1.Text = "" Then Exit Sub
MsgBox "Le prix T.T.C doit être positif !"
Exit Sub
End If
End Sub

Private Sub 2emearticle_Change()
If montant2.Caption < 0 Then
remise2.Value = ""
If remise2.Text = "" Then Exit Sub
MsgBox "Le prix T.T.C doit être positif !"
Exit Sub
End If
End Sub

.....

Je dispose d'une vingtaine d'articles. Donc je suppose qu'il y a une autre façon de faire plutôt que de faire des copier/coller 20 fois.

Du coup, j'ai eu l'idée de faire appel à une procédure mais cela ne fonctionne pas (incompatibilité de type)


'Procédure permettant d'afficher l'erreur
Private Sub article(ByVal remise As TextBox, ByVal montant As Label)

montant As Label
remise As TextBox

If montant.Caption < 0 Then
remise.Value = ""
If remise.Text = "" Then Exit Sub
MsgBox "Le prix T.T.C doit être positif !"
Exit Sub
End If

End Sub

Private Sub 1erarticle_Change()
Call article(remise1, montant1)
End Sub

Private Sub 2emearticle_Change()
Call article(remise2, montant2)
End Sub

--------

Comment résoudre ce problème ?

En vous remerciant par avance pour vos éventuelles réponses.