Discussion :

[sisopetron]

Bonjour à tous,

j'ai un problème à soumettre à votre sagacité : Dans la routine ci-dessous, j'ai une erreur "Erreur d'exécution « 1004 »:La méthode Sort de la classe Range a échoué." et je ne comprends pas pourquoi. Pourriez-vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    If Target.Column = 5 Then
        For i = 1 To 5
            If Range("D" & i + 6) <> "" Then
                Range("D" & i + 6) = StrConv(Range("D" & i + 6), vbUpperCase)
                derniere_ligne = Sheets("plan_comptable").Range("C1").End(xlDown).Row                
                If derniere_ligne = 1048576 Then derniere_ligne = 1 'si la colonne est vide à partir de C2 alors End(xlDown) renvoie 1048576 : d'où le test
                If Not Cherche(Sheets("Journal").Range("D" & i + 6), Sheets("plan_comptable").Range("C1:C" & derniere_ligne + 1)) Then
                    Sheets("plan_comptable").Range("C" & derniere_ligne + 1) = Range("D" & i + 6) 'si n'existe pas dans la liste, on l'ajoute
                    Sheets("plan_comptable").Range("C2:C" & derniere_ligne + 1).Sort
                End If 
            End If
        Next
    End If

Merci à vous.

[joe.levrai]

Bonjour,

que vaut dernière ligne ?
c'est quoi Cherche() ?

pourquoi tu utilises la méthode Sort sans aucun paramètre ? cf l'aide en ligne
par exemple, en renseignant le premier paramètre (Key1) tu devrais commencer à voir la résolution se présenter pour la personnaliser à ton besoin

[sisopetron]

La dernière cellule de la dernière ligne contient "carnets et reçus".

Il n'y a pas de paramètres parce qu'ils sont optionnel. Mais j'ai la même erreur quand je mets des paramètres.

Cherche() est une fonction qui recherche si le mot tapé dans la cellule fait partie du Range.

Merci de m'aider, c'est sympa.

[joe.levrai]

dernière cellule est une variable censée contenir un chiffre, pourquoi me donner la valeur d'une cellule

encore une fois, c'est assez fréquent depuis quelques temps, nous n'avons qu'une portion de code, sans aucune explication précise ... rien qui ne permet de cerner ce que tu veux faire, et comment sont agencées tes données.

pas évident dans ces conditions, on se fatigue/lasse vite


que te donne l'enregistreur de macro si tu tentes manuellement de faire le tri ?

[Jean-Philippe André]

Salut,

encore une histoire de mauvais sort.

Ce que je constate dans ton code c'est l'utilisation de Range() seul alors que tu as des Sheets() par ailleurs.

Complete tous les range en precisant le bon niveau hierarchique et ca devrait faire le contre sort qui va bien

[sisopetron]

Salut et merci de ton aide. Malheureusement rien n'y fait : même en spécifiant les sheets, le sort échoue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    If Target.Column = 5 Then
        For i = 1 To 5
            If Sheets("Journal").Range("D" & i + 6) <> "" Then
                Sheets("Journal").Range("D" & i + 6) = StrConv(Sheets("Journal").Range("D" & i + 6), vbUpperCase)
                derniere_ligne = Sheets("plan_comptable").Range("C1").End(xlDown).Row                
                If derniere_ligne = 1048576 Then derniere_ligne = 1 'si la colonne est vide à partir de C2 alors End(xlDown) renvoie 1048576 : d'où le test
                If Not Cherche(Sheets("Journal").Range("D" & i + 6), Sheets("plan_comptable").Range("C1:C" & derniere_ligne + 1)) Then
                    Sheets("plan_comptable").Range("C" & derniere_ligne + 1) = Sheets("Journal").Range("D" & i + 6) 'si n'existe pas dans la liste, on l'ajoute
                    Sheets("plan_comptable").Range("C2:C" & derniere_ligne + 1).Sort 'et on trie la liste
                End If 
            End If
        Next
    End If

[joe.levrai]

Difficile de garder l'envie d'aider, parfois c'est désespérant

pourquoi tu utilises la méthode Sort sans aucun paramètre ? cf l'aide en ligne
par exemple, en renseignant le premier paramètre (Key1) tu devrais commencer à voir la résolution se présenter pour la personnaliser à ton besoin

[sisopetron]

Salut Joe,

Ce qui est désespérant, c'est que certaines personnes qui fréquentent ce forum ont oublié qu'un jour elles ont débuté elles aussi. Ce qui te paraît ultra-simple est peut-être pour moi ultra compliqué. Quelle est la valeur de la dernière ligne ? Je pensais que tu parlais de celle de ma liste. Et sur cette page : https://msdn.microsoft.com/en-us/lib.../ff840646.aspx , il est bien indiqué que tous les paramètres sont optionnels. Maintenant je sais que ce n'est pas vrai. J'apprends de mes erreurs.

Désolé si je t'ai dégouté de donner de l'aide, ce n'était pas intentionnel.

siso

[unparia]

Bonjour
D'où l'intérêt à se concentrer (et à bien en comprendre le sens) sur ce qui est facultatif ou non et ce qu'est une valeur par défaut (lorsque non spécifiée).
C'est par ces "petites" choses-là, que j'ai commencé (que j'ai toujours commencé) avant de tenter d'aller plus loin, dans le brouillard.
C'est la raison, je crois, pour laquelle je t'ai mis un pouce rouge, sisopetron (avec mes excuses et mon amitié) et un pouce vert à joe.levrai. (je "signe" toujours mes "pouces", histoire d'être le plus franc possible du collier et que mes "pouces" ne soient pas inutiles).

[sisopetron]

Salut unparia,

Je ne sais pas ce que c'est que ces pousses rouge ou vert, mais je trouve que c'est un peu frustrant d'être débutant et de ce fait ne pas trop savoir comment poser la question pour être clair, de laisser un bout de code pour montrer où ça coince et de s'entendre dire que ce bout de code n'est pas significatif alors que ça l'était au vu de la solution et qu'enfin on se fait rembarrer.

Ca vaut manifestement un pouce rouge.

Bonne soirée.