XL 2010 ameliorer un vba

polyteis

XLDnaute Occasionnel
bonjour,

je dispose d'un tableau ( voir pj) qui sera exporté dans un autre fichier.
dans la derniere colonne j 'ai des cellules avec la valeur 0
je desire transporter ce fichier sans les 0
j'ai crée un petit vba activé par un bouton qui remplace les 0 par du vide,
j aimerai que ce petit morceau de vba soit consolidé, et notamment remplacer dans la boucle
For i = 2 To 6558 la valeur 6558 par la derniere cellule de cette colonne pour automatisé la procedure sans avoir a changé la valeur.
mon tableau s'allonge de mois en mois

merci pour vos retour
 

Pièces jointes

  • essai1.xlsx
    13.2 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Polyteis,
La dernière ligne occupée d'une colonne est donnée par Range("K65500").End(xlUp).Row
( pour la colonne K )
Donc ça pourrait donner :
VB:
Sub zero()
    Dim i As Integer
    For i = 2 To Range("K65500").End(xlUp).Row
        If Cells(i, "K") = 0 Then Cells(i, "K") = ""
    Next i
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87