Currentregion et remplacement de valeurs

[julien974]

Bonjour,

je souhaiterai selectionner a partir de le cellule A1 toute la plage grâce a currentregion puis remplacer les cellules vides et celles comportant #N/A par un "0"

Merci de votre aide,

julien974

 

[bouley]

Re : Currentregion et remplacement de valeurs

bonjour julien,
teste ceci :

Sub test()
Set plage = Range("A1").CurrentRegion

For Each c In plage
    If IsEmpty(c) Or Application.WorksheetFunction.IsNA(c) = True Then c.Value = 0
Next c

End Sub

Attention la formule à l'origine du #NA est éffacée .

 

[julien974]

Re : Currentregion et remplacement de valeurs

Merci beaucoup collegue,

ca fonctionne parfaitement,

Julien974