XL 2010 ameliorer un vba

polyteis · 20 Avril 2022

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 · 20 Avril 2022

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

job75 · 20 Avril 2022

Bonjour polyteis, sylvanu,

Pas besoin de boucle :

VB:

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 · 20 Avril 2022

Bonjour le fil

Ma proposition :

*Merci de ton retour

@Phil69970

polyteis · 20 Avril 2022

job75 à dit:
Bonjour polyteis, sylvanu,

Pas besoin de boucle :

VB:

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 · 20 Avril 2022

Phil69970 à dit:
Bonjour le fil

Ma proposition :

*Merci de ton retour

@Phil69970

bonjour

merci
cela fonctionne

polyteis · 20 Avril 2022

sylvanu à dit:
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

merci

XL 2010 ameliorer un vba

polyteis

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

polyteis

XLDnaute Occasionnel

polyteis

XLDnaute Occasionnel

polyteis

XLDnaute Occasionnel

Discussions similaires