Modif macro

lostheroe · 31 Août 2015

Bonjour,

Je voudrais modifier ma macro ci-dessous pour qu'elle ne recherche que dans les cellules utilisées des colonnes J à M (UsedRange).
J'ais essayé avec la fonction UsedRange, mais ça ne fonctionne pas

HTML:

Sub macro()
Dim Cell As Range
For Each Cell In ActiveSheet.Range("J1:M1").EntireColumn.Cells
If Cell.Text = "0" Then Cell.ClearContents
Next Cell
End Sub

HTML:

Cordialement

DoubleZero · 31 Août 2015

Re : Modif macro

Bonjour, lostheroe, le Forum,

Comme ceci ?

Code:

Option Explicit
Sub Zéro_supprimer()
    Dim c As Range
    On Error Resume Next
    For Each c In [j:m].SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If c = 0 Then c = ""
    Next
End Sub

A bientôt

lostheroe · 31 Août 2015

Re : Modif macro

Merci DoubleZero,
Comme d'hab c'est nickel

Modif macro

lostheroe

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

lostheroe

XLDnaute Occasionnel

Discussions similaires