Fonction trier et erreur 1004 Résolu/Fermé

Question

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

chossette9 · Answer

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é ?

vash641 · Answer

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"

Utilisateur anonyme · Answer

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
'
'


ou


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

vash641 · Answer

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 ?

Utilisateur anonyme · Answer

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

vash641 · Answer

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 ^^'

Utilisateur anonyme · Answer

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

vash641 · Answer

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 ?

Utilisateur anonyme · Answer

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

vash641 · Answer

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

vash641 · Answer

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

Utilisateur anonyme · Answer

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

Fonction trier et erreur 1004

12 réponses

Discussions similaires