XL 2016 Erreur dans l'utilisation des classes

[Ecaterina]

Bonjour,
En cadre de mon projet je dois utiliser les la fonction des classes. Donc j'ai créé une classe demande_client et ensuite j'ai crée une fonction qui fait le calcul à partir des attributs de la classe. La fonction qui est censée de faire ce calcul est appelée quand l'utilisateur clique sur le bouton du userform. Mais une erreur s'affiche. Voici les photos des mes codes et mon fichier.
Ca fait des heures que je suis bloquée, pouvez-vous m'aider svp?

 

[Dranreb]

Bonsoir
Il est probable que le calcul dépasse 32767 et tiendrait dans un Long mais pas dans un Integer.

 

[soan]

Bonsoir Ecaterina, Dranreb,

bienvenue sur le site XLD !

voici un petit complément à la réponse de Dranreb :

a) sur excel2.PNG, Sub CommandButton1_Click() : Dim contrainte1 As Integer

b) sur excel4.PNG, Function contrainte() As Integer : Dim iContrainte As Double​

et : contrainte = Int(iContrainte) ➯ plantage si la partie entière de iContrainte
est hors de la plage -32 768 à 32 767 ! cette fonction appelle Section(), qui elle
aussi mélange Integer et Double :

vérifie le contenu de xrayon_section, et si Int(iSection) tient dans l'Integer qui
est retourné par : Public Function Section() As Integer.

c) sur excel3.PNG, on peut lire : Public xrayon_section As Integer ; peut-être
qu'il faudrait un type Double ? essaye sosie et clone.

soan