Poser votre question
0

Boucle avec tri d'une selection ligne par ligne

posée 2019-11-05 18:48:31 +0100

Image Gravatar de Belaim

Bonjour, Voici mon problème. Je souhaite faire un tri (par ordre croissant) par ligne (De gauche à droite) dans une sélection (colonnes E à I). Mais voilà cela ne fonctionne pas sur Calc (en tout cas pour moi) Car lorsque je sélectionne la plage de cellules concernée et que je sélectionne Données/Trier.../Options/Direction -> "De gauche à droite (Trier des colonnes)" (toutes les options de tri décochées) il ne se passe rien. Le seul moyen de procéder pour que cela fonction est de renseigner les critères de tri pour chaque ligne (mon fichier fait plus de 1200 lignes...). J'ai donc tenté une macro avec des boucles. Mais je bloque ... La première passe de la boucle fonctionne mais à la deuxième passe j'ai le message d'erreur suivant :

Erreur d'exécution BASIC.
            Une exception s'est produite : 
            Type: com.sun.star.lang.IllegalArgumentException
            Message: sequence element is not assignable by given value!.

De plus au moment du tri de la sélection une fenêtre s'ouvre pour demander si l'on veut étendre la sélection ou conserver la sélection active. Et si en bonus vous pouviez m'indiquer comment faire en sorte que la macro s’exécute jusqu'à la dernière ligne contenant des données (le nombre de ligne de mon fichier n’étant pas fixe) ce serait Noël avant l'heure. :) Je joins un échantillon de test avec la macro (l'intégralité du fichier n'étant pas indispensable) Je vous remercie par avance pour votre aide.C:\fakepath\Test_Tri_Quantites.ods

éditer requalifier signaler fermer fusionner supprimer

1Réponse

0

répondue 2019-11-06 09:08:03 +0100

Image Gravatar de pierre-yves samyn

Bonjour

@Belaim a écrit:

lorsque je sélectionne la plage de cellules concernée et que je sélectionne Données/Trier.../Options/Direction -> "De gauche à droite (Trier des colonnes)" (toutes les options de tri décochées) il ne se passe rien.

Sans doute parce que tu inclus E1:J1 dans ta sélection.

Le seul moyen de procéder pour que cela fonction est de renseigner les critères de tri pour chaque ligne

De la même manière que pour un tri par ligne (du haut vers le bas) on indique la colonne critère de tri... Pour mieux visualiser ce point tu peux faire un collage spécial pour "transposer" ta plage et tenter un tri "classique".

J'ai donc tenté une macro avec des boucles...

Le "dispatcher" n'est qu'exceptionnellement plus pratique que le recours à l'API pour programmer. Je te propose la macro suivante (cf. module PYS dans le classeur joint C:\fakepath\Test_Tri_Quantites.ods)

sub TrierQte

dim oClasseur as Object, oFeuille as Object, oPlage as Object
dim oConfigTri(1) as new com.sun.star.table.TableSortField
dim oDesc(2) As New com.sun.star.beans.PropertyValue 
dim i as long

oClasseur = thisComponent
oFeuille = oClasseur.sheets.getByName("Test_Tri_Quantites")
oConfigTri(0).Field=1
oConfigTri(0).IsAscending=true

oDesc(0).name = "SortFields"
oDesc(0).value = oConfigTri()
oDesc(1).name = "ContainsHeader"
oDesc(1).value = false
oDesc(2).name = "IsSortColumns"
oDesc(2).value = true

for i = 1 to 22
    oPlage = oFeuille.getCellRangeByPosition(4, i, 8, i)
    oPlage.Sort(oDesc())
next i


end sub

Cordialement

éditer signaler supprimer permalien plus

Commentaires

Bonjour Pierre-Yves,

Un ENORME MERCI pour ta macro qui fonctionne à merveille ! Code beaucoup plus simple que mon usine à gaz et surtout efficace. C'est à ça qu'on reconnait les pros ;-) Encore merci Cordialement,

Fab

Image Gravatar de BelaimBelaim ( 2019-11-06 14:44:45 +0100 )éditer

@pierre-yves samyn J'ai un petit problème de vote. J'aurais aimé faire un vote positif pour ta réponse mais je n'y arrive pas :( Mais le coeur y est ! Dommage, cela pourrait également passer la question en mode résolu...

Image Gravatar de BelaimBelaim ( 2019-11-06 15:36:52 +0100 )éditer

@Belaim merci pour le "retour".

Pas d'inquiétude pour le vote... Avoir coché la case ✓ indique déjà que la réponse a été acceptée. Le vote positif se fait en cliquant sur la flèche ^. Aucune importance si cela ne fonctionne pas :)

Cordialement

Image Gravatar de pierre-yves samynpierre-yves samyn ( 2019-11-07 07:50:01 +0100 )éditer
S'identifier/S'inscrire pour répondre

Outils de question

1 suiveurs

Stats

Posée: 2019-11-05 18:48:31 +0100

Consultée: 11 fois

Mise à jour: Nov 06