[Résolu][Calc] Filtre impossible à créer

[Claude72]

Bonjour, à tous, je suis un adepte de la programmation en zBasic, jusqu’à maintenant tout allait bien et fonctionnait bien, mais depuis que je suis passé sur Libreoffice 25.8, impossible de filtrer, j'ai le message "Filtre impossible à créer" ou la copie entière du fichier sur la feuille de résultat, j'ai essayé maintes fois sans avoir le résultat escompté, pas de filtration.
Le fichier joint est composé de 18 lignes, 9 colonnes, la filtration doit s'opérer sur la colonne 9, les critères sont au nombre de 4 ; BFY, SEM, VLN, VIB.
Je souhaite que le résultat de chaque filtration soit copié sur une feuille dédiée au critère choisi, dans un premier temps. Par la suite j'aimerai q'en appuyant sur un bouton (Filtrer), la filtration soit automatiquement réalisée avec les 4 critères, sur une seule feuille avec des adresses différentes; par exemple le résultat du critère "BFY" copié à l'adresse A9 de la feuille Résultat et le résultat du critère "SEM" sur la même feuille mais en A120 pour n'avoir qu'un seul onglet.
Pouvez vous m'aider?
Je remercie d'avance celui qui prendra le temps de me lire et de me trouver la solution.

[micmac]

Bonjour et bienvenue,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : sutra27295.html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même au risque de voir votre sujet verrouillé.

Merci de votre collaboration.

[Dude]

Salut,

j'ai le message "Filtre impossible à créer"

Regarde la syntaxe de zFiltre.Colonne dans la documentation zBasic.
Si tu passes les mauvais arguments, il est évident que cela ne fonctionnera pas.

Pourquoi ne pas faire une routine intégrant ton filtre ?

Code : Tout sélectionner

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	FiltreMoi("VIB", "VIBRAYE")
	FiltreMoi("VLN", "VALENNES")
End Sub

Sub FiltreMoi(sNom, sFeuille)
	Dim oFiltre as variant
	oFiltre = zFiltre.Demarre ("Source", "A3:I20")
	zFiltre.Parametre (oFiltre,  "entete", "N")
	zFiltre.Colonne (oFiltre,  9 , "",  12,  1, sNom) 
	zFiltre.Execute (oFiltre, sFeuille, "A2")
End Sub

[Claude72]

Bonjour Dude, merci de bien vouloir te pencher sur mon problème, j'ai réécris la ligne "zFiltre.Colonne" et j'ai toujours la même erreur une copie de la feuille source mais sans filtre !
Je veux bien créer ce que tu me propose "une routine" mais je ne comprends pas bien la manœuvre, tu peux m'en dire plus ?

[Oukcha]

Bonjour,

j'ai réécris la ligne "zFiltre.Colonne"

Merci de publier votre macro à la suite de ce message.
Macro que vous encadrerez avec les balises [ code] et [/ code]

Exemple :

Code : Tout sélectionner

Du code balisé 

Cordialement

[Claude72]

Code : Tout sélectionner

Sub FiltrerVIBRAYE
GlobalScope.BasicLibraries.loadLibrary ("zBasic")
Dim oFiltre as variant
oFiltre = zFiltre.Demarre ("Source", "A1:I20")
zFiltre.Parametre (oFiltre,  "entete", "N")
zFiltre.Colonne (oFiltre,  9 , "",  12 ,  "1", "VIB") 
zFiltre.Execute (oFiltre, "FILTRATIONS", "A1")
End Sub

Code : Tout sélectionner

Sub FiltrerVALENNES
GlobalScope.BasicLibraries.loadLibrary ("zBasic")
Dim oFiltre as variant
oFiltre = zFiltre.Demarre ("Source", "A1:I20")
zFiltre.Parametre (oFiltre,  "entete", "N")
zFiltre.Colonne (oFiltre,  9 , "",  12 ,  "1", "VLN") 
zFiltre.Execute (oFiltre, "VALENNES", "A1")
End sub

Ci joint 2 variantes de macro, mais le résultat est le même pour les deux, dans la feuille "Source" j'ai supprimé la ligne 1

[Dude]

mais le résultat est le même pour les deux

Ca sert à quoi que je te fasse une réponse puisque tu refais la même erreur ?

[Claude72]

Sans doute, mais alors elle est où l'erreur ? je n'y comprends plus rien ! j'ai tout essayé , des espaces, sans espaces, le n° de colonne, l'opérateur,.....
j'ai la même configuration sur un autre fichier et cela fonctionne parfaitement.

[Jeff]

Bonjour,

zFiltre.Colonne (oFiltre, 9 , "", 12 , "1", "VIB")

zFiltre.Colonne (oFiltre, 9 , "", 12, 1, sNom)

zFiltre.Colonne(<filtre>, <colonne>, <operateur>, <condition>, <type>, <valeur>)
[...]
<type> selon la donnée indiquée dans <valeur> : 0 pour du numérique ou 1 pour une chaîne

Je ne sais pas si ça vient de là, mais à mon avis tu as déjà des guillemets en trop...

A +

[Claude72]

