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

Microsoft 365 Copie avec filtre

  • Initiateur de la discussion Initiateur de la discussion Le Rouky
  • 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 !

Le Rouky

XLDnaute Nouveau
Le forum,

Je suis coincé sur un problème de copier-coller avec un filtre.
Je joints un fichier avec ce qu'il devrait se passer, j'ai un soucis avec le copier-coller il m'en fait que 4 et non 5.sur la page "data" et me crée 5 lignes dans la page "Traitement"

si vous avez une proposition pour simplifier le code, cela m'intéresse aussi.

Cordialement
 

Pièces jointes

Le forum,

Je reviens sur ce Post, car au vu du nombre d'affichage, les gens ne doivent pas être intéressés pour répondre à une si banal requête ou me suis je mal expliqué.

le but étant de :

- dans l'onglet "Data"
- filtrer les cellules vide de la Colonne "E"
- de selectionner les 5 premières cellules visibles des colonnes "A" et "B"
- de coller ces données dans la feuille "Traitement" en bas du tableau, dans les colonnes "B" et "C"
- de mettre en au bout des lignes copiées colonne "E", le contenu de la "TextBox1"
- de mettre en couleur les cellules des lignes copiées de la Colonne "A" à "E"
- retirer le filtre

- dans l'onglet "Traitement"
- Mettre au bout des lignes coller
colonne "D" => le contenu de la "TextBox2"
colonne "E" => le contenu de la "TextBox1"

voila, pensant être plus claire, merci d'avance.

Cordialement
 
Le forum, @Phil69970,

c'etait mieux avant, l'utilisateur reste en feuille "Traitement", par contre c'est dans la colonne "saisie" en feuille "Data" que cela va.

j'avais modifié ton script en ajoutant
WsSrc.Range("E" & i) = "Lion"


Cordialement
 
Le forum, @Phil69970,

merci, j'avais déjà corrigé, tu est partie sur le tableau

VB:
        With WsDst.ListObjects("Tableau17069").ListRows.Add

est il possible de le remplacer par de la cellule A1 à la dernière cellule de la dernière colonne ?

Cordialement
 
Re

Tu as un tableau structuré donc la gestion du tableau est faite par excel et tu n'as pas besoin de t'en occupé.
Maintenant si tu n'as pas de tableau structuré post le fichier que je fasse les adaptations

*Si c'est pas cela désolé mais je n'ai pas compris ce que tu veux faire.

@Phil69970
 

dans mon fichier original le tableau n'est pas structuré, c'est pour cela que je pose la question.
peut-on faire la même chose sans ce tableau structuré ?

cordialement
 
- 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
9
Affichages
165
Réponses
12
Affichages
215
Réponses
10
Affichages
375
Réponses
16
Affichages
846
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…