Bonjour,
Je galère sur un truc tout bête.
Je dois supprimer des lignes qui ne correspondent pas à ce que je recherche dans une colonne.
ça donne :
Ce code ne fonctionne pas, il veut un Next après le End If
à la base j'avais juste
Sauf que quand il supprimait une ligne la ligne suivante est décrémenté, cependant vu que je fais Next Cell, la fonction ne vérifie pas la ligne décrémentée.
En gros :
[A]
[1]Poisson
[2]Poisson
[3]Poulet
[4]Poulet
[5]Poisson
On veut supprimer Poulet
la suppression fait
[A]
[1]Poisson
[2]Poisson
---------
[4-1]Poulet (Cette cellule n'est pas vérifiée au prochain test car elle devient n°3, ligne dégà vérifiée)
[5-1]Poisson (cette cellule est vérifiée car elle correspond bien au pas suivant de la boucle)
Je bloque sur cette bétise qui doit se régler en un rien de temps ...
Un coup de pouce ?
Edit : c'est ça merci pour le coup de main =)
Je galère sur un truc tout bête.
Je dois supprimer des lignes qui ne correspondent pas à ce que je recherche dans une colonne.
ça donne :
Ce code ne fonctionne pas, il veut un Next après le End If
Code:
Dim Cell As Range
For Each Cell In Range("A1:A20")
If Cell.Text Like Range("C2") Then
Next Cell
Else
Cell.EntireRow.Delete
End If
à la base j'avais juste
Code:
Dim Cell As Range
For Each Cell In Range("A1:A20")
If Not Cell.Text Like Range("C2") Then Cell.EntireRow.Delete
Next Cell
Sauf que quand il supprimait une ligne la ligne suivante est décrémenté, cependant vu que je fais Next Cell, la fonction ne vérifie pas la ligne décrémentée.
En gros :
[A]
[1]Poisson
[2]Poisson
[3]Poulet
[4]Poulet
[5]Poisson
On veut supprimer Poulet
la suppression fait
[A]
[1]Poisson
[2]Poisson
---------
[4-1]Poulet (Cette cellule n'est pas vérifiée au prochain test car elle devient n°3, ligne dégà vérifiée)
[5-1]Poisson (cette cellule est vérifiée car elle correspond bien au pas suivant de la boucle)
Je bloque sur cette bétise qui doit se régler en un rien de temps ...
Un coup de pouce ?
Edit : c'est ça merci pour le coup de main =)
Dernière édition: