Remplir une plage avec des zéros!

[Claudy]

Bonjour,
une plage variable :Range("G2😛" & derligne) , dans cette plage ça et là il y a des montants.
Comment rapidemment remplir les cellules vides, en remplacant les vides par des zéros.

J'ai ceci dans ma macro, qui fonctionne bien, mais lorsqu'il y a beaucoup de lignes, c'est assez long à remplir

For Each cel In Range("G2😛" & derligne)
If IsEmpty(cel) Then cel.Value = 0
Next

Merci d'avance ,
Claudy

 

[CBernardT]

Re : Remplir une plage avec des zéros!

Bonjour Claudy et le forum

Essaye cette syntaxe :

Range("G2😛" & Derlig).SpecialCells(xlCellTypeBlanks) = 0

 

[mth]

Re : Remplir une plage avec des zéros!

Bonjour,
essaie avec:

Range("G2:P" & derligne).SpecialCells(xlCellTypeBlanks) = 0

Bonne journée,

mth

Edit: Bing 🙂
désolée CBernardT ... mais promis, j'ai pas copié 🙂
Bonne journée,
m
Edit2: Coucou mromain 🙂

 

[mromain]

Re : Remplir une plage avec des zéros!

Bonjour Claudy, Bernard, mth 😉


Les solutions de Bernard et mth sont plus adaptées.
Sinon, de manière générale, il vaut mieux utiliser un tableau qu'une boucle For Each ; c'est sensiblement plus rapide.

tabVal = Range("G2:P" & derligne).Value

For iLig = LBound(tabVal, 1) To UBound(tabVal, 1)
    For iCol = LBound(tabVal, 2) To UBound(tabVal, 2)
        If tabVal(iLig, iCol) = "" Then tabVal(iLig, iCol) = 0
    Next iCol
Next iLig

Range("G2:P" & derligne).Value = tabVal

a+

 

[Claudy]

Re : Remplir une plage avec des zéros!

Ok; merci à vous tous, ça va me faire gagner un temps fou.
Bon week end, A+
Claudy