Erreur sur Macro de Tri

Bonjour à tous,

J'ai un problème que je ne parviens pas à solutionner sur une macro qui doit me trier un tableau entier après ajout d'une ligne.

    ' Trier par ordre croissant le compte ajouté
    ' Selectionner la liste complète à trier
    Dim feuilleCApartype As Worksheet, listeCApartype As Range

    Set feuilleCApartype = ActiveSheet
    Set listeCApartype = Range("A4").CurrentRegion

    With feuilleCApartype
        With .Sort
            .SortFields.Add listeCApartype, xlSortOnValues, xlAscending, xlSortTextAsNumbers
            .SetRange listeCApartype
            .Header = xlYes
            .Apply
            .SortFields.Clear
        End With
    End With

    ' Effacer les informations du nouveau compte créé
    Range("J6,J8,J10").Select
    Range("J10").Activate
    Application.CutCopyMode = False
    Selection.ClearContents

    ' Forcer la mise en majuscule du libellé
    For Each x In listeCApartype
        ' Change the text in the range to uppercase letters.
        x.Value = UCase(x.Value)
    Next

La Macro bloque sur ".Apply" systématiquement... J'ai la même macro qui fonctionne très bien dans d'autres feuilles (avec des noms "Worksheet" et "Range" différents).

Si certains d'entre vous, plus experts, voient ce qui ne colle pas...

Merci et bonne journée.

Joe

bonjour,

si la macro fonctionne correctement sur d'autres feuilles, le problème n'est probablement pas la macro mais (le contenu de) la feuille que tu essaies de trier. (protection, erreur de données, cellules fusionnées, ...). sans voir le classeur en question difficile d'en dire plus.

Bonjour h2s04,

voilà le fichier test.

C'est sur la feuille "CA par Type Prestation" que la macro bloque sur le tri en .Apply.

Merci pour ton attention.

Joe

bonjour,

voici une correction (je ne pense pas que ce code que tu as mis fonctionne sur d'autres feuilles)

Merci h2s204,

C'est nickel. Dans une autre feuille, et après avoir testé, ça fonctionne... peut-être qu'à un moment donné ça ne fonctionne pas ou plus .

Je vais y jeter un oeil, en attendant merci de ton aide.

Joe

re-bonjour,

Je pense que cela pourrait fonctionner si le tableau ne contient qu'une seule colonne.

Effectivement... l'autre tableau ne contient qu'une seule colonne