Discussion :

[audrey2112]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Commodore]

Hello

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[audrey2112]

Merci ca marche niquel!