Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie d'une partie d'un TCD via un filtre

  • Initiateur de la discussion Initiateur de la discussion Guitounne27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guitounne27

XLDnaute Nouveau
Bonjour à tous,

Pourriez vous me donner comment faire pour copier en VBA via la recherche du nom représentant sur la feuille france. Afin que je puisse retrouver toutes les données dans un tableau sur la feuille france.

Les données sont sur la feuille TCD. Bien sûr, il y a que quelques données mais normalement j'ai 200 lignes voir plus car il s'agit d'un TCD.

Merci de votre aide,

Guillaume
 

Pièces jointes

Re : Copie d'une partie d'un TCD via un filtre

Bonsour®
Ou sont les données ???
je n'ai pas vu de TCD ???

double-click sur la dernière cellule en bas à droite d'un Vrai TCD :
Excel crée alors une nouvelle feuille avec les données (et seulement ces données) qui ont servies à creer le résultat affiché par le TCD
 
Re : Copie d'une partie d'un TCD via un filtre

Bonjour,

Les données sont sur un fichier externe. Dans la feuille TCD, il y a normalement un tcd. Mais j'aimerais ramener les données sous forme de tableau dans la feuille france. avec comme recherche le nom du VRP.

Comment puis-je procéder ? est ce que je dois faire une macro ou pas ?

Cordialement,

Guillaume
 
Re : Copie d'une partie d'un TCD via un filtre

En fait pour être plus clair, j'aimerais pouvoir remettre le tableau de données sur la feuille france. afin d'avoir un récap de mon TCD par VRP qui ont été séléctionnés via le département.

Merci à vous tous votre aide.

Guitounne27
 
Re : Copie d'une partie d'un TCD via un filtre

VBA :
Dim fTCD As Worksheet
Set fTCD = Sheets("TCD")
fTCD.Range("J4").FormulaR1C1 = "=SEARCH(""k6"",RC[-9])>=1"
fTCD.Range("TCD").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=fTCD.Range( _
"J1:J4"), CopyToRange:=Sheets("France").Range("K18😛18"), Unique:=False
fTCD.Range("J4").Clear
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
915
  • Question Question
Microsoft 365 recherche idée
Réponses
6
Affichages
824
Réponses
10
Affichages
988
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…