[Résolu] [Calc] Tri sur une colonne qui ne Demarre pas

[Claudius723]

Bonjour, je reviens "patauger" avec un petit souci, ma copie fonctionne bien, mais le tri ne veut pas démarrer, la macro s'arrête à la déclaration
"Dim oTri as variant", je suis pourtant à la lettre la documentation, et je ne comprends pas pourquoi, la fonction Tri ne fonctionne pas.
Faut il spécifier le nom de la feuille à "zTri.Demarre"
Est ce possible d'avoir de l'aide ?

Code : Tout sélectionner

Sub EnregistrerWEB
GlobalScope.BasicLibraries.loadLibrary("zBasic")
oTableDepart=zPlage.VersTable("A2:D2","Interface")
nLigne=zPlage.LigneVide("ListeWEB","A2:D100")
zTable.Ecrit("ListeWEB","A" & nLigne, oTableDepart)

Dim oTri as variant
oTri=zTri.Demarre
zTri.Colonne(oTri, "1", "C", "O")
zTri.Parametre(oTri, "EnTete", "O")
zTri.Execute( "ListeWEB","A2:D100",oTri)

zFeuille.Active("Saisies")
zPlage.Supprime("C5:C23")
End sub

[Dude]

Salut,

Il y a des erreurs dans ta macro. Encore une fois, lire la documentation.

Code : Tout sélectionner

zTri.Colonne(oTri, "1", "C", "O")

La colonne à déclarer doit être un chiffre

Code : Tout sélectionner

zTri.Execute( "ListeWEB","A2:D100",oTri)

Ta plage est incorrecte puisque tu déclares un entête.

Ce qui donne :

Code : Tout sélectionner

Sub EnregistrerWEB
GlobalScope.BasicLibraries.loadLibrary("zBasic")
oTableDepart=zPlage.VersTable("A2:D2","Interface")
nLigne=zPlage.LigneVide("ListeWEB","A2:D100")
zTable.Ecrit("ListeWEB","A" & nLigne, oTableDepart)

Dim oTri as variant
oTri=zTri.Demarre
zTri.Colonne(oTri, 1, "C", "O")
zTri.Parametre(oTri, "EnTete", "O")
zTri.Execute( "ListeWEB","A1:D100",oTri)

zFeuille.Active("Saisies")
zPlage.Supprime("C5:C23")
End sub

Et qui s'exécute sans problème :

demo.gif

[Claudius723]

Merci, j'ai compris.

[Dude]

Une bogue a été corrigée dans le module de tri, mets à jour zBasic avec la dernière v.2.1.2