Oui, effectivement c'est une erreur, mais avec guillemets ou sans, le problème est toujours le même, pas de filtration !!

[Dude]

j'ai la même configuration sur un autre fichier et cela fonctionne parfaitement.

C'est donc un problème sur ton document.
Mon code fonctionne comme attendu :

[Claude72]

Sans doute, mais alors quoi ? Libreoffice corrompu, une mauvaise case cochée dans les options ?

[Dude]

Libreoffice corrompu

Peut-être, tu peux déjà commencer par vérifier ce point en purgeant le profil.


Nous préciser également si tu utilises la version des dépôts ou l'officielle :

Libreoffice 25.8.5.2, Ubuntu 24.04.4

Sachant que seule la 2nd est recommandée sur ce forum pour s'éviter toute surprise.


Si d'aventure tout était correct, il faudrait repartir d'un document vierge pour refaire un test fiable.

[Michel JANZEF]

Bonjour,
La routine de Dude fonctionne pourtant parfaitement chez moi, que soit sous LibO ou sous AOo.

[Bide]

Salut Michel,
j'ai essayé ton classeur sous LibreOffice 25.8.5.2 windows 11 , j'ai le même problème que Claude72 :
Les filtres n'agissent pas : on se retrouve avec toutes les données de la page source (même BFY).
Et attention il y a certainement des données personnelles réelles dans les classeurs publiés.
Cordialement, Bide

[Michel JANZEF]

Bonjour,

...
j'ai essayé ton classeur sous LibreOffice 25.8.5.2 windows 11 , j'ai le même problème que Claude72 :
Les filtres n'agissent pas : on se retrouve avec toutes les données de la page source (même BFY).
Et attention il y a certainement des données personnelles réelles dans les classeurs publiés.

1- Essayez avec le bouton que j'ai ajouté sur la page Source.
2- J'ai supprimé le fichier dans mon message précédent et ai remplacé les données personnelles dans ce nouveau fichier.

[Bide]

Bonjour,

...
j'ai essayé ton classeur sous LibreOffice 25.8.5.2 windows 11 , j'ai le même problème que Claude72 :
Les filtres n'agissent pas : on se retrouve avec toutes les données de la page source (même BFY).
Et attention il y a certainement des données personnelles réelles dans les classeurs publiés.

1- Essayez avec le bouton que j'ai ajouté sur la page Source.
2- J'ai supprimé le fichier dans mon message précédent et ai remplacé les données personnelles dans ce nouveau fichier.

C'est louche parce que quand je clique sur le bouton dans les feuilles VIBRAYE et VALENNES je me retrouve avec toutes les données de la feuille Source c'est à dire sans filtre, et pourtant je suis bien en L.O 25.8.5.2 sous Windows 11

[Bidouille]

Merci d'attendre le retour de l'auteur pour continuer à poster.

[Claude72]

Bien apparemment je ne suis pas le seul à constater ce problème, la question est, que peut on faire, une solution pour contourner le problème ? une autre fonction ?

[Dude]

Bien apparemment je ne suis pas le seul à constater ce problème

Et nous sommes également deux, Michel JANZEF et moi, à ne pas le constater.

la question est, que peut on faire ?

Lire mon message de 08h42.
Je constate que tu as la fâcheuse manie de ne pas tenir compte de ce qu'on t'écrit

[Bide]

Bien apparemment je ne suis pas le seul à constater ce problème

Et nous sommes également deux, Michel JANZEF et moi, à ne pas le constater.

Salut Dude,
Bon avec une configuration équivalente normalement c'est pas possible que l'on ait un comportement différent :
Moi j'ai le problème du filtre qui ne fonctionne pas avec cette configuration : L.O 25.8.5.2 Windows 11 zBasic 3.2.0. Et j'ai aussi le problème avec une L.O 25.2.7.2 sur une autre machine windows 11.
Et ton animation où l'on voit le filtre qui fonctionne est sous OpenOffice

[Dude]

Moi j'ai le problème du filtre qui ne fonctionne pas avec cette configuration

Dans ce cas, tu ouvres ton propre fil de discussion où tu joins un document et le code que tu utilises.

Et ton animation où l'on voit le filtre qui fonctionne est sous OpenOffice

[rollmops]

Bonjour,

Et nous sommes également deux, Michel JANZEF et moi, à ne pas le constater.

Nous sommes trois maintenant
Je viens de tester le fichier avec LibO 25.8.5 sous Win11 et il fonctionne très bien.
J'ai bien le filtrage des informations

La vérité est ailleurs.

[jeanmimi]

Bonjour,
Puisqu'il n'y a pas de calculs à faire, il est possible de connecter le premier onglet du fichier Calc par Base, puis de créer le rapport qui affichera les enregistrements groupés selon les critères définis.

[Claude72]

Bien, tout ça n'est pas très clair, cela fonctionne chez certains avec LO et aussi avec OO, et d'autres ont les mêmes résultats que moi. J'ai désinstallé LO et l'ai réinstallé (apt) ! j'ai reconstruit un fichier avec données anonymes et aussi les macros, eh bien j'ai retrouvé les mêmes soucis.
Je me demande si je ne vais pas passer sur OpenOffice ?
je joint le nouveau fichier

