Supprimer lignes cachées

[hasardeux]

Salut,

Sur une feuille, j'ai appliqué un filtre.

Je voudrais par macro, supprimer toutes les lignes cachées après ce filtre.

C'est à dire sur la même fille et non pas passer par la technique de copier/coller.


Je vous remercie infiniment

 

[Jeff]

Salut,

Je prends le problème dans l'autre sens mais le résultat est le même: au lieu d'effacer les lignes cachées, je ne garde que les lignes visibles et je copie le réultat dans un nouveau fichier:

Applique ça sur le range de tes données:


Cells.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False

Cela te convient-il?

Jeff

 

[galopin01]

bonjour,

Sub Test()
For i = 65000 To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).Delete
Next
End Sub

A+

 

[hasardeux]

Je vous remercie infinimement vous deux.

Les 2 solutions marchent pafaitement.

Seulement pour la 1ère, celle de Jeff, elle ne maintient pas les mêmes largeurs de colonnes, ce qui cause un problème de mise en forme.


Pour la 2ème solution, celle de Galopin01, et pour l'affiner, comment pourrais je introduire une ligne de commande dans le code pour supprimer du même coup les colonnes cachées.


Encore mille merci

 

[ChTi'160]

Salut"hasardeux" Jeff et galopin01
une solution aménagée
Sub Test()
Dim i As Long
Dim c As Integer
Dim derlgn As Integer
Dim dercol As Byte
Application.ScreenUpdating = False
derlgn = Range("A65536").End(xlUp).Row
dercol = Range("IV1").End(xlToLeft).Column
For i = derlgn To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).Delete
Next
For c = dercol To 1 Step -1
If Columns(c).Hidden = True Then
Columns(c).Hidden = False
Columns(c).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
si ça c'est pas du travail d'équipe !!!!!! Alors
A+++
Jean Marie

 

[hasardeux]

Bonjour Jean Marie, le forum


Merci bcp pour le réaménagement du code en fonction de mes besoins.

Je viens de l'essayer, mais ça bug sur la ligne:

Columns(c).Delete

Je tiens à vous dire que les colonnes que je cherche à supprimer, sont les colonnes masquées.


Merci de m'aider

A+