fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 septembre 2009
-
9 avril 2009 à 10:31
fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 septembre 2009
-
9 avril 2009 à 15:52
Bonjour à tous,
Un petit problème, le bout de code que j'utilise est censé me trouver toutes les lignes selon un critère défini est me les supprimer, il les trouve mais ne les supprime pas toutes il faut si reprendre à plusieurs fois, je ne trouve pas le pourquoi de la chose quelqu'un peut-il m'aider STP.
Sub reset()
Dim nbl As Variant
Dim i As Variant
ThisWorkbook.Activate
nbl = Range("a65000").End(xlUp).Row
For i = 1 To nbl
If Range("a" & i).Value = "B" Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub
fne67
Messages postés17Date d'inscriptionsamedi 29 septembre 2007StatutMembreDernière intervention19 septembre 2009 9 avril 2009 à 15:52
Bonjour lesdis, merci pour ta solution! en effet c'étais la solution ça fonctionne, le programme avant ne supprimé qu"une ligne sur 2 alors qu'en décrémentant la boucle ça fonctionne donc encore merci beaucoup
Sub reset()
Dim nbl As Variant
Dim i As Variant
ThisWorkbook.Activate
nbl = Range("a65000").End(xlUp).Row
For i = nbl to 1 step -1
If Range("a" & i).Value = "B" Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub