Supression des #N/A

Version imprimable

Supression des #N/A

Rebonjour à tous ...
Voici une nvelle requête. J'ai des #N/A dans une colonne qui m'empêche de dérouler ma macro correctement....
J'ai utiliser le code suivant afin de pouvoir les retirer mais rien ne se passe...une idée?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub na() Dim x As Long Dim y As Long x = Range("A65536").End(xlUp).Row For y = x To 1 Step -1 If Cells(y, 2).Formula = "#N/A" Then Cells(y, 2).ClearContents End If Next y End Sub
J'ai auparavant utilisé ".value"..mais cela m'indiquait une erreur type 13...avec le ".formula" le code se déroule, mais les #N/A ne sont pas effacés..

J'ai aussi essayé le code suivant, sans succès
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub na() Dim x As Long Dim y As Long x = Range("A65536").End(xlUp).Row For y = x To 1 Step -1 If Cells(y, 2).Formula = "#N/A" Then Cells(y, 2).select Selection.ClearContents End If Next y End Sub

bonsoir,
essayes comme ça

Code:

1
2
3
4
5
For y = x To 1 Step -1
   If Application.WorksheetFunction.IsNA(Cells(y, 2)) Then
      Cells(y, 2).ClearContents
   End If
Next y

26/12/2010, 18h54
NewYork

Ca marche super ;)....cependant, je dois le faire sur plusieurs colonnes....je me demandais alr si il etait possible de le faire pr tt le worksheet ou dois je réécrire le code pr chaque colonne?

un exemple !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub na()
Dim x As Long
Dim y As Long, z As Long
x = Range("A65536").End(xlUp).Row
'exemple pour 10 colonnes
For z = 1 To 10
   For y = x To 1 Step -1
      If Application.WorksheetFunction.IsNA(Cells(y, z)) Then
         Cells(y, z).ClearContents
      End If
   Next y
Next z
End Sub

26/12/2010, 19h02
NewYork

Ok génial ;) !!!
merci bcp !!

pour toutes les colonnes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub na()
Dim x As Long
Dim y As Long, z As Long, col As Long
x = Range("A65536").End(xlUp).Row
col = Range("A1").End(xlToRight).Column
For z = 1 To col
   For y = x To 1 Step -1
      If Application.WorksheetFunction.IsNA(Cells(y, z)) Then
         Cells(y, z).ClearContents
      End If
   Next y
Next z
End Sub

26/12/2010, 19h15
Bigalo

Rebonsoir,

Une autre approche, valable uniquement si ta feuille ne contient pas d’autres cellules avec une erreur (#REF!, #DIV/0!, …) :

Code:

ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas,16).ClearContents

Cela effacera en effet les formules de toute cellule contenant une valeur d’erreur.