[Résolu][Calc] Tri des feuilles d'un classeur

[daru72]

Bonjour,

Je cherche à tirer dans l'ordre croissant puis par ordre alphabétique les feuilles d'un classeurs composé de feuilles. Il s'agirait d'obtenir le tri suivant : 1_Feuille, 2_feuille, 3_Feuille,..., 27_feuille puis une fois que les chiffres sont épuisés : Alpha, Beta

J'ai trouvé un fil de discussion correspondant au classement alphabétique.

Toutefois comme évoqué dans le sujet, il y a un "bug" au niveau du classement par chiffre croissant, 27 se trouve avant 1

Ajout : Le mystère ressemble de plus en plus à un bogue
Vf = ("a10" > "a2") renvoie True: normal
Mais A = "a10": B = "a2" et Vf = (A > B) renvoie False

Y a t'il un moyen de contourner ce problème pour arriver à mes fins ?

Vous remerciant pour vos avis.

[joel275]

Bonjour,

dans le message que tu cites, Churay fournit une réponse: en quoi ne te convient-elle pas?

A plus.

[Dude]

puis une fois que les chiffres sont épuisés

Je ne savais pas que les chiffres pouvaient s'épuiser.

[daru72]

Bonjour,

dans le message que tu cites, Churay fournit une réponse: en quoi ne te convient-elle pas?

A plus.

Je viens de reessayer.
Pour moi çà ne fonctionne toujours pas. J'ai Feuille 1 puis Feuille 10, et après Feuille 2

[tintin]

Bonjour,

Et si vous nommiez vos feuilles
feuille_01, feuille_02, feuille_03 etc ?

[joel275]

Re,

Et si vous nommiez vos feuilles
feuille_01, feuille_02, feuille_03 etc ?

il me semble que c'est à peu près ce que fait Churay avec ces lignes:

Code : Tout sélectionner

   For i = 1 TO 250
      sName = Right("00000000" & Cstr(Int(Rnd*314159)), 8)
      oSheets.insertNewByName(sName, oSheets.Count)
   Next i

A plus.

[Dude]

Pour trier correctement, il faut extraire le nombre du nom de la feuille :

Code : Tout sélectionner

Sub Trier
	GlobalScope.BasicLibraries.loadLibrary("Tools")
	Dim oSheets As Object, oSheet As Object, i As Integer
	Dim aName() As integer, sName As String, j As Integer
	
	oSheets = thisComponent.Sheets
	oSheet = ThisComponent.Sheets(0)
	ReDim aName(oSheets.Count-1,1)  As integer
	For i = 0 TO oSheets.Count-1
	   aName(i,0) = Mid(oSheets(i).Name,8)
	   aName(i,1) = i
	Next i
	BubbleSortList(aName) 
	oSheet.getCellByPosition(0,2).String = "Move"
	For i = 0 To oSheets.getCount()-1
	   oSheets.moveByName("Feuille" & aName(i,0),i)
	Next i	
End Sub

Et ne pas oublier de le rajouter dans la boucle du déplacement.

[daru72]

Merci Dude

J'ai compris le principe.

Si toutefois mes feuilles ont des noms aléatoires, comment puis je retrouver la partie du nom de l'onglet sans le chiffre ?
L'idée serait dans mon exemple ci joint d'arriver à cet ordre.

4Feuille
5Feuille
7Feuille
11Feuille
Feuille5
Feuille6
ZFeuille7

[Dude]

L'idée serait dans mon exemple ci joint d'arriver à cet ordre.

Sachant qu'un tri se fait alphabétiquement ou numériquement, comment expliques-tu la logique de cette suite ?

[Hubert Lambert]

Bonjour,

Une version en python, inspirée de cette page :

Code : Tout sélectionner

import re
def natural_sort(event=None):
    doc = XSCRIPTCONTEXT.getDocument()
    feuilles = doc.Sheets
    noms = list(feuilles.ElementNames)
    convert = lambda text: int(text) if text.isdigit() else text.lower()
    alphanum_key = lambda key: [convert(c) for c in re.split('([0-9]+)', key)]
    noms.sort(key=alphanum_key)
    doc.lockControllers()
    try:
        for pos, nom in enumerate(noms):
            feuilles.moveByName(nom, pos)
    finally:
        doc.unlockControllers()

Cordialement.

[DLE]

Bonjour,

Un exemple en basic à valider.

Cdlt.

[daru72]

L'idée serait dans mon exemple ci joint d'arriver à cet ordre.

Sachant qu'un tri se fait alphabétiquement ou numériquement, comment expliques-tu la logique de cette suite ?

Dude, pas vraiment de logique , juste un besoin. J'ai des feuilles plus orientées calcul qui commencent par des chiffres et d'autres de bilans qui commencent par des lettres.

Merci DLE. C'est tout bon.