Tris rapides et ligne de titre

[tototiti2008]

Bonjour à toutes et tous,

Une question, somme toute très bête, est-il possible de préciser quelque part si avec les boutons de tris rapides (AZ et ZA de la barre d'outils) il y a une ligne de titre à la liste ou pas ?
J'ai été confronté au problème avec une liste et une ligne de titre et les tris rapides me la déplaçaient automatiquement
J'ai fait un Tri par Données-Trier, précisé qu'il y avait une ligne de titre, validé, mais après ça mes tris rapides ne prennent toujours pas la première ligne comme une ligne de titre
J'ai fini par trouver une solution de contournement (qui ne fonctionne que pour la version 2003 d'ailleurs) mais c'est vraiment tordu donc si une astuce simple existe...

Merci de m'avoir lu

Edit : Un fichier exemple pour illustrer

 

[ralph45]

Re : Tris rapides et ligne de titre

Bonjour tototiti2008,

Il me semble - que lorsque la notion de filtre est mise dans les colonnes - qu'Excel reconnaisse tes champs de titres lorsque tu procèdes à des tris en passant par les boutons AZ ou ZA...

EDIT : J'ai procédé à un test sous 2007 avec un fichier relativement simple et cela fonctionne...
EDIT 2: J'ai procédé à un test sous 2007 avec ton fichier et cela fonctionne...
A+

 

[piga25]

Re : Tris rapides et ligne de titre

Bonjour tototiti2008

Sous 2007 et +
Onglet ACCEUIL
TRIER ET FILTRER
TRI PERSONNALISE
puis cocher "MES DONNEES ONT DES EN-TETES"

 

[ralph45]

Re : Tris rapides et ligne de titre

Re,

Bien vu piga25, je n'y avais pas pensé !!

A+

 

[tototiti2008]

Re : Tris rapides et ligne de titre

Bonjour ralph , Bonjour piga ,

Merci de vos réponses
@piga : oui mais en XL 2003 ? content que Microsoft ait apporté cette amélioration
@ralph : pas facile à reproduire car ça dépend un peu des données et de la façon dont elles ont été saisies
Si par exemple (méthode de saisie peu orthodoxe j'en conviens) tu saisis une ligne de données, tu insères une ligne au-dessus, tu saisis encore dans la 1ère ligne, tu insères une ligne au-dessus et tu saisis ta ligne de titre, les boutons de tris rapides considèrent qu'il n'y a pas de ligne de titre, et même le filtre automatique n'y change rien chez moi en 2003

 

[Tibo]

Re : Tris rapides et ligne de titre

Salut Marc,

A tester sous 2003 :

Lorsque la première ligne est en gras, Excel la reconnaît comme ligne de titre.

Livré sans garantie toutefois.

@+

 

[tototiti2008]

Re : Tris rapides et ligne de titre

Bonjour Tibo,
Re,

Nickel, ça marche au poil , Merci Tibo
Comme quoi on en apprend toujours

 

[MJ13]

Re : Tris rapides et ligne de titre

Bonjour à tous

Voici un fichier fait sur XL2007 pour trier en fonction d'où on se trouve. C'est clair que cela devient complexe les tri avec Excel .

Sub Tri_Ascendant()
Derl = ActiveSheet.Rows.Count
Derc = ActiveSheet.Columns.Count
'RefTableau = Range(Cells(2, 1), Cells(Derl, Derc)).Address
RefTableau = Range(Cells(ActiveCell.Row, 1), Cells(Derl, Derc)).Address
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range(ActiveCell.Address) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
        .SetRange Range(RefTableau)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub Tri_Descendant()
Derl = ActiveSheet.Rows.Count
Derc = ActiveSheet.Columns.Count
'RefTableau = Range(Cells(2, 1), Cells(Derl, Derc)).Address
RefTableau = Range(Cells(ActiveCell.Row, 1), Cells(Derl, Derc)).Address
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range(ActiveCell.Address) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
        .SetRange Range(RefTableau)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[tototiti2008]

Re : Tris rapides et ligne de titre

Bonjour Michel, Bonjour à tous,

Désolé pour la réponse tardive
Merci de ta proposition mais ça ne tourne pas en 2003, il n'aime pas la ligne

ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear

J'ai essayé en VBA et un code du genre

Sub Tri_Ascendant()
    ActiveCell.CurrentRegion.Sort Key1:=ActiveCell, Order1:=xlAscending, header:=xlYes
End Sub
Sub Tri_Descendant()
    ActiveCell.CurrentRegion.Sort Key1:=ActiveCell, Order1:=xlDescending, header:=xlYes
End Sub

Semble fonctionner correctement, à première vue

 

[MJ13]

Re : Tris rapides et ligne de titre

Bonjour à tous

Sub Tri_Ascendant()
    ActiveCell.CurrentRegion.Sort Key1:=ActiveCell, Order1:=xlAscending, header:=xlYes
End Sub
Sub Tri_Descendant()
    ActiveCell.CurrentRegion.Sort Key1:=ActiveCell, Order1:=xlDescending, header:=xlYes
End Sub

Merci Tototiti pour ce code qui semble fonctionner sur XL2007 et qui est très explicite. Comme quoi, dès fois, les codes les plus simple sont souvent les meilleurs .