Calcul VBA (dision par 0)

Bonjour,

Dans mon code, je dois faire un calcul (GAGNE/(GAGNE+PERDU)).

Le problème c'est que mon premier commerciaux (dans mon code) ses stats sont les suivantes :

0 GAGNE/(0 GAGNE + 0 perdu).

Du coup, VB me retourne une erreur ... "erreur d'execution 6, dépassement de capacité".

J'imagine que c'est cette formule avec ces 0 qui pose problème ...

Avez-vous une solution pour résoudre mon problème svp ???

Sub Taux_closing()

   Sheets("Synthèse").Select

    Sheets("Synthèse").Cells(28, 22) = "AIR"
    Sheets("Synthèse").Cells(28, 23).Value = ThisWorkbook.Worksheets("Reporting").Range("D4").Value
    Sheets("Synthèse").Cells(28, 24).Value = ThisWorkbook.Worksheets("Reporting").Range("D4").Value / WorksheetFunction.Sum(Sheets("Reporting").Range("D4:D5"))

Merci par avance.

Bonjour,

Un exemple :

Option Explicit

Public Sub Taux_closing()
Dim ws As Worksheet, ws2 As Worksheet
Dim d As Double

    Set ws = Worksheets("Synthèse")
    Set ws2 = Worksheets("Reporting")

    ws.Cells(2, 2) = "AIR"
    d = Application.Sum(ws2.Range("D4:D5"))

    If d = 0 Then Exit Sub

    With ws
        .Cells(2, 3) = ws2.Range("D4")
        .Cells(2, 4) = .Cells(2, 3) / d
    End With

End Sub

Bonjour,

Merci pour ta réponse Jean Eric.

Je vais tester pour voir le résultat