Erreur 1004 : la méthode Sort de la classe Range a échoué

Anonyme
2024-06-22T12:44:28+00:00

bonjour,

j'ai un fichier .xlsm contenant 4 feuilles, dont une dans laquelle j'ai un seul tableau que je souhaite trier automatiquement à la saisie en fonction d'une colonne contenant des dates.

j'ai tapé la macro suivante qui est signée numériquement et j'ai configuré excel pour que les macros signées fonctionnent (j'ai testé, en rajoutant un msgbox ça marche).

il n'y a aucune protection du fichier excel ou d'une des feuilles, mais chaque fois que la macro arrive à la ligne soulignée j'ai le message d'"erreur : "Erreur 1004 : la méthode Sort de la classe Range a échoué"

si quelqu'un a une idée, parce que moi j'en ai plus....

merci d'avance

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Intersect(Target, [a4:a63]) Is Nothing Then _

[a3:n63].Sort Key1:=[a4], order1:=xlDescending, Header:=xlNo

Application.EnableEvents = True

End Sub

Microsoft 365 et Office | Excel | Autres | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire

3 réponses

  1. Anonyme
    2024-07-01T15:19:56+00:00

    Mise à jour :

    J'ai voulu changer les données pour poster le classeur ici, j'ai donc mis des noms bidons, des matricules bidons, j'ai supprimé toutes les données des colonnes numéro de tel, mail, nom, prénom.

    Et quand je teste le code ça fonctionne parfaitement !

    Je rate un truc ou je suis dans la 5eme dimension ...?

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  2. Hecatonchire 53,950 Points de réputation Modérateur bénévole
    2024-06-22T13:18:26+00:00

    Bonjour,

    Sans trop de conviction : Vérifie dans Outils>Références qu'il n'y en a pas une marquée "MANQUANTE"

    Sinon partage le fichier (ou la partie problématique) via un cloud ou un site comme http://www.cjoint.com (limite 15 Mo) ou https://www.swisstransfer.com/fr (limite 50 Go)

    Tu obtiendras une adresse/lien qu'il faudra publier/poster ici dans un message.

    ! Attention ! Pas de données confidentielles (les effacer ou les remplacer) !

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  3. DanielCo 107.7K Points de réputation
    2024-06-22T13:17:40+00:00

    Bonjour,

    Ca ne génère pas d'erreur ici ? Peux-tu partager le classeur ?

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire