Erreur avec la méthode Sort

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonsoir
j'ai créer un petit programme qui remplit un tableau avec les données d'un Userform.
Lorsque toutes les données sont entrées dans le tableau, je voudrais trier le tableau par ordre croissant de la colonne D puis idem par la colonne L.
Sauf qu'il me met un message d'erreur lorsqu'il en arrive au tri...
Voici une partie de la programmation avec en rouge là où il me met le message d'erreur, si quelqu'un pourrait m'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub Validez_Click()
    
    Application.ScreenUpdating = False
    If Semaine.Value > 52 Then
        informer = MsgBox("Cette semaine n'existe pas!" & (Chr(13) & Chr(10)) & "Validation impossible...", vbOKOnly)
        Exit Sub
    End If
    Unload Données
    Sheets("liste des AT ").Select
    Ligne = Range("N4").Value + Range("O3").Value
    Ligne = Ligne + 1
    ligne2 = Ligne + 5
        Range("A" & ligne2) = Unit.Value
        Range("B" & ligne2) = Semaine.Value
        Range("D" & ligne2) = Date_AT.Value
        Range("E" & ligne2) = Lieu.Value
        Range("F" & ligne2) = Circonst.Value
        Range("G" & ligne2) = Element.Value
        Range("H" & ligne2) = Lesions.Value
        Range("K" & ligne2) = Age.Value
        Range("L" & ligne2) = Heure_AT.Value
        Range("M" & ligne2) = Service.Value
        Range("N" & ligne2) = Prevention.Value
        Range("O" & ligne2) = Actions.Value
    
    If Acc_trav.Value = True Then
        Range("C" & ligne2) = "AT"
        Range("I" & ligne2) = jour_arret_trav.Value
        Range("J" & ligne2) = ""
        Else
        If Acc_traj.Value = True Then
            Range("C" & ligne2) = "AJ"
            Range("I" & ligne2) = ""
            Range("J" & ligne2) = jour_arret_traj.Value
        End If
    End If
    
    Initialize.Show
    Range("N4") = Ligne
    Ligne = Range("N4").Value - Range("O3").Value
    Range("N4") = Ligne
    Range("A" & ligne2).Select
    
    Call initialise_Acc
    
    Rows("6:87").Select
    Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal    
Range("A6").Select
    
    Application.ScreenUpdating = True

End Sub

Merci d'avance

Le message d'erreur est

Citation:

la méthode Sort de la classe Range à échoué

Je ne comprends pas...

17/10/2008, 14h34
Caro-Line

As-tu essayé en pas à pas, par exemple en ne faisant d'abord qu'un seul sort ?
Ceci dit ça doit venir de ta sélection précédente.
Si au lieu de sélectioner Rows("6:7") tu essayais de passer par un objet Range(...) ?

Merci pour tes idées
Mais j'ai déjà tout essayer
Voici tout ce que jai essayé mais en vain...

Code:

1
2
3
4
5
6
7
8
 
'    Rows("6:87").Select
'    Range("A6:Y87").Select
'    Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6"), Order2:=xlAscending
'    Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6") _
        , Order2:=xlAscending, Header:=xlNo, MatchCase:= _
        True, Orientation:=xlSortColumns, DataOption1:=xlSortTextAsNumbers, _
        DataOption2:=xlSortNormal

17/10/2008, 14h52
Caro-Line

Bon je vais peut-être dire des bêtises mais j'essaye d'avoir des idées :?
As-tu essayé de faire ce que tu veux avec l'enregistreur de macro pour voir ce que lui te donne ?
En faisant du pas à pas dans ta macro, juste avant le sort, tu as bien quelque chose dans tes cellules (surtout D6 et L6) ?

Je te rassure, tu ne dis pas de bêtises car en ne trouvant pas je me suis dis que j'allais créer une macro qui me ferait le tri.
Cela marche lorsque je fais la macro mais dès que j'intègre la macro dans mon programme il plante.
Voici la macro telle quelle est lorsque je la creee
Code:

1 2 3 4 5 6 Range("A6:Y87").Select Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal

17/10/2008, 14h58
decondelite

C'est ton argument Orientation qui plante: il n'accepte que les valeurs xlSortRows et xlSortColumns. ;)

EDIT: on dirait qu'on a trouvé un bug de l'enregistreur de macros... :roll:
17/10/2008, 15h00
Invité

Bonjour,

A toutes fins utiles, dans la mesure où avant le code pour le tri vous avez :

Code:

Call initialise_Acc

-n'y a-t-il pas dans le code de cette procédure quelque chose qui provoque ce problème, par exemple l'activation d'une autre feuille ?
17/10/2008, 15h05
decondelite

Si je puis me permettre, je voudrais demander à phal2ip de bien vouloir nous donner un classeur de support, car à vide chez moi ça a toutes les chances de planter, et je ne peux donc pas être sûr à 100% que l'erreur vient bien de l'argument Orientation.

@ jacques: oui c'est fort possible également.
17/10/2008, 18h17
fring

Bonjour tlm,

Ceci ne conviendrait pas ?

Code:

Range("A6:Y87").Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6"), Order2:=xlAscending

Pas besoin de spécifier les autres paramètres de tri vu que ce sont les valeurs par défaut.

Cdlt
17/10/2008, 18h45
Invité

Bonjour,

En fait j'ai testé le code et il fonctionne très bien avec :

Code:

Rows("6:87").Select

Mais il est évident qu'il est aussi simple d'utiliser

Code:

Range("A6:Y86")

Par contre dans tous les cas ce qui est refusé est :

Code:

DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

et là je pense que cela peut venir de la version (2000 chez moi).

