Remplacer "#DIV0!" par 0

Bonjour,

Suite au remplissage de mon tableau par un sous programme, j'effectue des calculs de pourcentages sur les colonnes.
Mon probleme est que j'ai des divisions par 0 est donc "#DIV0!" apparait.
Je voudrai poser une condition pour verifier mes divisions et eviter ce message en affichant 0

voici comment je calcule mes pourcentages:

Code:

---

1 2 3

xlapp.Range("X38").Select xlapp.Selection.NumberFormat = "0%" xlapp.ActiveCell.FormulaR1C1 = "=((R[-7]C+R[-9]C+R[-10]C)+(R[-23]C+R[-25]C+R[-26]C))/(R[-4]C+R[-20]C)"

---

J'ai essayé quelques conditions mais le message "type mismatch" apparait toujours

Merci

Hello :)

Code:

---

xlapp.ActiveCell.FormulaLocal = "SI(ESTERREUR(A1);0;maformule)"

---

Bonjour,
Une autre approche, oter la détection erreur des formules

Code:

---

1 2 3 4 5 6

On Error Resume Next With Range(Plage) .SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0 .SpecialCells(xlCellTypeConstants, xlErrors).Value = 0 End With On Error GoTo 0

---

A+

Merci ca marche niquel!