trier des titres de films

Bonjour,
Cette macro execute le tri sans tenir compte des articles:
Sub Tri()
ArticLes = Array("LA", "LE", "LES", "L'", "UN", "UNE", "DES", "DU",
"D'", "AU", "AUX")
For Each LaCell In Selection: For Each ArticLe In ArticLes
L = Len(ArticLe)
If UCase(Left(LaCell.Formula, L)) = ArticLe Then
LaCell.Value = Mid(LaCell, L + 1) + "$$" + Left(LaCell, L)
Exit For
End If
Next: Next
Selection.Sort key1:=Selection, order1:=xlAscending, header:=xlGuess, _
ordercustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
For Each LaCell In Selection
x = InStr(LaCell, "$$")
If x > 0 Then LaCell.Value = Mid(LaCell, x + 2) + Left(LaCell, x - 1)
Next
End Sub
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
"serge" <ilfaut@demander.fr> a écrit dans le message de news:
ekrjD%239cFHA.3156@tk2msftngp13.phx.gbl...

Bonjour,
Je me suis fait une simple feuille excel avec la liste de tous les films
dont je dispose.
J'essais de les rentrer par ordre alphabétique seulement quand ce sont des
titres de plusieurs mots genre "la bataille du rail", je suis embêté pour
les classer car il faudrait qu'il prenne en compte toutes les lettres du
titre.
Comment faire ?
merci
serge

Cette macro execute le tri sans tenir compte des articles:
Sub Tri()
ArticLes = Array("LA", "LE", "LES", "L'", "UN", "UNE", "DES", "DU", "D'",
"AU", "AUX")

Moi je serai tenté de mettre la ligne suivante plutôt que la tienne:
ArticLes = Array("LA ", "LE ", "LES ", "L'", "UN ", "UNE ", "DES ",
"DU ", "D'",

"AU ", "AUX ")
Car sinon tous les titres qui avaient initialement un article se

retrouvent devant ceux qui n'en avaient pas. C'est l'espace laissé
après l'article qui fait toute la différence
Sinon la suite est OK

For Each LaCell In Selection: For Each ArticLe In ArticLes
L = Len(ArticLe)
If UCase(Left(LaCell.Formula, L)) = ArticLe Then
LaCell.Value = Mid(LaCell, L + 1) + "$$" + Left(LaCell, L)
Exit For
End If
Next: Next
Selection.Sort key1:=Selection, order1:=xlAscending, header:=xlGuess, _
ordercustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
For Each LaCell In Selection
x = InStr(LaCell, "$$")
If x > 0 Then LaCell.Value = Mid(LaCell, x + 2) + Left(LaCell, x - 1)
Next
End Sub

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Bonjour,

Je ne vois pas où est le problème. En standard, le tri des cellules dans
Excel, pour pru qu'il n'y ait que su texte, se fait sur l'ensemble du texte.

Sinon, cela peut aussi être fait dans Word:

Lister chaque titre sur sa propre ligne avec une marque de fin de paragraphe
à la fin de chaque ligne

Sélectionner la liste.

Tableaux - trier


(À moins que ce ne soit comme pense Daniel, trier sans tenir compte de
l'article initial...)


"serge" <ilfaut@demander.fr> a écrit dans le message de
news:ekrjD%239cFHA.3156@tk2msftngp13.phx.gbl...

Bonjour,
Je me suis fait une simple feuille excel avec la liste de tous les films
dont je dispose.
J'essais de les rentrer par ordre alphabétique seulement quand ce sont des
titres de plusieurs mots genre "la bataille du rail", je suis embêté pour
les classer car il faudrait qu'il prenne en compte toutes les lettres du
titre.
Comment faire ?
merci
serge