[tintin]

Bonjour,

J'ai désinstallé LO et l'ai réinstallé (apt) !

Avez-vous purgé le profil utilisateur avant de réinstaller ? Si c'est non, essayez, car réinstaller après un dysfonctionnement sans purger le profil est inutile.

• Purger les profils avec l'outil dédié (purge totale)
• ou procédure manuelle Purge des profils utilisateur

[Michel JANZEF]

Bonsoir,
En cliquant sur le bouton, les données sont bien extraites vers chaque feuille.

[cwolan]

Bonsoir,

C'est pareil pour moi avec OpenOffice et LibreOffice (Windows 11 25H2, (26200.8037)).

[Bide]

Salut,
Bon hier je me suis énervé trop vite. Mais le fait qu'il y ait des gens chez qui le filtre fonctionnait et pas chez d'autres, cela m'intriguait. Alors j'ai posé la question à une I.A qui me semble-t-il a trouvé la cause de cette différence .
Dans le zBasic zFiltre Execute il y a cette partie :

Code : Tout sélectionner

	'Cas spécifique LibO
	if zBasic.Info = "LibreOffice" then
		errMsg = "Le filtre pour LibO ne peut s'exécuter"
		Dim Crit3(nFiltre-1) As New com.sun.star.sheet.TableFilterField3
		For i = 1 to nFiltre
			j = i * 10
			k = i - 1
			nCol 	= sFiltre(j)	
			nCnx 	= sFiltre(j+1)
			sOp  	= sFiltre(j+2)
			nNum 	= sFiltre(j+3)
			sVal	= sFiltre(j+4)
			nVal# 	= sFiltre(j+4) 'attend un type double
			msgbox "nNum=" & nNum
			if nNum > 1 then
				With Crit3(k)
					.Connection = nCnx
					.Field = nCol
					.Operator = sOp
					.Values.IsNumeric = true
					.Values.NumericValue = nVal
					.Values.StringValue = sVal
					.Values.FilterType = nNum
					.Values.ColorValue = nVal
				End with
			endif
		Next i
		oFiltre.setFilterFields3( Crit3() )
	endif

Quand on applique les filtres du classeur exemple, nNum vaut 1 donc Crit3 n'est pas rempli et donc on fait un oFiltre.setFilterFields3 sur un Crit3() vide. Et voici ce que me dit l'I.A à propos de ce cas de figure :
Pourquoi seulement chez certaines personnes ?

Parce que selon l’implémentation interne utilisée par LibreOffice :

moteur interne comportement
moteur utilisant FilterFields2 fonctionne
moteur utilisant FilterFields3 critères remplacés

Même avec la même version de LibreOffice, l’API UNO peut prendre un chemin différent selon :

options Calc
profil utilisateur
localisation
optimisation interne

Ce n’est pas fréquent, mais ça existe.

Si je mets en commentaire l'instruction oFiltre.setFilterFields3( Crit3() ) les filtres fonctionnent chez moi.

Code : Tout sélectionner

		Next i
'		oFiltre.setFilterFields3( Crit3() )
	endif

Il y a certainement une solution plus propre. Par exemple ne faire un setFilterFields3 que si c'est nécessaire.
A essayer :

Code : Tout sélectionner

	'Cas spécifique LibO
	if zBasic.Info = "LibreOffice" then
		errMsg = "Le filtre pour LibO ne peut s'exécuter"
		Dim nbCrit As Long : nbCrit = 0
		Dim Crit3(nFiltre-1) As New com.sun.star.sheet.TableFilterField3
		For i = 1 to nFiltre
			j = i * 10
			k = i - 1
			nCol 	= sFiltre(j)	
			nCnx 	= sFiltre(j+1)
			sOp  	= sFiltre(j+2)
			nNum 	= sFiltre(j+3)
			sVal	= sFiltre(j+4)
			nVal# 	= sFiltre(j+4) 'attend un type double
			if nNum > 1 then
				With Crit3(k)
					.Connection = nCnx
					.Field = nCol
					.Operator = sOp
					.Values.IsNumeric = true
					.Values.NumericValue = nVal
					.Values.StringValue = sVal
					.Values.FilterType = nNum
					.Values.ColorValue = nVal
				End with
			    nbCrit = nbCrit + 1
			endif
		Next i
	If nbCrit > 0  Then oFiltre.setFilterFields3( Crit3() )
	endif

Cordialement, Bide

[Claude72]

Avez-vous purgé le profil utilisateur avant de réinstaller ?
Non, juste redémarré en mode sans échec, dans ce cas rien n'a changé le problème est toujours le même!!
Du coup j'ai suivi les conseils de "Bide" et mis en commentaire la ligne "oFiltre.setFilterFields3( Crit3() )" et là miracle, j'ai retrouvé les filtrations.
Bravo Bide, tu vas sauver un grand nombre d'utilisateurs de zBasic, donc pour moi après avoir ouvert une boite de Pandore, il est pet être temps de la refermer et de sortir avec [Résolu] ou je dois attendre d'autres commentaires et solutions ?