[VBA-E]suppression lignes a partir d'une cellule active

Bonjour

je reviens encore avec mon mot "observation", qui se trouvera toujours dans la colonne A
je voudrai faire une recherche de ce mot et un fois ce mot trouvé il me sélectionne la ligne ainsi que 6 lignes en dessous et qu'il me les supprimes

merci a+

Un truc de ce genre la devrait fonctionner :

Code:

---

1 2 3 4 5 6 7

Sub test() i = 1 While Cells(i, 1).Value <> "observations" i = i + 1 Wend Rows(i & ":" & i + 6).Delete End Sub

---

:mouarf:

]

Essaie çà
Si ta feuille de travail n'est pas "Feuil1", pense à remplacer par le nm de ta feuille sinon tu vas avoir des surprises.....

Code:

---

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

Sub a() Dim i As Integer Dim maFeuille As String maFeuille = "Feuil1" i = 1   Sheets(maFeuille).Select   While (Cells(i, 1).Value <> "observation") i = i + 1 Wend   Rows(i + 1 & ":" & i + 6).Select Selection.Delete Shift:=xlUp Cells(1, 1).Select   End Sub

---

bonsoir

pour hellios 77 et illight j'ai les 2 memes erreurs ( erreur 6 dépassement de capacité)
en passant le curseur sur la ligne j'ai I=32767

Code:

---

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

Sub a() Dim i As Integer Dim maFeuille As String maFeuille = "dotation2" i = 1     While (cells(i, 1).Value <> "observations") i = i + 1--------> depassement de capacité Wend   Rows(i + 1 & ":" & i + 6).Select Selection.Delete Shift:=xlUp cells(1, 1).Select   End Sub

---

merci a+

Bonjour

Observations avec un s ou sans, car à mon avis tu es arrivé au bout de la feuille, il n'a pas trouvé le mot.

Starec

+1
mais ça peut également être "Observations" ou "observations "
A la place de

Citation:

---

While (cells(i, 1).Value <> "observations")

---

Je mettrais

Code:

---

While (trim(lcase(cells(i, 1).Value)) <> "observations")

---

A+

Citation:

---

Envoyé par ouskel'n'or

+1
mais ça peut également être "Observations" ou "observations "
A la place de
Je mettrais

Code:

---

While (trim(lcase(cells(i, 1).Value)) <> "observations")

---

A+

---

Bah moi je mettrai :

Code:

---

While (instr(1,(cells(i, 1).Value),"observation",vbtextcompare) = 0

---

et Toc :mrgreen:

merci illight merci ouskel

merci illight merci ouskel

les 2 solutions sont bonnes

merci a+