Microsoft 365 Affichage que des données filtrées

yassine.013 · 20 Avril 2023

Bonjour à tous

J'ai une feuille d'Excel "Template" ou Il y a un code VBA qui me permet de filtrer automatiquement ce que je veux sur une colonne M ensuite je crée une copie de ce Template avec un code toujours mais le problème ça m'affiche avec le filtre moi que veux que ça extrait que ce que j'ai filtré dans le Template sinon ça sert a rien de créer le Template en copie .

Merci

cp4 · 20 Avril 2023

Bonjour,

Merci de joindre idéalement ton fichier (sans données confidentielles).
Tu aurais dû au moins éditer ton code. Les contributeurs ne sont pas des devins
edit: Si j'ai compris la question, une recherche sur le forum ici
A+

yassine.013 · 20 Avril 2023

Bonjour,

Pour mieux comprendr ma demande voici mes codes:

Pour filtrer:

Criteres = Array("ECL")
Sheets("Template ECL").Range("A:K").AutoFilter Field:=11, Criteria1:=Criteres, Operator:=xlFilterValues

Pour copie mon Template ECL:

Sheets("Template ECL").Copy

ActiveWorkbook.SaveAs ("C:\Users\ikram.djerbi\Documents\nv1\Encours ECL du " & Format(Now(), "DD-MMM-YYYY") & ".xls")

Je veux que dans ma copie ça s'affiche que ce que j'ai filitré c'est dire que les lignes concernant ECL les autres ça supprime, je ne sais pas est-ce-que ce code je le rajoute au niveau du filre ou copie mon Template ECL

Merci

cp4 · 20 Avril 2023

à tester

VB:

Sheets("Template ECL").SpecialCells(xlCellTypeVisible).Copy

yassine.013 · 20 Avril 2023

cp4 à dit:
à tester

VB:

Sheets("Template ECL").SpecialCells(xlCellTypeVisible).Copy

Non ça marche pas stp y'a un pas un code qui supprime les lignes filtrés ou non filtrés

TooFatBoy · 20 Avril 2023

Bonjour,

1- Tu filtres ton tableau.
2- Tu copies ton tableau.
3- Tu colles ton tableau sur une autre feuille, et ça ne colle que ce qui a été filtré.

cp4 · 21 Avril 2023

yassine.013 à dit:
Non ça marche pas stp y'a un pas un code qui supprime les lignes filtrés ou non filtrés

Bonjour @yassine.013 ,@TooFatBoy ,

@yassine.013 : Chaque contributeur essaie d'aider avec ses connaissances (perso je suis autodidacte) et si en plus le demandeur ne fait pas d'effort pour aider à comprendre son problème. Au final, on ne brassera que du vent.
Un fichier aidera à comprendre ta problématique.
Bonne journée.

yassine.013 · 24 Avril 2023

TooFatBoy à dit:
Bonjour,

1- Tu filtres ton tableau.
2- Tu copies ton tableau.
3- Tu colles ton tableau sur une autre feuille, et ça ne colle que ce qui a été filtré.

Merci beaucoup pour votre réponse

yassine.013 · 24 Avril 2023

cp4 à dit:
Bonjour @yassine.013 ,@TooFatBoy ,

@yassine.013 : Chaque contributeur essaie d'aider avec ses connaissances (perso je suis autodidacte) et si en plus le demandeur ne fait pas d'effort pour aider à comprendre son problème. Au final, on ne brassera que du vent.
Un fichier aidera à comprendre ta problématique.
Bonne journée.

je m'excuse mais j'ai trouvé la solution je vous remercie

cp4 · 24 Avril 2023

yassine.013 à dit:
je m'excuse mais j'ai trouvé la solution je vous remercie

Heu.... N'est-ce pas un forum d'entraide et de partage???

yassine.013 · 24 Avril 2023

cp4 à dit:
Heu.... N'est-ce pas un forum d'entraide et de partage???

Application.ScreenUpdating = False
With Sheets("Template IHM")
Criteres = Array("ECL", "LIG", "ELT")
.Range("A:K").AutoFilter Field:=11, Criteria1:=Criteres, Operator:=xlFilterValues
.Range("A2:K1000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
.ShowAllData
End With
Application.ScreenUpdating = True

Voila le bon code

cp4 · 24 Avril 2023

yassine.013 à dit:
Application.ScreenUpdating = False
With Sheets("Template IHM")
Criteres = Array("ECL", "LIG", "ELT")
.Range("A:K").AutoFilter Field:=11, Criteria1:=Criteres, Operator:=xlFilterValues
.Range("A2:K1000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
.ShowAllData
End With
Application.ScreenUpdating = True

Voila le bon code

cp4 à dit:
SpecialCells(xlCellTypeVisible)

Ce que je t'ai montré au post#4 (ligne ci-dessus), pointe sur les lignes filtrées ensuite utiliser les méthodes que tu veux (dont .copy, .delete, .clear, etc)

yassine.013 · 24 Avril 2023

cp4 à dit:
Ce que je t'ai montré au post#4 (ligne ci-dessus), pointe sur les lignes filtrées ensuite utiliser les méthodes que tu veux (dont .copy, .delete, .clear, etc)

Oui c'était bien ça

Microsoft 365 Affichage que des données filtrées

yassine.013

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

yassine.013

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

yassine.013

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

yassine.013

XLDnaute Nouveau

yassine.013

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

yassine.013

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

yassine.013

XLDnaute Nouveau

Discussions similaires