Bonjour ,
j'ai un probleme je n'arrive pas à gérer un pb de division par 0.

je vous explique:

je crée 2 tableaux, je stock dans ces 2 tableaux des valeurs.
lorsque j'execute mon programme quand le tableau du dénominateur arrive à la valeur "0" il y a une erreur.
j'ai essayé d'utiliser le NULL mais sa ne marche que lorsqu'il est déclaré en variant
alors que le résultat de ma divison et mis dans une variable de type Long.

comment faire ????
Ps si j'indique la conditon que si mon dénominateur =0 alors le dénominateur = à un chiffre réel sa marche mais bon c'est du bricolage.
voici 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
 
 
Dim var As Variant
var = Null
Dim Tab_pm_dif() As Long, Tab_pm_dif1()
 
dim tdif as Integer, tdif1
 
 
'************************************* Dans le cas ou le dénominateur est égal à 0**************************
 
If Tab_pm_dif1(tdif1) = 0 Then
 
 
'bricolage
Tab_pm_dif1(tdif1) = 1
 
'sinon j'aurais voulut sa
Tab_pm_dif1(tdif1)= var
 
End If
'************************************************************************************************************
 
 
 
 
 
resultat_atrsr = ((1 - (Tab_pm_dif(tdif) / Tab_pm_dif1(tdif1))) * 100)

PS : j'ai utiliser les balises Codes