Discussion :

[chito79000]

Bonjour,

Dans mon tableau que j'ai filtré j'aimerais atteindre la première cellule visible ...

Code :

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

ActiveCell.Offset(1, 0).Select

Bien évidemment ce code ne fonctionne pas.

Pour information, c'est pour qu'après je puisse copier vers un autre onglet et ensuite supprimer les lignes copiées.

[joe.levrai]

Bonjour,

voici pour sélectionner la plage complète des données filtrées (uniquement les lignes visibles)
la procédure s'effectue sur la feuille active, si c'est une autre feuille, il faut référencer les Ranges liés

je suis parti du principe que la ligne 1 contient les titres et la colonne 1 n'a jamais de données vides

je t'ai aussi proposé la partie qui copie les données, et qui supprime ta plage source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MaPlageVisible()
 
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
 
Set PlageFiltre = Range(Cells(2, 1), Cells(DerLig, DerCol)).SpecialCells(xlCellTypeVisible)
MsgBox PlageFiltre.Address
 
'recopie des données à partir de la cellule A1, dans "Feuil1"
'PlageFiltre.Copy Worksheets("Feuil1").Range("A1")
 
' suppression de la plage
'Application.DisplayAlerts = False
'PlageFiltre.Delete
'Application.DisplayAlerts = True
End Sub

Ps : les titres ne sont pas sélectionnés, uniquement les données

[antonysansh]

Pour la première cellule visible :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim rg As Range
        Set rg = ThisWorkbook.ActiveSheet.Cells
        Set rg = rg.SpecialCells(xlCellTypeVisible)
        Set rg = rg.Cells(1)
    MsgBox "la première cellule visible se trouve à la ligne : " & rg.Row
End Sub

Par contre si c'est dans un tableau je pense pouvoir dire sans me tromper que ça va toujours être la ligne d'en-tête.

Explications :
Set rg = ThisWorkbook.ActiveSheet.Cells

=> rg représente Toutes les cellules de ta feuille active

Set rg = rg.SpecialCells(xlCellTypeVisible)

=> rg devient toutes les cellules visibles de ta feuille active

Set rg = rg.Cells(1)

=> rg est la première des cellules visibles de ta feuille active

Donc pour contourner le fait de toujours tomber sur ta ligne d'en-tête tu dois juste changer la première ligne
Par exemple si ma ligne 1 est vide et que ma ligne 2 comporte mon en-tête le code va etre :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim rg As Range
        Set rg = ThisWorkbook.ActiveSheet.Rows("3:" & Application.Rows.Count)
        Set rg = rg.SpecialCells(xlCellTypeVisible)
        Set rg = rg.Cells(1)
    MsgBox "la première cellule visible se trouve à la ligne : " & rg.Row
End Sub

J'espère être clair


EDIT : Salut Joe on s'est un peu croisé

[joe.levrai]

Antony

Oui carrément, du coup j'en ai profité pour préciser dans mon message que mon code ne sélectionnera pas la ligne des titres

[Marc-L]

Bonsoir, bonsoir !

La méthode Range.Copy ne tenant compte que des données filtrées, pas besoin de SpecialCells, etc …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo