Copie et filtre
bonjour
j'ai un problème à vous sommettre
je joint le fichier pour plus de clarté
le tableau est en feuil1 partant de A11 à S500
je voudrais que ce tableau soit copié en tant réel sur une autre feuille que je nomme Extrait
sur la feuil Extrait je retrouve donc les mêmes données avec en ligne 10 la possibilité de mettre des filtres
je voudrais que ces filtres ( différents sur chaque colonne ) me permettent d'afficher la ligne entière correspondantes au filtre choisie
il me faudrait donc des filtres sur les colonnes D E F G J K spécifiques aux données de ces colonnes .
une fois la recherche faite sur un critère , la recherche s'affiche avec les critères demandés.
si possibilité d'avoir plusieurs critères je serais ravi ..mais sinon une recherche par un critère sera déjà très bien
merci d'avance
Bonjour
Peur de mal comprendre
Mais si tu sélectionnes ton tableau (ligne de titre comprise) et que tu fasses
Menu Données---> Filtrer ---> Filtre automatique
Au début de chaque colonne tu auras la possibilité de filtrer en fonction des éléments de la colonne
Et c'est ce que tu veux ?
bonjour jurançon
oui c'est exact t'as bien compris en fait au lieu des filtres automatiques je voulais juste avoir la possibilité d'inscrire la valeur désiré
et effacer le champ pour afficher le tableau dans son integralité.
Mais y a t il une possibilité de copier en temps réel le tableau de la feuil1 sur la feuille Extrait , à ce moment là je mettrais les filtres auto.
oui c'est exact t'as bien compris en fait au lieu des filtres automatiques je voulais juste avoir la possibilité d'inscrire la valeur désiré
et effacer le champ pour afficher le tableau dans son integralité.
Cordialement
hum desolé banzaï je me trompe dans ton nom et mon message a un petite repetition
Bonjour,
Je ne comprends pas l'intérêt de copier la feuille pour réaliser les filtres.
Cependant, un début de réponse qui donnera peut-être des idées à autres personnes.
Donc 1 feuille et des filtres sélectifs.
Cdlt.
Option Explicit
Private Sub cmdAFS_Click()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
With Range("A11:P11")
.AutoFilter
.AutoFilter Field:=1, VisibleDropDown:=False
.AutoFilter Field:=2, VisibleDropDown:=False
.AutoFilter Field:=3, VisibleDropDown:=False
.AutoFilter Field:=4, VisibleDropDown:=True
.AutoFilter Field:=5, VisibleDropDown:=True
.AutoFilter Field:=6, VisibleDropDown:=True
.AutoFilter Field:=7, VisibleDropDown:=False
.AutoFilter Field:=8, VisibleDropDown:=False
.AutoFilter Field:=9, VisibleDropDown:=False
.AutoFilter Field:=10, VisibleDropDown:=True
.AutoFilter Field:=11, VisibleDropDown:=True
.AutoFilter Field:=12, VisibleDropDown:=False
.AutoFilter Field:=13, VisibleDropDown:=False
.AutoFilter Field:=14, VisibleDropDown:=False
.AutoFilter Field:=15, VisibleDropDown:=False
.AutoFilter Field:=16, VisibleDropDown:=False
End With
End Sub
Private Sub cmdRAZ_Click()
ActiveSheet.AutoFilterMode = False
End Sub
merci à vous
banzai64 et jean éric
Re,
Bonjour Banzai64,
Par curiosité, quelle est la solution que tu as retenue?
cdlt.