Effacer cellule visible

lanoe · 16 Octobre 2008

Bonjour le forum,

J’ai un filtre sur 2000 lignes et je cherche une formule en VBA qui effacerais uniquement les cellules visibles.
Cela est-il possible ?

Merci à vous
lanoe

Staple1600 · 16 Octobre 2008

Re : Effacer cellule visible

Bonjour

Oui c'est possible

Fais Edition/Atteindre/Cellules [cochez] Zone en cours

Puis Edition/Supprimer la ligne
(inconvénient l'entête du filtre est aussi effacée)

• Avec cette macro ce n'est pas le cas.

Code:

Sub efface_lf()
Set a = Range("_FilterDataBase").Offset(1, 0)
Set aa = a.Resize(Range("_FilterDataBase").Rows.Count - 1)
aa.SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
End Sub

job75 · 16 Octobre 2008

Re : Effacer cellule visible

Salut lanoe, Staple,

En VBA, si le filtrage est appliqué à la zone A:C, il suffit d'écrire [A:C].ClearContents.

Le fitre n'est plus en place après l'effacement.

A+

lanoe · 16 Octobre 2008

Re : Effacer cellule visible

re,

Le code de Staple1600 a l'inconveniant de supprimer la ligne, mais fonctionne.

La solution de job75, efface simplement, je l'ai adapter, notamment avec le probleme de filtre qui disparait et cela fonctionne parfaitement .

Merci à vous,

la noe

Effacer cellule visible

lanoe

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

lanoe

XLDnaute Occasionnel

Discussions similaires

Effacer cellule visible

lanoe

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

lanoe

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency