Pages

[XL-2010] Remplacer cellule vide par une valeur sujet

vendredi 31 janvier 2014




Bonjour
j'ai crée une macro qui me permet de remplacer les cellules vides d'une plage bien donnée par une autre valeur(en réalité cette valeur est 0 mais dans mes essais et par prudence j'ai pris la valeur 9999).
Ma macro fonctionne bien mais seulement elle remplace toutes les cellules vides du tableau (le tableau part de E74 à AB85).
Je souhaiterais que ma macro s'applique à toutes les lignes du tableau dont la valeur des cellules de la plage (E74:E85) sont supérieur à 0.

Voici ma macro:

Code:


Sub CelluleVide()
Dim plage As Range
        Set plage = [E74:AB85].SpecialCells(xlCellTypeBlanks)
        For Each cell In plage
        If cell.Value = "" Then cell.Value = 9999
    Next
End Sub


Merci de m'aider.




Aucun commentaire:

Enregistrer un commentaire