Erreur 438 dans l'exécution d'un code qui fait un tri horizontal

Résolu
Mo_1001 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Voici mon code qui génère l'erreur en objet. Ce vode a été fait par l'enregistrement des étapes manuelles. Merci d'avance pour votre aide !

Sub Tri()

' Tri Macro

'
    Columns("U:AU").Select
    ActiveWorkbook.Worksheets("Taux").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Taux").Sort.SortFields.Add2 Key:=Range("U2:AU2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Taux").Sort
        .SetRange Range("U1:AU274")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub


EDIT : Ajout des balises de code.
A voir également:

1 réponse

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, à quelle ligne l'erreur se produit-elle?
0
Mo_1001 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci yg_be , mais j'ai trouvé ma réponse dans les discussions sur le sujet dans ce forum. J'ai fait la modification et ça a marché ! Bien contente !
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Mo_1001 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
parfait, merci de nous en avoir informé.
0