Filtrer et effacer les 0

[tinou63]

Bonjour à tous,

J'aimerai utiliser les VBA avec Excel 2007 pouvoir filtrer certaines colonnes et effacer les 0. Idem choix de colonne pour filtrer et effacer les #N/A.
Merci pour votre aide.
Bonne journée.

 

[julberto]

Re : Filtrer et effacer les 0

Bonjour tinou63,

Tu n'aurais pas par hasard un p'tit bout de fichier à nous proposer ? Ce serait tellement plus efficace, plus facile et plus rapide.

cordialement

 

[Etienne2323]

Re : Filtrer et effacer les 0

Salut tinou63,
voici qui devrait faire le travail. Le code gère les 0 et tous les types d'erreurs possibles.

Option Explicit

Sub Test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
    On Error GoTo GestionErreur
    If Range("A" & i).Value = 0 And Range("A" & i).Value <> "" Then Cells(i, 1).ClearContents
Reprendre:
Next i

Exit Sub

GestionErreur:
Range("A" & i).ClearContents
On Error GoTo 0
GoTo Reprendre

End Sub

Bonne continuité,

Étienne