Remplir une plage avec des zéros!

CBernardT

XLDnaute Barbatruc

• 8 Octobre 2010

• #2

Re : Remplir une plage avec des zéros!

Bonjour Claudy et le forum

Essaye cette syntaxe :

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 8 Octobre 2010

• #3

Re : Remplir une plage avec des zéros!

Bonjour,
essaie avec:

Code:

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 🙂

 

Dernière édition: 8 Octobre 2010

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 8 Octobre 2010

• #4

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.

VB:

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+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 8 Octobre 2010

• #5

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

 

Vote positif 0 Vote négatif