Problême de types

[Mat]

Sub M09_effacezeros()
'désactive la maj de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
'supprime les 0 dans les colonnes
I = 99
For Each Cells In Worksheets("G125").Range("A100:A600")
I = I + 1
If Cells.Value = "0" Then
Rows(I).ClearContents
End If
Next c
End Sub

Bonjour,
J'execute la macro ci dessus et j'ai une erreur sur les types en effet certaines cellules de mon fichier contiennent la valeur :"#N/A"

Si vous avez une idée de ce que je peux faire ?...
Merci d'avance.

 

[Valérie]

Salut Mat et le forum,

Je propose le code suivant qui teste d'abord s'il y a erreur avec la fonction IsError() puis la valeur "0" en alpha ensuite.

Dim CELLULE As Range
For Each CELLULE In Worksheets("G125").Range("A100:A600")
If Not IsError(CELLULE) Then
If CELLULE = "0" Then CELLULE.EntireRow.ClearContents
End If
Next

Je me suis épargnée le i certain me reconnaitrons dans mon économie à la variable ben non puisqu'il y en a une dans mon code nah!! Enfin bref réadapte à ta façon

@ bientôt
Valérie

 

[Mat]

Merci ,merci merci et encore merci.
Vous êtes tellement efficaces et rapides et dispos et compréhensif etc... lol
Je crois que je risque d'abuser de votre gentillesse.

 

[Valérie]

Quel entousiasme cela me donne du beaume au coeur et le soleil aidant je qualifierai cette journée d'EXCELlente

Valérie