Effacer cellule visible

[lanoe]

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]

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.

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]

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]

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