Pb avec selection conditionnelle dans une liste

Question

Bonjour, j'ai un petit soucis avec mon code, j'aimerai supprimer des lignes de mon tableau dans la colonne C dont la valeur est zéro et les copier dans une autre feuille. C'est pour le suivi de mon stock ... 
Voilà ce que j'ai 

Sub suppr_ligne_de_0()


For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1
Step -1
If Cells(lin, 3) = "0" Then Rows(lin).Delete Shift:=xlUp
Next lin
End Sub

Ca bloque sur le Step-1, ça met erreur de compilation sub ou function non définie. 
En plus de àça la seule fois où ça a fonctionné ça m'a carrément retirer les lignes (25,28,30,31...).comment je peux faire pour que ça remonte , ma variable est-elle suffisante:

li = Range("C65536").End(xlUp).Row + 1

Jae patauge un peu beaucoup, mais c si pratique quand ca fonctionne! lol 
Merci 
milies

Dolphin Boy · Answer

Salut,

Ce topic n'a rien à faire dans le thème VB.NET et VB 2005 / Base de données .
Ca serait plutôt de l'Excel VBA.

miliies · Answer

OK c noté DSL , c comme je le dis je débute alros je sais pas trop ou aller ! Lerci quand même !

milies

Pb avec selection conditionnelle dans une liste

2 réponses

Votre réponse

Discussions similaires