gérer les divisons par 0

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:

---

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:yaisse2::yaisse2::yaisse2::yaisse2::yaisse2::yaisse2::yaisse2::yaisse2::yaisse2:

Tu veux faire quoi au juste, car une division par zéro, on ne peut pas un point c'est tout.

Tout ce que tu peux faire c'est empêcher l'instruction de divison de se réaliser, mais qu'espère tu comme résultat de ta division dans ce cas.

:?

Je ne sias pas de quoi je me mele
moi je mettrais

Code:

---

1 2	If Tab_pm_dif1(tdif1) = 0 Then resultat_atrsr = 0

---

Citation:

---

resultat_atrsr = 0

---

ou resultat_atrsr = 999999999999.

A voir. ;)

je voudrais que ma variable résultat m'indique que la valeur n'est pas bonne c'est a dire dans la cellule un indicateur comme quoi le dénominateur =0.
genre dans ma cellule qui va contenir le résultat de la variable résultat il y aura NULL.

Je n'ai pas encore l'expérience voulue pour les declarations de variable mais est-ce que ça ça passerait

resultat_atrsr = format(0 ,"null")

je viens d'essayer alors là !!!

Code:

---

Range("a1") = Format(0, "#null")

---

Attention : ça risque de te poser des problème si tu dois faire des calculs.

Moi je laisserai la cellule vide.

j'ai essayé le code suivant ça à l'aire de fonctionner

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If Tab_pm_dif1(tdif1) <> 0 Then   resultat_atrsr = ((1 - (Tab_pm_dif(tdif) / Tab_pm_dif1(tdif1))) * 100)       Else   resultat_atrsr = 9999999   End If

---

si c'est = 0 alors il n'y a plus de calcul

je pense que je vais laisser ce que j'ai trouver sinon merci pour votre aide à moins que quelqu'un est une meilleur idée.....


:king::king::king::king::king::king: