Microsoft 365 Copie avec filtre

[Le Rouky]

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

 

[Le Rouky]

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

 

[Phil69970]

Bonjour @Le Rouky

A voir si la gestion des uns 🤣🤣 ne règles pas le pb

Je te laisse chercher quel 1 serait de trop

@Phil69970

 

[Le Rouky]

Le forum, @Phil69970 ,

merci de votre réponse, correction faite,

cordialement

 

[Phil69970]

Bonjour @Le Rouky

Avec un peu de retard.....
Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[Le Rouky]

le forum, @Phil69970 ,

merci, cela correspond en partie à ma demande,
je n'ai plus qu'à compléter le manque.

merci encore, tu m'ôtes une épine.

Cordialement et bonne continuation.

 

[Phil69970]

@Le Rouky

Et la version pour écrire "Liion" dans la colonne E comme demandé

Mais à quoi va servir la textbox de l'utilisateur ?

*Merci de ton retour

@Phil69970

 

[Le Rouky]

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

 

[Phil69970]

Re

@Le Rouky

Si tu veux modifier c'est cette ligne ==> c'est Lion

.Range(1, 5) = "Lion" 'Utilisateur prédéfini

Et comme cela c'est la valeur que l'utilisateur rentrera dans l'USF

.Range(1, 5) = 'Me.TextBox1 'Valeur rentré dans L'USF

A toi de choisir quel version du préfère

@Phil69970

 

[Le Rouky]

Le forum, @Phil69970,

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

        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

 

[Phil69970]

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

 

[Le Rouky]

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

 

[Phil69970]

Re

Donc tu n'as aucun tableau structuré ni dans Data ni dans traitement

@Phil69970

 

[Le Rouky]

c'est cela

 

[Phil69970]

Re

Je te propose cette version sans tableau

@Phil69970