Bonjour Michel,
Bini Michel a écrit :
Merci François de ta réponse, mais j'ai du mal m'exprimé, ce n'est pas
la valeur 0 que je ne veux pas afficher
mais la ligne complête qui contient le résultat 0. Merci
Désolé, j'avais en effet pas bien lu. Ton message était clair pourtant.
J'aimerai pouvoir le faire sans passer par le filtre standard. Bonne
journée
Michel
Je pense que la mise en place du filtre, manuellement est une bonne
solution et facile à mettre en oeuvre.
[...]
Si quelqu'un peut m'aider cela serait super. bonne rentrée pour ceux
qui sont partis en vacances.
bonne journée
Je te propose ce bout de code qui te donnera la possibilité de mettre en
place un filtrage :
Sub FiltrerDonnees
'références à l'API d'OpenOffice.org
'http://api.openoffice.org/docs/DevelopersGuide/Spreadsheet/Spreadsheet.htm#1+3+5+1+Filtering
'http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/FilterOperator.html
'Plage des données à filtrer
maPlage = ThisComponent.Sheets(0).GetCellRangeByPosition(0,0,1,10)
monFiltre=maPlage.createFilterDescriptor(true)
dim paramFiltre(0) As New com.sun.star.sheet.TableFilterField
'Colonne (dénommé champ dans le cas de base de données) sur laquelle
porte le filtrage
paramFiltre(0).Field = 1
'Si la donnée est de type numérique
paramFiltre(0).IsNumeric = True
' EMPTY données "vide"
' NOT_EMPTY pdonnées "non vide"
' EQUAL données "égale à"
' NOT_EQUAL données "différente de"
' GREATER données "supérieure à"
' GREATER_EQUAL données "supérieure ou égale à"
' LESS données "inférieure à"
' LESS_EQUAL données "inférieure ou égale à"
paramFiltre(0).Operator = com.sun.star.sheet.FilterOperator.GREATER_EQUAL
'Valeur à filtrer (inutile par exemple pour le filtre NOT_EMPTY)
paramFiltre(0).NumericValue = 100
monFiltre.SetFilterFields(paramFiltre())
'Si entête de colonnes à prendre en compte
monFiltre.ContainsHeader = True
'Exécution du filtre
maPlage.filter(monFiltre)
End Sub
Cordialement
François Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
