[VBA-E]recherche de lignes TOP et BOTTOM

Bonsoir tout le monde,

Je cherche à faire trouver la ligne du top et du down après avoir fait un filtrage.

Code:

---

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

Dim firstrow,lastrow as long range("A1").select 'activer le filtre selection.autofilter selection.autofilter field:=1,criteria1:="machin"   'rechercher la 1ere ligne et la dernière lastrow=Range("A1").End(xlDown).Row   'fermer le filtre selection.autofilter

---

je trouve correctement la derniere ligne
mais pr trouver la ligne qui commence, j'ai eu bcp de mal
c la ligne juste en bas de l'entete.

Mon besoin est de juste mettre après ces données après le filtrage dans une table de 2 dimension pour les traiter.

Je suis preneur de vos idées.
Merci

Peut-etre y'a-t-il plus simple :

Code:

---

1 2 3 4 5 6 7

If UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then firstrow = -1 ' pas de resultat au filtre ElseIf Intersect(Range("A2"), UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(1)) Is Nothing Then firstrow = UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(2).Row Else firstrow = 2 End If

---

ça a l'air pas mal ta réponse:P
je vais le tester

merci

Citation:

---

Envoyé par dadavyvy

Peut-etre y'a-t-il plus simple :

Code:

---

1 2 3 4 5 6 7

If UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count = 1 Then firstrow = -1 ' pas de resultat au filtre ElseIf Intersect(Range("A2"), UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(1)) Is Nothing Then firstrow = UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(2).Row Else firstrow = 2 End If

---

---

ça a pas marché.

Il me retourne -1, même j'ai bcp de lignes après le filtrage, c pas logique.

SOS tjrs!!

OK je corrige :

Code:

---

1 2 3 4 5 6 7

If Range("A65536").End(xlUp).Row = 1 Then firstrow = -1 ' pas de resultat au filtre ElseIf Intersect(Range("A2"), UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(1)) Is Nothing Then firstrow = UsedRange.Columns(1).SpecialCells(xlCellTypeVisible).Areas(2).Row Else firstrow = 2 End If

---

Ca me fait penser que ton lastrow n'est pas correct s'il n'y a pas de résultat. C'est donc :

Code:

---

lastrow = Range("A65536").End(xlUp).Row

---