VBA-E point limite

Bjr,

Quelle est la façon d'arreter ma selection pour qu'il ne touche pas aux quatre premières lignes avec le code:

Code:

---

Worksheets("A" & i).Range("A5:K" & Range("K65536").End(xlUp).Row).Clear

---

Cdt

Hello,

sans plus d'infos, je dirais :

Code:

---

Worksheets("A" & i).Range("A5:K65536").Clear

---

devrait préserver tes 4 premières lignes.

Bjr cafe

Je ne voudrais effacer que les lignes qui contiennent une infos en K

c'est pour cela le row.

cdt

ok, alors voici une solution à adapter sans doute :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Clean()   Set laplage = Range("K:K").SpecialCells(xlCellTypeBlanks) For i = Range("K65536").End(xlUp).Row To 5 Step -1 If Intersect(laplage, Cells(i, 11)) Is Nothing Then Cells(i, 11).EntireRow.Delete End If Next i   End Sub

---

Merci cafe je vais tester
Cdt