VBA pour supprimer cellule erreur

L

Legolas

XLDnaute Occasionnel

• 5 Juillet 2012

• #2

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2012

• #3

Re : VBA pour supprimer cellule erreur

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juillet 2012

• #4

Re : VBA pour supprimer cellule erreur

Bonjour Gillus69,

Peut-être simplement en utilisant :

Code:

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

et/ou s'il y a des formules :

Code:

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

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

A+

 

Dernière édition: 5 Juillet 2012

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 5 Juillet 2012

• #5

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

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 5 Juillet 2012

• #6

Re : VBA pour supprimer cellule erreur

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juillet 2012

• #7

Re : VBA pour supprimer cellule erreur

Re,

Si la macro entre une constante :

Code:

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

si elle entre une formule :

Code:

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

A+

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 5 Juillet 2012

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juillet 2012

• #9

Re : VBA pour supprimer cellule erreur

Re,

Gillus69 à dit:

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

Cliquez pour agrandir...

A priori il faut une boucle :

Code:

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

A+

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 5 Juillet 2012

• #10

Re : VBA pour supprimer cellule erreur

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

A plus

 

Vote positif 0 Vote négatif