copier coller en fonction du filtre

Bonsoir ou bonjour Lilique, bonjour à toutes et à tous 🙂

Dites-moi tout, n'ayez pas peur : quels étaient vos rapports avec vos parents quand vous étiez enfant ? hmmmm ???

Plus sérieusement, si tu es nulle sur XL, explique-moi comment tu peux obtenir des données visibles sur une feuille masquée :woohoo: :silly: :huh: :S

Sinon, tu parles assez bien français pour une polonaise, mais un petit bout de ton fichier nous aiderait drôlement 🙂

A+ 😉

Bonjour Lilique, bonjour Charly2,

Voici un essai.

Papaye

PS : et un post sans smileys ... hi hi hi !! [file name=Lilique.zip size=10423]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Lilique.zip[/file]

Bjr papaye,
C'est exactement ça!!!
dis mois comment t'as fais s'il te plait je n'arrive pas à voir ta démarche

Merci bcp
😉

Ben, je l'ai fait avec mes doigts ... hi hi hi !

Ci-dessous une explication :

Dans la feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$C$1' Then Call Lilique(Target.Value)
End Sub

elle se déclenche si on change la valeur de la cellule C1. Elle lance alors la macro Lilique avec pour paramètres la valeur que tu viens de choisir.

Dans le module 1 :
Sub Lilique(Cible)

Application.ScreenUpdating = False
'bloque la mise à jour de l'écran
Sheets('Résultat').Activate
Cells.Clear
'efface la feuille résultats au cas où des données seraient déjà présentes
Sheets('feuille cachée').Visible = True
Sheets('feuille cachée').Activate
'rend visible cette feuille
Range('A1').Select
Selection.AutoFilter Field:=1, Criteria1:=Cible
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Applique le filtre sur ces données avec pour critères le nom rentré dans ta feuille base (Cible='toto' ou ...)
'Fait un copier des cellules visibles
Sheets('Résultat').Activate
Range('A1').Select
ActiveSheet.Paste
'retourne dans la feuille résultat et fait un coller
Sheets('feuille cachée').Select
Selection.AutoFilter Field:=1
'remet les données sans filtre et cache la feuille
Range('A1').Select
Sheets('feuille cachée').Visible = False

Sheets('Résultat').Activate
Range('A1').Select
Selection.CurrentRegion.Select
NbLignes = Selection.Rows.Count - 1
'c'est cadeau, ca met dans la feuille base le nb de lignes retournées en cellule C8
Sheets('Base').Cells(8, 3).Value = NbLignes

Application.ScreenUpdating = True
'remet à jour l'écran
End Sub


C'est super, non ?

Papaye

Salut,

Dans le module de la feuille ''Base'', le code pourait se résumer à ça :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address = '$C$1' Then
Sheets('Résultat').Cells.Clear
With Sheets('feuille cachée')
.[A1].AutoFilter Field:=1, Criteria1:=[Base!C1]
.[A1].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy (Sheets('Résultat').Range('A1'))
.[A1].AutoFilter
End With
End If
End Sub

AV [aaa]

Oulala ca à l'air compliqué tout ca! :S
Je vais m'y mettre toute suite
Merci beaucoup