[Excel2010] Copier des données filtrées vers une feuille

Bonjour,

J'ai un petit problème dans la réalisation d'un fichier Excel, je dois filtrer des données selon les choix de l'utilisateur et celui ci doit travailler ensuite dessus(génération de graphique, comparaison avec d'autres données...). Mon système de filtre est fonctionnel mais pour rendre le travail sur les données plus simples et éviter tous problèmes de modification sur les données de base, j'aimerais extraire les données répondant aux filtres vers une feuille annexes dans le même classeur.

Et c'est la que ça coince, je ne sait pas comment faire pour copier uniquement les données filtrées afin de les mettre dans mon autre feuille. Je vous met le bout de code avec les filtres.

Private Sub Rechercher_Click()

    texte = ValeurRecherche 'On affecte a texte la valeur rentré par l'utilisateur dans le textBox

    If ListeChamp = "Nom" Then

        Range("A1").AutoFilter Field:=1, Criteria1:="*" & texte & "*"

    ElseIf ListeChamp = "OTP" Then

        Range("D1").AutoFilter Field:=4, Criteria1:="*" & texte & "*"

    ElseIf ListeChamp = "Projet" Then

    Range("E1").AutoFilter Field:=5, Criteria1:="*" & texte & "*"

    Else
        Dim retour As Long

        retour = MsgBox(prompt:="Veuillez renseigner le champ où rechercer les informations", Buttons:=vbOKOnly)

    End If

End Sub

Je vous remercie d'avance pour votre aide,

Thomas

Désolé mais je ne peux pas joindre le fichier en question, les données sont celles d'entreprise et sont plus ou moins confidentielle et je ne peux pas les divulguer

Re,

Même pas un fichier anonymisé avec quelques lignes représentatives?

Le problème est qu'on a une sécurité très restrictive qui filtre tous ce qu'on upload ou download et tous ce qui n'est pas envoyé sur des boites mail ayant des domaines réservés passe à la trappe ^^'

Rechercher des sujets similaires à "excel2010 copier donnees filtrees feuille"