Astuces Excel
  1. Astuces Excel
  3. La méthode de classment VBA de la class Range a échoué
Intereting Posts
excel vba: comment sortinger le groupe de lignes en fonction de la valeur de la colonne Utilisation de VBA pour minimiser la contrainte Utilisation de la fonction Indirect dans la formule CountIf pour countr le nombre de fois que la string de text se produit dans une colonne Obtention de l'erreur 438 pendant le chargement du solveur à la fois manuellement et via VBA Traitement correct des erreurs dans VBA (Excel) Comment puis-je append à la formule pour me séparer en colonnes Comment puis-je déterminer le nombre maximum de feuilles Excel possibles à créer dans un programme C #? Essayer de merge des colonnes set dans Excel Extraire datatables de la feuille de calcul json à l'aide de Powershell, puis copyr dans une autre colonne Comment appliquer un CellFormat à la cellule Loop pour insert une ligne, copyr des données Tableau Javascript vers Excel Numéro d'Excel et problèmes de boîte Adresse de la propriété / fonction pour renvoyer l'adresse de la cellule en tant que paire / list / tableau d'entiers Copiez des données spécifiques à partir d'un classur et collez-le dans un autre classur (collez de la deuxième rangée)

La méthode de classment VBA de la class Range a échoué

Je sais qu'il existe plusieurs threads sur ce sujet, mais aucune des réponses n'a permis de résoudre cette erreur.

J'essaie de sortinger une table à l'aide de trois touches mais reçois l'erreur "Erreur d'exécution" 1004 ': la méthode de classment de la class Range a échoué "

J'ai essayé de changer "Range (" L2 ")" to ".Range (" L2 ")" et j'ai reçu l'erreur "Erreur de compilation: reference invalide ou non qualifiée"

J'ai essayé de spécifier la plage réelle au lieu d'utiliser des colonnes, j'ai supprimé les deux dernières keys et essayé juste le premier, j'ai toujours reçu l'erreur d'exécution. 

shtData.Activate shtData.Range(Range("A2"), Range("Z8000").End(xlUp)).Sort _ Key1:=Range("L2"), Order1:=xlAscending, _ Key2:=Range("M2"), Order2:=xlAscending, _ Key3:=Range("B2"), Order3:=xlAscending, _ Header:=xlYes

Si vous avez des suggestions, je l'apprécierais grandement. J'avais déjà travaillé hier et mon excel a écrasé et n'a pas récupéré les changements que j'ai faits, je ne peux pas comprendre pourquoi je ne peux pas le faire fonctionner aujourd'hui.

vous n'avez probablement pas de données dans la colonne "Z"

Si la plage des lignes de données peut être dimensionnée en toute security par la colonne "A", les cellules non vides sont les suivantes 

 Option Explicit Sub main() Dim shtData As Worksheet Set shtData = Worksheets("Data") '<--| some setting of 'shtData' With shtData .Range("Z2", .Cells(.Rows.Count, "A").End(xlUp)).Sort _ Key1:=.Range("L2"), Order1:=xlAscending, _ Key2:=.Range("M2"), Order2:=xlAscending, _ Key3:=.Range("B2"), Order3:=xlAscending, _ Header:=xlYes End With End Sub

S'il est possible que vous puissiez refind une nouvelle quantité de colonnes à l'avenir, vous pourriez faire quelque chose comme ça. 

 With shtData Range(Range("A2"), Cells(Range("A8000").End(xlUp).Row, Range("ZZ2").End(xlLeft).Column)

De cette façon, il sera automatiquement dimensionné la zone de sorting pour autant de colonnes que vous utilisez, ainsi que les lignes.