Mais il reste une chose : j'ai mis ce code sur la feuille et non dans un module, et il fonctionne,ce qui m'a fait penser à ce problème de procédure appelée avant le tri, si la feuille active n'est plus la bonne.
17/10/2008, 19h16
fring
Pour éviter le problème de la mauvaise feuille active ou de la mauvaise cellule active, YFO éviter d'utilser les Machin.Select et les Truc.Activate ;)

Il serait bien également de ne pas figer la dernière ligne (87) dans le code
Code:

1 2 3 4 Dim Sh as Worksheet Set Sh = Sheets("MaFeuille") Sh.Range("A6:Y" & Sh.Range("Y65535").End(xlUp).Row).Sort Key1:=Sh.Range("D6"), Order1:=xlAscending, Key2:=Sh.Range("L6"), Order2:=xlAscending
18/10/2008, 11h29
phal2ip

Bonjour à tous
Merci pour toutes vos différentes réponses qui ne m'ont malheureusement pas aidé pour le moment.
La bonne feuille est active puisque dans mes essais avec le rows(....) il me sélectionner les bonnes cellules de la bonne feuille donc...
Je voulais vous envoyer le fichier mais l'upload a échoué. je suppose que le fichier est trop gros (env 3.5Mo).
Même en le Zippant, il fait encore 575Ko qui dépasse les 512Ko du forum
Donc je ne sais pas comment je peux vous aider...
Je vais essayer de trouver une solution...
En tout cas merci pour le moment mais je ne lacherais pas l'affaire :mouarf:
18/10/2008, 13h18
phal2ip

Re
Voilà j'ai trouver une solution cliquez sur le lien suivant pour télécharger le fichier en entier :
http://www.csmundo-volley.org/Recap%20AT.htm
Le souci est que pour tester il vous faudra entrer un AT et vous verrez l'erreur...
Sinon essayer directement dans le code du UserForm de Donnees sous Visual Basic.
Dans la Sub Validez tout en bas il y a toutes les codes que j'essaye et que j'ai essayé...
Merci de votre aide...
18/10/2008, 14h50
JackOuYA
Bonjour,

essai de chercher pas toi-même on ta indiqué comment modifier ton code pour qu'il soit moins sujet à probléme en supprimant les select et les activate , et d'aprés ce que je comprends tu n'en as pas tenu compte :aie:

modifie ton code et rajoute donc une instruction stop :
Code:

1 2 3 4 .. Rows("6:87").Select stop Selection.Sort Ke..
puis exécute ton code et lorsqu'il s'arrêt sur stop vérifie la feuille active et ta sélection sous excel

Bonjour,

Une première remarque :

vous vous rendez compte de la complexité (toute relative pour vous, mais pour quelqu'un qui se plonge pour la 1ère fois dans votre code).

Pour créer une "AT" sur le formulaire lorsqu'il s'agit de choisir dans un Combobox pas de problème, lorsqu'il est précisé qu'il faut entrer une date non olus mais pour le reste est-ce que l'on entre des données valables ?

J'ai essayé et j'ai un premier arrêt sur :
Code:

1 2 3 4 Range("A2:B36").Select Selection.Find(What:=élément, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate
dans la procédure : initialise_Acc

La deuxième :

le problème ne se trouve sans doute pas làmais je ne peux m'empêcher de vous poser la question :

pourquoi utiliser des noms de feuilles qui se terminent par un espace ? Exemple :
"Liste des AT "

ou d'autres qui comprennent un séparateur mais entouré d'espace, exemple :

"Statistique AT - chsct" car lorsque l'on teste on se pose toujours la question si cela existe ailleurs que sur les noms de feuille ?

Cela dit lorsque j'utilise votre procédure "Test", que j'ajoute la ligne en rouge et que je supprime la partie du code en bleu, aucun problème le tri fonctionne comme je l'avais déjà écrit précédemment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() ' ' test Macro ' Macro enregistrée le 16/10/2008 par Philippe ' ' Sheets("liste des AT ").Select Range("A6:Y87").Select Selection.Sort Key1:=Range("D6"), Order1:=xlAscending, Key2:=Range("L6")_ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal End Sub
Alors dans votre procédure utilisée réellement si vous tentiez ces modifications, pour vérifier ?

18/10/2008, 18h28
phal2ip

Je viens de copier la préocédure test modifiée mais j'ai la même erreur constamment...
Me faut-il peut etre créer une sub Tri et y faire appel je vais tester.
Merci encore pour tout
19/10/2008, 09h57
phal2ip

Bonjour à tous
je ne comprends tjs pas le souci mais j'ai trouvé une alternative.
J'ai créer un bouton qui utilise la Sub Tri et ça marche...
Pourquoi la même Sub appelé dans le programme ne marche pas avec le reste??? cela restera pour moi un mystère.
Mais si quelqu'un me trouve la solution cela m'arrangerait car pour ma part je continuerais de chercher...

Merci encore à tous
19/10/2008, 10h18
JackOuYA

Citation:

Envoyé par phal2ip

Bonjour à tous
je ne comprends tjs pas le souci mais j'ai trouvé une alternative.
J'ai créer un bouton qui utilise la Sub Tri et ça marche...
Pourquoi la même Sub appelé dans le programme ne marche pas avec le reste??? cela restera pour moi un mystère.
Mais si quelqu'un me trouve la solution cela m'arrangerait car pour ma part je continuerais de chercher...

Merci encore à tous

la solution et déjà dans ce message ! tu as bien enlevé tout tes select et activate ?
19/10/2008, 13h11
phal2ip

Ben oui j'ai essyé toutes les solutions qui m'ont été proposées ici mais rien ne marche lorsque je la rajoute à la suite mais cela marche très bien tout seul.
Y a t il une solution pour deselect toutes les .select ou activate???
Peut etre qu'en ajoutant cela avant la procédure cela marchera????

Voir 40 message(s) de cette discussion en une page