Discussion :

[khilim]

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

[Krovax]

n'ayant pas ton fichier on ne peut pas tester sur quel ligne a lieu l'erreur?

[aalex_38]

Attention tes variables sont des integer, ne dépasses-tu pas la limite ?

[Krovax]

pour suivre l'idée de aalex remplace integer par long dans ta déclaration de variable (pas forcément utile pour n, o et quantité)

[khilim]

en fait j'ai mis le mauvais code,

voici celui ou j'ai un probleme, les varaibles sont bien en long et j'ai erreur definie par l'objet

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
Dim cou_zoom As Long
Dim calage_zoom_90 As String
Dim calage_zoom_115 As String
Dim roule_zoom As String
Dim papier_90 As String
Dim papier_115 As String
Dim grama_zoom As Long
Dim quan As Long
 
quan = Feuil2.Cells(5, 4)
grama_zoom = Feuil2.Cells(5, 6)
calage_zoom_90 = Feuil2.Cells(73, 3)
calage_zoom_115 = Feuil2.Cells(73, 5)
roule_zoom = Feuil2.Cells(74, 5)
papier_90 = Feuil2.Cells(75, 3)
papier_115 = Feuil2.Cells(75, 5)
 
 
If grama_zoom = 90 And Feuil2.Cells(33, 1) = 5 Then
cou_zoom = ((quan * roule_zoom) + (quan * papier_90)) + calage_zoom_90
End If
 
If grama_zoom = 115 And Feuil2.Cells(33, 1) = 5 Then
cou_zoom = ((quan * roule_zoom) + (quan * papier_115)) + calage_zoom_115
End If
 
Feuil2.Cells(17, 3) = cou_zoom

[Krovax]

Tant que tu ne nous diras pas sur quelle ligne se situe l'erreur on doit perdre notre temps a vérifier chaque ligne.
Alors pour la deuxième fois du fil
Sur quel ligne a lieu l'erreur?

Par contre je ne vois absolument pas le lien avec le problème précédent. Regarde un peut dans les tutos la différence entre long et integer