[Résolu] Classement ordre alphabetique

[guillaum]

Bonjour le Forum,

j'ai une feuille sur laquelle j'enregistre des données et une autre que me remet les données par ordre alphabetique.

Le problème est que cela me met toujours le dernier en premier et le reste est bien trié.

Merci pour votre aide.

Guillaume

 

[Guest]

Re : Classement ordre alphabetique

Bonjour,

Si .Header = xlYes Inclure l'entête dans la plage
Mettre la clef sur la colonne entière de la plage

Private Sub Worksheet_Activate()
Dim Plg As Range
    Application.ScreenUpdating = False
    With Me
        .Parent.Worksheets("clients").Columns("A:O").Copy Destination:=.Range("A1")
        Set Plg = Range("A1").CurrentRegion
        With .Sort
            With .SortFields
                .Clear
                .Add Key:=Plg.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            End With
            .SetRange Plg
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    Application.ScreenUpdating = True
End Sub

A+

 

[JCGL]

Re : Classement ordre alphabetique

Bonjour à tous,

Passe la valeur .Header = xlYes à .Header = xlNo dans le module de la feuille Client2

A+ à tous

Edition : Pas remarqué la présence de mon très cher ami Ges sur cette discussion. A+++ l'ami

 

[guillaum]

Re : Classement ordre alphabetique

Bonjour HASCO et JCGL,

Merci pour votre aide, j'ai mis no au niveau du header et cela fonctionne.

Encore merci.

Guillaume.