[Résolu] [Calc]Filtrer et supprimer colonne

[Claudius723]

Bonjour, j'ai bien avancé avec z Basic, mais je n'ai assez de compétences pour terminer ce que j'ai entrepris, pourrez vous m'aider ? ci-joint un

Code : Tout sélectionner

 :Sub EnregistrerResultat
            GlobalScope.BasicLibraries.loadLibrary ("zBasic")
     zFeuille.Active ("Tableau")
	 maPlageCopie = "A2:J5"
	 oTableDepart = zPlage.VersTable(maPlageCopie)
	'Supprime les lignes dont la 6e colonne est vide
	 oTableArrive = zTable.SansLigneVide(oTableDepart, 8)
     maPlageColle = "A2:J450"
     nLigne = zPlage.LigneVide ( "Feuille3", maPlageColle )
     zTable.Ecrit("Feuille3", "A" & nLigne, oTableArrive)
    
Dim oFiltre as variant
   	   oFeuille = "Feuille3"
       oFiltre = zFiltre.Demarre(oFeuille, "A2:J450")
	   zFiltre.Parametre(oFiltre, "entete", "O")
	   zFiltre.Colonne(oFiltre, 8, " ", 14, "N", "5160")
	   zFiltre.Execute(oFiltre, "Resultat", "A2")
	   oPlageColle="A2:J450"
	   oLigne=zPlage.LigneVide("Resultat",oPlageColle)
       zTable.Supprime.Colonne("Resultat", 8)
      
End Sub

Là ou je coince, c'est à partir de "Dim oFiltre as variant", j'ai un message d'erreur "z Basic : z Feuille.Supprime" Nom de feuille obligatoire, je ne sais pas quoi répondre. ensuite vient "Erreur d’exécution BASIC", la macro s’arrête là.
Je vais tenter d'expliquer ce que je veux faire, Après la copie du Tableau sur Resultat, sur la dernière ligne vide, je veux supprimer la colonne 8 qui se répète à chaque intervention. Est ce que je me fais bien comprendre ?
Merci

[Dolev]

Bonjour,

ensuite vient "Erreur d’exécution BASIC", la macro s’arrête là.

Vous devriez faire plus attention à la syntaxe :

Code : Tout sélectionner

zTable.Supprime.Colonne("Resultat", 8)

Le wiki de zBasic mentionne la commande zTable.SupprimeColonne (un point en trop)

[Claudius723]

Oui, j'ai vu et déjà rectifié.

[Dolev]

Oui, j'ai vu et déjà rectifié.

Et ?

[Claudius723]

Il me reste ce bout de code qui ne veut pas fonctionner, je suis pourtant la documentation, il manque quelque chose mais quoi?

Code : Tout sélectionner

  Dim oTri as variant
    oTri=zTri.Demarre
    zTri.Colonne(oTri, 1, "C","N")
    zTri.Parametre(otri, "Format", "O")
    zTri.Execute("ListeWEB", "A2:D100", oTri)
   End sub 

J'ai essayé avec "entete" mais cela ne change rien.
C'est n'est pas la configuration du départ, mais c'est la même manoeuvre pour un autre fichier, hormis ce bout de code remplacé par" Tri".

[Dude]

Salut,

Nom de feuille obligatoire, je ne sais pas quoi répondre

Le document joint n'a pas de feuille nommée ListeWEB.

Franchement, peut-être devrais-tu arrêter les macros si tu patauges autant.