somme listbox

[fileofish]

Bonjour à tous,

Voilà j'ai un petit problème.
J'ai dans un formulaire 2 listbox (a & b)
lorsque je valide mon formulaire j'ai des contrôles bloquants:
if a.Value + b.Value <> 100 Then GoTo Erreur20
Erreur20:
Message = MsgBox("La somme doit être égale à 100", vbOKOnly)
Exit Sub

Malheureusement ca ne marche pas quelqu'un sait pourquoi?
(est ce que les valeurs sont considérees comme du texte)

Merci beaucoup

 

[Compte Supprimé 979]

Re : somme listbox

Salut FileoFish,

Difficile de dire comme ça, sans fichier !

Pourquoi mettre un Goto !?
Si tu veux essayer de faire pro 😀 mieux vaur éviter d'en mettre 😉

Pour moi il vaut mieux faire

[COLOR=black]If Val(Me.a) Val(Me.b) <> 100 Then
  Message = MsgBox("La somme doit être égale à 100", vbOKOnly)
  Exit Sub[/COLOR]
End IF[COLOR=black]
[/CODE[/COLOR]]
 
A+

 

[fileofish]

Re : somme listbox

Merci Bruno Pour Ton Aide
Ca Marche Nickel 😉
Philippe