Problème de procédure (VBA / Excel)

Bonjour,

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

Voici mon code d'origine :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'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.

Bonsoir

Je pense que le mieux est de renommer toutes tes textBox et label avec 2 chiffres à la fin tel que
pour les textBox

montant01
montant02
etc...

et pour les Label

remise01
remise02
etc...

ce qui permettra de récupérer ces deux chiffres et les utiliser facilement

Code:

---

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 article(nom As String) Dim num As String   num = Right(nom, 2)   If Controls("montant" & num).Text < 0 Then Controls("remise" & num).Caption = "" If Controls("remise" & num).Caption = "" Then Exit Sub MsgBox "Le prix T.T.C doit être positif !" 'cette ligne ne sert à rien Exit Sub 'celle la non plus End If End Sub     Private Sub montant01_Change() call article (montant01.Name) End Sub   Private Sub montant02_Change() call article (montant02.Name) End Sub   'ainsi de suite

---

je ne sais pas si il y a plus simple

c'est impeccable, c'est exactement ce que je voulais merci à vous.