XL 2010 ameliorer un vba

[polyteis]

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

 

[sylvanu]

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 :

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

 

[job75]

Bonjour polyteis, sylvanu,

Pas besoin de boucle :

Sub Effacer()
[K:K].Replace 0, "", xlWhole
End Sub

D'ailleurs pas besoin de VBA, il suffit d'utiliser la commande Remplacer (Ctrl+H).

A+

 

[Phil69970]

Bonjour le fil

Ma proposition :

*Merci de ton retour

@Phil69970

 

[polyteis]

Bonjour polyteis, sylvanu,

Pas besoin de boucle :

Sub Effacer()
[K:K].Replace 0, "", xlWhole
End Sub

D'ailleurs pas besoin de VBA, il suffit d'utiliser la commande Remplacer (Ctrl+H).

A+

merci cela fonctionne bien,
pour ma part j'avais fait une macro en jouant sur (ctrl+f) et cela me remplaçait tous les zeros

 

[polyteis]

Bonjour le fil

Ma proposition :

*Merci de ton retour

@Phil69970

bonjour

merci
cela fonctionne

 

[polyteis]

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 :

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

merci