Erreur 438 dans l'exécution d'un code qui fait un tri horizontal [Résolu]

Signaler
Messages postés
3
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020
-
Messages postés
12725
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 octobre 2020
-
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.

1 réponse

Messages postés
12725
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 octobre 2020
707
bonjour, à quelle ligne l'erreur se produit-elle?
Messages postés
3
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

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 !
Messages postés
12725
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 octobre 2020
707 >
Messages postés
3
Date d'inscription
jeudi 1 octobre 2020
Statut
Membre
Dernière intervention
12 octobre 2020

parfait, merci de nous en avoir informé.