supprimer cellules automatiquement

[raf]

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