Bonjour à tous,

Je développe actuellement sur Excel une application qui calcule des tarifs.
L'utilisateur sélectionne son produit dans une zone de liste puis note la quantité dans une cellule.
Il clique ensuite sur un bouton calculer.

Le tarif est alors calculé.
Cela fonctionne jusqu'à 400 ex de quantité. Si on rentre 401 j'ai droit à un message d'erreur "croix + 400"

Si vous pouviez m'éclairer sur ce point.
Merci d'avance

le code :
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
24
25
26
27
28
29
30
Dim cou_chab As Integer
Dim n As Integer
Dim o As Integer
Dim quantite as Integer
 
n = 58
o = 66
 
While Feuil2.Cells(n, 1) <= Feuil2.Cells(33, 1) And Feuil2.Cells(30, 3) = 10
    n = n + 1
 
        If Feuil2.Cells(n, 1) = Feuil2.Cells(33, 1) Then
    cou_chab = (Feuil2.Cells(n, 4) * quantite) + Feuil2.Cells(n, 3)
 
       End If
 
Wend
 
While Feuil2.Cells(o, 1) <= Feuil2.Cells(33, 1) And Feuil2.Cells(30, 3) = 20
    o = o + 1
 
        If Feuil2.Cells(o, 1) = Feuil2.Cells(33, 1) Then
    cou_chab = (Feuil2.Cells(o, 4) * quantite) + Feuil2.Cells(o, 3)
 
       End If
 
Wend
 
 
Feuil2.Cells(16, 3) = cou_chab