[XL-2000] Adapter une macro (suppression de ligne si = 0)

[wyzer]

Bonjour,

Voilà, j'aimerais adapter cette macro pour qu'elle s'exécute sur une colonne que j'aurais sélectionné :

Code :

1
2
3
4
5
6
Sub Supprimer_Ligne_si_0()
Dim i As Long
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 2) = 0 Then Rows(i).Delete
Next i
End Sub

Comme vous le voyez, cette macro ne vérifie que la colonne B

Or, moi j'aimerais qu'elle s'exécute sur n'importe quelle colonne que j'aurais sélectionné

Donc à priori il faudrait mettre un truc du genre :

Code :

1
2
3
4
5
6
Sub Supprimer_Ligne_si_0()
Dim i As Long
For i = Range("dernière cellule de la colonne sélectionné").End(xlUp).Row To 1 Step -1
If Cells(i, 2) = 0 Then Rows(i).Delete
Next i
End Sub

Mais le soucis j'arrive pas à trouver les bons termes VBA

Merci par avance !!!

[laetitia]

bonjour wyzer le forum. essai comme cela

Code :

1
2
3
4
5
6
Sub Supprimer_Ligne_si_0()
 Dim i As Long
 For i = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To 1 Step -1
 If Cells(i, ActiveCell.Column) = 0 Then Rows(i).Delete
 Next i
End Sub

[wyzer]

Merci ça fonctionne !!!!!

[wyzer]

Bonjour,

Je reviens vers vous à propos de cette macro, car je me suis aperçu que lorsque toute la colonne est remplie (jusqu'à 65536), elle ne fonctionne plus

Je ne sais pas pourquoi

Merci par avance

[laetitia]

bonsoir wyzer le forum j'ai teste sous 2003 pas ce pb...question tu remplis ta colonne jusqu'a 65536 ?????? explique.comme cela pas simple.

[wyzer]

Alors ça doit être Excel 2000 qui bug

Oui je dois traiter des fichiers Excel avec 65536 lignes des fois au boulot

Bon c'est dommage