VBA pour supprimer cellule erreur

[Vilain]

Bonjour à tous,

Je cherche un code permettant de supprimer les cellules en erreur (les miennes sont principalement #nombre) sur la totalité d'un onglet. Je ne sais pas comment m'y prendre. Une idée ?

Merci d'avance.

A plus

 

[Legolas]

Re : VBA pour supprimer cellule erreur

Bonjour,

Peut être en testant le format de la valeur de la cellule.
Il faut supprimer toute la ligne ou seulement la cellule (et dans ce cas, décalage vers la gauche ou vers le haut) ?

A plus

 

[Pierrot93]

Re : VBA pour supprimer cellule erreur

Bonjour,

peut être avec ceci, sans plus de détails :

On Error Resume Next
Cells.SpecialCells(xlCellTypeFormulas, xlErrors).ClearContents
On Error GoTo 0

bon après midi
@+

 

[job75]

Re : VBA pour supprimer cellule erreur

Bonjour Gillus69,

Peut-être simplement en utilisant :

On Error Resume Next
Cells.SpecialCells(xlCellTypeConstants, 16).ClearContents

et/ou s'il y a des formules :

On Error Resume Next
Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents

Edit : salut Legolas, Pierrot 🙂 à un chouia près...

A+

 

[Vilain]

Re : VBA pour supprimer cellule erreur

Bonjour,

En fait ma macro fait des calculs, dans certains cas, cela ramène une erreur. Dans ce cas la, je souhaite que la cellule soit "vidée de sa formule". (et du coup pas de décalage). par contre, ce ne peut pas être tu type : ="". Il faut qu'elle soir réélement vide.

Merci de ton aide.


A plus

 

[Vilain]

Re : VBA pour supprimer cellule erreur

Parfait, c'est ce que je cherchais
Merci beaucoup !

 

[job75]

Re : VBA pour supprimer cellule erreur

Re,

Si la macro entre une constante :

Dim cel As Range, v As Variant
'le calcul
If IsError(v) Then cel = "" Else cel = v

si elle entre une formule :

Dim cel As Range, F As String
'le calcul
If IsError(Evaluate(F)) Then cel = "" Else cel = F

A+

 

[Vilain]

Re : VBA pour supprimer cellule erreur

Re,
merci pour ces précisions supplémentaires (j'utilises pour le moment ton deuxième code du post 4.
Est-il possible de supprimer des cellules les formules qui ramène du vide ("") ?

Merci d'avance

 

[job75]

Re : VBA pour supprimer cellule erreur

Re,

Est-il possible de supprimer des cellules les formules qui ramène du vide ("") ?

A priori il faut une boucle :

Dim cel As Range
On Error Resume Next
For Each cel In Cells.SpecialCells(xlCellTypeFormulas, 2)
  If cel = "" Then cel = ""
Next

A+

 

[Vilain]

Re : VBA pour supprimer cellule erreur

Merci beaucoup Job, efficace comme d'habitude. Je vais essayer cette solution.

A plus