supprimer cellules automatiquement

amis du soir bonsoir

j'ai realisé plusieurs matrices sur ma feuille excel.
quand le calcul est possible j'ai une valeur '20' par exemple
quand le calcul est impossible ca m'ecrit '#DIV/0!'

mon but est de créer une petite macro qui scanerer la feuille excel pour retrouver '#DIV/0!' et supprimer cette valeur.

apres une bonne heure de tentative sans reussite , je ne peux que compter sur vous...

[Laurent L]

Bonjour,

Tu peux essayer ça :

Dim P As Range, C As Range, CellType
On Error Resume Next
For Each CellType In Array(xlCellTypeConstants, xlCellTypeFormulas)
   For Each C In ActiveSheet.Cells.SpecialCells(CellType, xlErrors)
      If C = CVErr(2007) Then If P Is Nothing Then Set P = C Else Set P = Union(P, C)
   Next C
Next CellType
P = Empty

Cordialement,

Laurent

[Laurent L]

Bonjour,

Tu peux essayer ça :

Dim P As Range, C As Range, CellType
On Error Resume Next
For Each CellType In Array(xlCellTypeConstants, xlCellTypeFormulas)
   For Each C In ActiveSheet.Cells.SpecialCells(CellType, xlErrors)
      If C = CVErr(2007) Then If P Is Nothing Then Set P = C Else Set P = Union(P, C)
   Next C
Next CellType
P = Empty

Cordialement,

Laurent

[Rénato]

Bonjour Raf, bonjour Laurent,

Tu peux également gérer tes valeurs d'erreur, directement dans tes formules de calcul.

ex : =SI(ESTNA(B1);'';B1)
ou encore =SI(ESTERREUR(B1);'';B1) si tu as d'autres valeurs d'erreur possibles que #N/A

Remplace ici B1 par les formules préexistantes dans ta feuille de calcul, et tu pourras te dispenser d'une macro.

Bonne journée