Discussion :

[tangjuncn]

Bonsoir tout le monde,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dadavyvy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tangjuncn]

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

merci

[tangjuncn]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[dadavyvy]

OK je corrige :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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