Fonction trier et erreur 1004

Résolu

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Utilisateur anonyme - 27 avril 2009 à 15:17

Bonjour, j'ais généré via l'enregistreur de macro le code suivant devant me permettre de trier de manière croissante une suite de chiffres dans une colonne, mais j'ais une erreur 1004 qui apparait:

Sub TrierFourniture() 

Range("B1:C8000").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Auriez vous une idée d'ou ça peut provenir ? Merci de votre aide

Afficher la suite

A voir également:

Erreur 1004 vba
Erreur 0x80070643 - Accueil - Windows
Erreur 4101 france tv - Forum Lecteurs et supports vidéo
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues
Java code erreur 1603 ✓ - Forum Windows

12 réponses

Réponse 1 / 12

chossette9 Messages postés 4239 Date d'inscription Statut Contributeur Dernière intervention 1 311

Bonjour,

je viens de lancer ta fonction sur un classeur Excel quelconque contenant des valeurs dans la colonne B, et je n'ai pas eu de problème.

Quel est exactement le message d'erreur affiché ?

Réponse 2 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

Ayant généré cette macro sur un classeur vierge, je n'ais pas eu de problème non plus :s

Le message exact étant

"Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet"

Réponse 3 / 12

Utilisateur anonyme

Bonjour,

Si la fonction est dans un module standard, il faut lui indiquer sur quelle feuille opérer.

L'erreur 1004 est un erreur de débordement d'adressage d'objet.

Or la ligne [ Range("B1:C8000").Select ] ne spécifie pas la feuille a tester !

Essayer comme suit :

Sub TrierFourniture()

    With Sheets("Feuil1")
        .Range("B1:C8000").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
    
End Sub
'
'

Sub TrierFourniture(ByVal NomFeuille As String)

    With Sheets(NomFeuille)
        .Range("B1:C8000").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
    
End Sub
'

en espérant que j'ai vu juste, mais soyez conscient que je puis me tromper, je ne
vois pas votre classeur !!!

Lupin

Réponse 4 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

Le souci venait de la, merci Lupin :)

Par contre il me tri tout sauf la première ligne, que dois je modifier dans le code afin de prendre en compte la première ligne ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

Utilisateur anonyme

re:

Chez moi, il trie correctement incluant la première ligne, le seul paramètre manquant au tri
est le DataOption !

    With Sheets("Feuil1")
        .Range("B1:C8000").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With

Le paramètre [ Header:=xlGuess ] est bien affecté par rapport à un tri contenant
une entête [ Header:=xlYes ].

Lupin

Réponse 6 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

Sub TrierFourniture()

With Sheets("Fournitures")
Range("A1:F8000").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With
End Sub

J'ais rajouté le dataoption, et l'erreur 1004 a refait son apparition ^^'

Réponse 7 / 12

Utilisateur anonyme

re:

Sub TrierFourniture()

With Sheets("Fournitures")
Range("A1:F8000").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With
End Sub

Avec l'utilisation du mot clé [ With ], le mot clé [ Range ] doit être précédé d'un point [ . ]

Sub TrierFourniture()

 With Sheets("Fournitures")
    .Range("A1:F8000").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 End With
End Sub

Lupin

Réponse 8 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

Ok, en faisant le mode Pas à Pas l'erreur 1004 apparait plus tard dans le code ( au End With pour être précis )

Il y aurait il une autre erreur de syntaxe ?

Réponse 9 / 12

Utilisateur anonyme

re:

Pour moi, le code suivant fonctionne :

Option Explicit

Sub TrierFourniture()

    With Sheets("Feuil1")
        .Range("B1:C8000").Select
        Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
    
End Sub
'

Toutefois, la même remarque peut s'appliquer sur la paramètre [ Key1 ]

Option Explicit

Sub TrierFourniture()

    With Sheets("Feuil1")
        .Range("B1:C8000").Select
        Selection.Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End With
    
End Sub
'

Lupin

Réponse 10 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

En fait j'ais le souci, le code est sur une feuille 2 mais je lance ce code via un boutton feuille1.
Il fonctionne lorsque je suis sur la feuille2, mais l'erreur survient quand je me place sur les autres feuilles :s

Réponse 11 / 12

vash641 Messages postés 40 Date d'inscription Statut Membre Dernière intervention

J'ais réussi à m'en tirer avec un Sheets("feuilX").select et tout marche comme je le souhaite.

Problème résolu :)

Réponse 12 / 12

Utilisateur anonyme

re:

Tout s'explique, ça c'est l'information qui manquait et qui spécifie
des espaces de noms différents pour le code derrière une feuille.
Le code qui effectue le tri devrait être dans un Module et
non derrière une feuille.

Bonne continuité.

Lupin

Discussions similaires

Erreur 3005 sur France TV

Erreur d'exécution 13 Incompatibilité de type

Code erreur 3000

Panne T32 sur telecommande Orange

impossible lire vidéos france 2

Votre réponse

Discussions similaires