Faire un tri dans un tableau avec un nombre de colonnes et lignes aléa

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Faire un tri dans un tableau avec un nombre de colonnes et lignes aléa

michele_

Bonjour,

Je cherche à mettre dans ma macro un tri automatique sur mon tableau.
Le hic est que mon tableau a un nombre de colonnes et de lignes aléatoire.
j'ai donc fait ce code :

Code :

Dim DernCol As Integer
DernCol = Cells(4, Cells.Columns.Count).End(xlToLeft).Column
Dim DernLigneAS As Long
DernLigneAS = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
Range("A4:" & DernCol & DernLigneAS).Select
ActiveWorkbook.Worksheets("Atterrissage Stocks" ).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Atterrissage Stocks" ).Sort.SortFields.Add Key:= _
Range("A5:A" & DernLigneAS), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Atterrissage Stocks" ).Sort.SortFields.Add Key:= _
Range("B5:B" & DernLigneAS), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Atterrissage Stocks" ).Sort.SortFields.Add Key:= _
Range("C5:C" & DernLigneAS), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Atterrissage Stocks" ).Sort
.SetRange Range("A4:" & DernCol & DernLigneAS)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

mais il plante

Savez vous ce qui cloche ?

Message cité 1 fois

Publicité

Marc L

Bonjour.

michele_ a écrit :

mais il plante

Super précis, merci ! :sarcastic:

Pour toute réponse, tout dépend du contenu (du n°) de la ligne déclenchant l'erreur
et du message lui-même et de son aide, tout est pourtant expliqué dedans …

michele_

dans le code c est sur la ligne 7 qu'il me débug en mettant :

Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué

Clairement, je pense que c est ma dimension "DernCol" qui fait tout planter

si quelqu'un a la solution merci, sinon, je vais rester sur le bon vieux tableau figé en mettant une colonne et une ligne de fin très très très lointaine ....

ps: Sinon, pour info ... quand je fais l aide, il me met strictement rien
alors que d'habitude, il y a une aide ... mais là rien

Marc L

Place un point d'arrêt sur la ligne n°7 (ou écrire Stop en ligne n°6) puis lance la procédure
puis en positionnant le curseur sur DernLigneAS apparaît sa valeur (ou dans la fenêtre des Variables locales) …

Sinon il ne manquerait pas un A (ou autre lettre de colonne) après A4: en ligne n°7 par hasard ?

J'ai aussi repéré une contradiction dans le code, la feuille est spécifiée un coup elle ne l'est pas;
tout dépend si la procédure peut être lancée depuis une autre feuille ou pas …

Message cité 1 fois
Message édité par Marc L le 05-11-2013 à 17:32:34

michele_

Marc L a écrit :

Alors, les valeurs sont les suivantes :
DernCol = 87
DernLigneAS = 19

Marc L a écrit :

Sinon il ne manquerait pas un A (ou autre lettre de colonne) après A4: en ligne n°7 par hasard ?

En fait, je crois que c'est bien ça mon problème
C'est "DernCol" qui me donne le numéro de la dernière colonne et non la lettre de la dernière colonne.
Comment peut on faire pour transformer le numéro de colonne en lettre ?

Marc L a écrit :

J'ai aussi repéré une contradiction dans le code, la feuille est spécifiée un coup elle ne l'est pas;
tout dépend si la procédure peut être lancée depuis une autre feuille ou pas …

C'est seulement la dernière partie de mon code. Et je pointe déjà avant sur la feuille en question (mais j'ai oublié de le rajouter pour vous donner l'exemple)
Mais je t'avouerais que les lignes 8 à 25 du code viennent de l'enregistreur de macros.
J'ai juste modifié en mettant mes dimensions "DernLigneAS" et "DernCol"

Marc L

Ligne n°7 : Range("A4", Cells(DernLigneAS, DernCol)).Select

Mais franchement je me demande si cette ligne sert réellement à quelque chose, à part ralentir la procédure (Select) !

Message cité 1 fois
Message édité par Marc L le 05-11-2013 à 20:17:53

michele_

Marc L a écrit :

Ligne n°7 : Range("A4", Cells(DernLigneAS, DernCol)).Select

Mais franchement je me demande si cette ligne sert réellement à quelque chose, à part ralentir la procédure (Select) !

Merci
Je vais essayer ...
Par contre, savoir si cette ligne ralenti la procédure ou non ... je sais vraiment pas puisque je suis partie d'un enregistrement de macro

Marc L

Pour moi elle ne sert strictement à rien ‼

L'Enregistreur de macros enregistre toute manipulation même les sélections inutiles ! …
On ne peut le lui reprocher car comment pourrait-il savoir à l'avance ce qui doit être fait ?! :pt1cable:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Faire un tri dans un tableau avec un nombre de colonnes et lignes aléa

Sujets relatifs
nommer le contenu d'un nombre de feuilles aléatoire [XL2013]	[CSS] Cacher / afficher ligne tableau
Comment dupliquer certaines colonnes d'un tableau en javascript?	supprission des lignes redondantes dans un fichier
Sélectionner les lignes de la date du jour + Verrouiller emplacement	Dreamweaver cs 5.5 liens et tableau
Trier des donnees sur deux colonnes ( ID + Version)	Tableau php mysql editable et modifiable par sélections et filtres
Greasemonkey, traiter les données d'un tableau
Plus de sujets relatifs à : Faire un tri dans un tableau avec un nombre de colonnes et lignes aléa

Page générée en 0.089 secondes