modifier une variable "range"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub suppression() Dim lngLimite As Long Dim rngCellule As Range, rngPlage As Range lngLimite = xlFlReponse.Range("A1:A65536").End(xlDown).Row Set rngPlage = xlFlReponse.Range("A1:A" & lngLimite) For Each rngCellule In rngPlage If rngCellule.Value = "Néant" Then rngCellule.EntireRow.Select Selection.Delete Shift:=xlUp rngCellule = rngCellule.Address - 1 End If Next End Sub

---

bonjour,

j'aimerai supprimer les lignes d'une feuille dans lesquelles "Néant" se trouve dans la colonne A

j'ai donc fait le programme ci-dessus, le souci est avec "rngCellule", car quand plusieurs "Néant" se succèdent, mon programme ne les détecte pas, du au faite que je supprime la ligne en entier, et que je décalé le reste du classeur d'une ligne.

j'ai pensé, qu'il fallait avant la fin du "if", décrémenter "rngCellule", mais je ne sais pas comment m'y prendre

faut-il utiliser "set" ?


merci pas avance pour votre aide !


coordialement

l'astuce la plus simple est de parcourir le tableau a l'envers. Après j'ai jamais essayé de regardé le sens de parcour avec la commande for each
Désolé :oops:

Bonjour, la commande Find peut aussi être utile

Bonjour,

Pourquoi ne pas utiliser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub suppression() Dim lngLimite&, i& lngLimite = Range("A65536").End(xlDown).Row   For i = lngLimite To 1 Step -1   If Cells(i, 1) = "Néant" Then Cells(i, 1).EntireRow.Select Selection.Delete Shift:=xlUp   End If Next End Sub

---

merci a vous tous pour votre participation,

effectivement Jacques_jean ta solution est beaucoup plus simple et fonctionnelle qui plus est :D


cependant pour ma culture quelqu'un pourrai répondre à ma question initiale ?


merci encore !