tri alphabétique

  • Initiateur de la discussion Piffard
  • Date de début
P

Piffard

Guest
Bonjour,

je cherche à faire un tri alphabétique sur pls cellules d´une ligne.
En fait 7 cellules d´une ligne comprennent chacunes une lettre.
MAIS, ayant un nombre important de ligne, je ne peux le faire ligne à ligne. Quelqu´un aurait-il une solution.

merci

Si je ne suis pas clair dans ma requête, n´hésitez pas à m´en faire part
 
W

will

Guest
Salut

tiens j'ai fait une petite macro ki marche apparemment

Dim i As Integer

For i = 1 To 2000

Range(Cells(i, 1), Cells(i, 7)).Select
Selection.Sort Key1:=Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

Next i

Range("A1").Select


Je sais doit y a voir mieux question esthétik mais bon je fais ce ke je peux!!
a+
will
 
W

will

Guest
Voila la macro en entier avec les explications a coté
Pour la rentrer sous excel, tu fais alt+F11 , tu as un bouton dans la barre d'outils créer module, tu en crée un et apres tu colles dedans le code donné ci-dessous.
Ensuite soit tu lances la macro a partir du menu "macro" soit tu crées un bouton auquel tu affectes la macro (tu le fais avec le click droit). C pas tres compliqué à faire la premiere fois je pense

will



Option explicit

Sub tri_ligne

Dim i As Integer 'on déclare la variable

For i = 1 To 54600 'tu mets ici le nombre de lignes pour lequel tu veux que la macro se fasse

Range(Cells(i, 1), Cells(i, 7)).Select
Selection.Sort Key1:=Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal

' le tri est fait

Next i

Range("A1").Select ' ca repositionne en A1

End sub
 
Z

Zon

Guest
Salut,

Oups j'avais pas vu que Piffard avait doublé son post. D'ailleurs c'est pas à faire . Will les select quand on peut s'en passer on les évite, sur 50000 lignes lancer un sort sur chaque ça risque d'être longuet même en bloquant le raffraichissement d'écran avec application.screenupdating=false .
Il vaut mieux passer par des tableaux comme j'ai répondu dans l'autre post.

A+++
 
W

will

Guest
Salut Zon,

je suis d'accord avec toi mais je voulais essayer d'aider Piffard comme je le pouvais! mais j'ai deja fait des macros comme ca sur des grandes bases de données et ca m'a jamais bloqué...??
bon en tout cas j'espere qu'il aura vu ta solution...
a +
will
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
466
Réponses
31
Affichages
1 K
Réponses
10
Affichages
467

Statistiques des forums

Discussions
312 779
Messages
2 092 045
Membres
105 166
dernier inscrit
Patrice60