XL 2013 RESOLU xporter une ligne entière selon 7 conditions sur 7 feuilles diffrentes

[ymanot]

Bonsoir
Je travail sur un vieux projet que j essaie d améliorer.
Jusque là j avais dans une feuille le résultat d un filtre par macro. Ce résultat se traduisait par une liste de noms avec diverses informations.
Après une manipulation fastidieuse par copier coller je déplaçais ligne par ligne que j attribuais dans des feuilles nommées de 1 à 5.

Je souhaiterais après un clic menu déroulant en cellule A. Que le code identifie le'numero "1" en cellule À puis copie automatiquement la ligne complète dans la feuille contenant le numéro 1. ( Celui de ma cellule À)
Comme il s agit d'une liste je ne voudrais pas remplacer les noms mais je voudrais que les lignes de copient collent les unes en dessous des autres.

Je sais que "staple1600" va penser très fort " encore ! Ce sujet a déjà été traité. !!! " Mais quand je tente
de faire filtre élaboré, je me heurte au fait que ce qui conditionne l export de mes lignes est un menu deroulant offrant un choix de numéros de 1 à 7.


Si quelqu un peut m aider svp?

 

[cp4]

Bonjour tout le monde

@cp4

Si tu veux, c'est la ligne suivante après la dernière cellule remplie du tableau.

@Lone-wolf : Merci beaucoup. Si j'ai bien compris c'est équivalent à:

Sheets(nom).Range("a" & Rows.Count).End(xlUp).Row + 1

Bonne fin d'aprés-midi.

 

[Staple1600]

Bonjour le fil, le forum

@cp4
En complément à la réponse de Lone-Wolf

Sub test()
[A1:A5] = "=ROW()*COLUMN()"
a = Cells(Rows.Count, 1).End(xlUp).Row
aa = Cells(Rows.Count, 1).End(3).Row
b = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
bb = Cells(Rows.Count, 1).End(3)(2).Row
MsgBox a & Chr(13) & aa
MsgBox b & Chr(13) & bb
End Sub

 

[cp4]

Bonjour,

@Staple1600 : Merci beaucoup pour le complément. C'est bon à connaitre, j'espère ne pas oublier.

Bonne fin de dimanche.

edit: une question, que signifie [A1:A5] = "=ROW()*COLUMN()"

 

[Staple1600]

Re

@cp4
Que signifie quoi?
Il manque la fin de la phrase, non ?

 

[cp4]

Re

@cp4
Que signifie quoi?
Il manque la fin de la phrase, non ?

c'est la ligne [A1:A5]="= Row()*Column()", je n'ai pas compris l'utilité et la signification.
Merci.

 

[Staple1600]

Re

@cp4
Cette ligne ne sert à rien d'autre que de créer des données pour ensuite pouvoir tester la macro
(sinon la feuille active serait vide et la macro test afficherait des MsgBox où on lirait 1 puis 2)

 

[cp4]

Re,

Merci beaucoup. C'est clair.

Bonne soirée.

 

[ymanot]

Bonsoir le forum
suite à remarque j ai supprimé les noms de mon fichier.
Malgré le travail de lone wolf je ne peux exploiter son tableau car il n a pas completement compris ma demande.
Bien que je respecte vos competences et votre travail pour m aider. j ai du etre flou dans ma demande.

pour comprendre mon tableau la recherche par combo box dans la feuille "repartitions 2019' permet de lister tout un ensemble d 'élèves issus d'une cohorte par exemple un ensemble d 'élèves issus des classe de 4e.
la ou la macro de lone wolf est SUPER c est qu elle repartie directement le resultat de la recherche.

PREMIERE DEMANDE : a partir de la recherche d'une cohorte via ma combobox est il possible de copier directement le resultat dans l 'une des feuilles nommées "tri"
si je recherche des 6e copier directement le resultat dans la feuille "tri 5e"
si je recherche des 5e copier directement le resultat dans la feuille "tri 4e"
si je recherche des 4e copier directement le resultat dans la feuille "tri 3e"

enfin la nouvelle macro générée par lone wolf répartie automatiquement les élèves dans les classes.
ce que je souhaiterais et c'est l objet de mon post c est qu une fois que la combo box a sorti
l'ensemble des "4e" que la plage complete soit recopiée dans la feuille "tri 3e"
l'ensemble des "5e" que la plage complete soit exportée dans la feuille "tri 4e"
l ensemble des "6e' que la plage comlete soit exportée dans la feuille "tri 5e"

meme si pour certains il peut y avoir redondance, ce filtrage est très important pour moi, puisqu une fois ce filtre effectué nous nous réuniront entre collegues pour discuter des cas individuels et enfin nous les affecterons dans de nouvelles classes.
Aussi j arrive a la derniere demande

une fois resolu la recherche via combo box d une cohorte et une fois que le resultat de cette recherche est copié directement dans la feuiille de tri correspondante, pourriez vous m expliquer comment placer la macro de tri de lone wolf post#2 dans chacune de mes feuilles nommées " tri"
et surtout comment generer le menu deroulant avec les numero de 1 a 7 svp.
j ai bien ouvert le document j ai bien vu la macro copiée sur la feuille "base" mais je ne comprends pas comment générer le menu deroulant qui soit en relation avec la macro de recherche en colonne A.

merci pour votre aide

 

[David Aubert]

Bonjour,
J’ai supprimé le fichier, il y avait encore des noms de familles dans certaines colonnes!
David

 

[Lone-wolf]

Bonjour tout le monde

@ymanot :

si je filtre des 4e en extraction je les deplacerai en feuille "tri 3e" si ce sont des 5e je les exporterai en feuille "tri 4e" et si je filtre des 6e je les exporterai en feuille "tri 5e'.

Fichier exemple d'après ce que tu dis ici.