M
Mat
Guest
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.
'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.