problème de sort

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:

---

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.

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 :f1:
par exemple, en renseignant le premier paramètre (Key1) tu devrais commencer à voir la résolution se présenter pour la personnaliser à ton besoin

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.

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 :aie:


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

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 :aie:

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

Code:

---

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

---

Bonjour.

Essaie en specifiant le parametre Key1.

Code:

---

1 2	Set r = Sheets("plan_comptable").Range("C1:C" & derniere_ligne + 1) r.Sort Key1:=r

---

Tu es génial : ça marche !

UN GRAND MERCI.

Code:

---

r.Sort Key1:=r

---

est l'equivalent de

Code:

---

r.Sort Key1:=r.Columns(1)

---

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

Citation:

---

Envoyé par joe.levrai

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

---

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

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).

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. :pleure:

Bonne soirée.

Frustrant ? Ah ...
J'ai toujours trouvé que c'était au contraire plutôt exaltant (c'est après, que l'on commence à s'ennuyer...). ;)

Eh non, souviens-toi comme il est frustrant de ne pas arriver à faire quelque chose. Mais je suis d'accord avec toi, c'est vachement bien d'apprendre. :D