extraire et éffacer

[jad73]

bonjour le forum
j'ai un fichier ou j'extrais des lignes de la base de données mais j'aimerais qu'elles soient effacer de cette base.
Je joint un bout de fichier avec les formules
merci

 

[flyonets44]

Re : extraire et éffacer

bonjour
tu peux essayer ce code
With Range("_FilterDataBase")
Set Rng = .Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible)
Rng.Copy Sheets("TMP").Range("A1")
rng.clearcontents
End With
Cordialement
Flyonets

 

[jad73]

Re : extraire et éffacer

bonjour flyonets44,le forum
j'ai une erreur sur la 1ere ligne "With Range("_FilterDataBase")"qui est surlignée en jaune et cette indication"la méthode 'Range' de l'objet '_global' a echoué",quand je passe le curseur sur Range
j'ai inserer votre code dans une macro,c'est bien ce qu'il fallait faire
merci
A+

 

[Staple1600]

Re : extraire et éffacer

Bonjour le fil

jad73
Cette erreur est normal puisque il n'y a pas de filtre élaboré appliqué avec la macro lancée telle quelle.
(Il faut donc d'abord faire ce filtre dans la macro)

Tu veux effacer le contenu des cellules ou les lignes ? (si on efface les lignes, cela effacera les formules de la colonne A)

On peut aussi utiliser un filtre automatique en lieu et place du filtre élaboré
(à appliquer sur la colonne K)

EDITION:
UN exemple avec le filtre automatique

Sub Test()
[K1].AutoFilter Field:=1, Criteria1:="1"
[B2].CurrentRegion.SpecialCells(12).ClearContents
End Sub

 

[Staple1600]

Re : extraire et éffacer

Re

Extrait de ce que tu indiques dans ta PJ

Les lignes extraites et inscritent en O3:T30 doivent etre effacer

Tu veux effacer les deux ou pas ?

Car après application de cette macro, les formules en 09:T30 ne renvoient plus de valeurs

Sub Test()
[K1].AutoFilter Field:=1, Criteria1:="1"
[B2].CurrentRegion.SpecialCells(12).ClearContents
ActiveSheet.AutoFilterMode = False
[B2:G79].SpecialCells(4).Delete Shift:=xlUp
End Sub

EDITION: Salut Pierrejean

 

[pierrejean]

Re : extraire et éffacer

Bonjour à tous

Un essai tout vba (aucune formule)
Voir feuil2