Discussion :

[NewYork]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

bonsoir,
essayes comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

[casefayere]

un exemple !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NewYork]

Ok génial !!!
merci bcp !!

[casefayere]

pour toutes les colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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