trier et ranger par ordre alphabetique

[jsw]

Bonjour,

voici ce que je voudrait faire:
à partir d'une feuille comprenant 5 colonne, sélectionner certaines lignes de cette feuille et les ranger par ordre alphabêtique dans d'autres feuilles (A,B,C,...) selon la première lettre du contenu dans la première colonne.
ex: Afrte, Aeryt, feuille A
Crety, Cdert, feuille C
En espérant avoir été clair, merci d'avance.

 

[Cousinhub]

Re : trier et ranger par ordre alphabetique

Bonsoir jsw,
sans fichier exemple, c'est moins facile, mais regarde le fichier joint, et dis si cela correspond à ta demande

 

[jsw]

Re : trier et ranger par ordre alphabetique

Merci bhbh,

C'est presque ce que recherche, voici un exemple concret.
Par contre le fichier doit s'incrémenter lors d'ajout dans la feuille "données".

 

[Cousinhub]

Re : trier et ranger par ordre alphabetique

Bonjour jsw, le forum

Je ne comprends pas trop ce que tu veux...
C'est ce qu'il fait, tu rajoutes des données, t'appuies sur le bouton, c'est mis ç jour dans les différents onglets

"Ton" exemple "concret" en pièce jointe

 

[jsw]

Re : trier et ranger par ordre alphabetique

Bonjour bhbh,

ça marche mais le contenu existant des colonnes est effacé.

 

[Cousinhub]

Re : trier et ranger par ordre alphabetique

Re-,
comme énoncé dans ton premier fil, je "range" toutes les données dans les onglets associés, par le moyen d'un filtre élaboré.
Le principe du filtre est d'effacer l'ancienne zone d'extraction afin d'y inscrire les nouvelles données.
Maintenant, si tu veux conserver ces données antérieures, il faut passer par une boucle, copier la ligne en fonction de l'initiale du nom, et coller dans l'onglet ad-hoc, à la suite des données présentes.
Ce n'est pas tout à fait la même chose.
Si c'est ce que tu veux, tu le dis, on travaillera dessus.

PS : si tu avais joint un fichier exemple dès le début, on aurait peut-être déjà trouvé la bonne solution...

 

[Cousinhub]

Re : trier et ranger par ordre alphabetique

Re-,
pour la deuxième proposition, tu peux mettre ce code dans le module :

Sub range_alpha2()
Dim cel As Range
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
cel.Resize(1, 4).Copy Sheets(Left(cel, 1)).[A65000].End(xlUp).Offset(1, 0)
Next cel
End Sub

 

[jsw]

Re : trier et ranger par ordre alphabetique

Bonjour bhbh,

désolé de ne pas avoir été assez précis, le manque d'habitude sans doute.
C'est effectivement ce que je cherche à faire, coller les données dans les bonnes feuilles à la suite de celles existantes.