[Résolu] [Calc] Tri données zBasic

[Claudius723]

Bonjour, je reviens vers vous pour trouver une solution à ce petit problème:
Voici mon fichier, al macro "TrierWEB" ne fonctionne pas, il doit manquer quelque chose, mais je ne trouve pas.
J'ai copié collé la première macro "Enregistrer" et je l'ai laissée comme tel, mais je crois que l'on peut supprimer la ligne "oTableArrive"?

Code : Tout sélectionner

Sub Enregistrer
       	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
     
     zFeuille.Active ("Tableau")
	maPlageCopie = "C23:F23"
	oTableDepart = zPlage.VersTable(maPlageCopie)
	'Supprime les lignes dont la 6e colonne est vide
	oTableArrive = zTable.SansLigneVide(oTableDepart, )
	
	maPlageColle = "A2:D2"
	nLigne = zPlage.LigneVide ( "ListeWEB", maPlageColle )
	zTable.Ecrit("ListeWEB", "A" & nLigne, oTableArrive)
    zFeuille.Active ( "Saisies" )
    zPlage.Supprime ( "d5:d11" )

End sub   
Sub TrierWEB
 Dim oTri as variant
   oTri= zTri.Demarre()
   zTri.Colonne(oTri, 1,"c", "n")
   zTri.Parametre(oTri, "entete", "o")
   zTri.Execute("ListeWEB", "A1:D100",oTri)
End sub

Pour appeler la macro "TrierWEB" depuis "Enregistrer" il faut "Call" ?

[Bidouille]

Bonjour,

On va encore vous le signaler. Pour être aidé efficacement par les bénévoles et surtout leur faire gagner du temps, veuillez fournir les éléments suivants :

1. insérer dans le corps du message le code de la macro exposant le problème
2. joindre un document explicatif intégrant cette macro avec les données de départ (feuille1) et le résultat à obtenir (feuille2)
3. fournir un mode pas-à-pas permettant de reproduire ce qui a été fait ou ce que vous cherchez à faire pour arriver au problème
4. ajouter des copies écran (situation avant / après) car cela permet de mieux comprendre

Merci de publier ces informations à la suite.

[Claudius723]

Mise à jour données:

Code : Tout sélectionner

Sub EnregistrerWB
       	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
     
     zFeuille.Active ("Tableau2")
	maPlageCopie = "A2:D2"
	oTableDepart = zPlage.VersTable(maPlageCopie)
	'Supprime les lignes dont la 6e colonne est vide
	oTableArrive = zTable.SansLigneVide(oTableDepart)
	
	maPlageColle = "A2:D100"
	nLigne = zPlage.LigneVide ( "ListeWEB", maPlageColle )
	zTable.Ecrit("ListeWEB", "A" & nLigne, oTableArrive)
    zFeuille.Active ( "Saisies" )
    zPlage.Supprime ( "d5:d11" )
End sub
   
   
Sub TrierWEB
 Dim oTri as variant
   oTri= zTri.Demarre("ListeWEB")
   zTri.Colonne(oTri, 1, "c", "n")
   zTri.Parametre(oTri, "entete", "o")
   zTri.Execute( "ListeWEB", "A2:D100", oTri)
  End sub

[Dude]

Salut,

Voici mon fichier, al macro "TrierWEB" ne fonctionne pas, il doit manquer quelque chose, mais je ne trouve pas.

Tu lis la documentation au moins ?

Code : Tout sélectionner

zTri.Colonne(oTri, 1, "c", "n")

Le nombre de paramètres est insuffisant : https://beaussier.com/wiki/index.php?ti ... re.Colonne
Tu n'appelles pas non plus la bibliothèque zBasic au début.


PS : merci également de penser à ceux qui t'aident en fournissant un document débarrassé des informations inutiles à la compréhension du problème.