UDF > Excel >

_Excel_FilterGet

Retourne la liste des filtres install�es

#include <Excel.au3>
_Excel_FilterGet ( $oWorkbook [, $vWorksheet = Default] )

Param�tres

$oWorkbook Objet classeur Excel
$vWorksheet [optionnel] Nom, index ou objet de feuille de calcul filtr�. Si la valeur est le mot-cl� Default, la feuille active sera s�lectionn�e

Valeur de retour

Succ�s: Retourne un tableau � deux dimensions index� � partir de z�ro avec les informations suivantes:
    0 - On si un filtre est d�fini pour cette colonne
    1 - Nombre de zones (collection de plages) dont se compose la colonne filtr�e
    2 - Crit�res de filtrage 1. Un tableau de cha�nes est retourn� en tant que cha�ne s�par�e par des "|"
    3 - Crit�res de filtrage 2. Un tableau de cha�nes est retourn� en tant que cha�ne s�par�e par des "|"
    4 - Une valeur XlAutoFilterOperator qui repr�sente l'op�rateur qui associe les deux crit�res de filtre
    5 - Objet Range pour lequel les filtres ont �t� install�s
    6 - Nombre d'enregistrements visibles dans la plage filtr�e (y compris la ligne avec la fl�che du filtre)
�chec: Retourne 0 et d�finit @error <> 0.
@error: 1 - $oWorkbook n'est pas un objet ou n'est pas un objet classeur
2 - Le nom ou l'index $vWorksheet n'est pas valide ou $vWorksheet n'est pas un objet feuille de calcul. @extended contient le code d'erreur COM
3 - Pas de filtre trouv�

En relation

_Excel_FilterSet

Exemple

#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls", True)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; Installe les deux filtres
_Excel_FilterSet($oWorkbook, Default, "A:E", 3, "<610")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple", "Erreur lors du filtrage des donn�es." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $aShow[] = ["20", "40", "60"]
_Excel_FilterSet($oWorkbook, Default, "A:E", 2, $aShow, $xlFilterValues)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple", "Erreur lors du filtrage des donn�es." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple", "Filters set:" & @CRLF & "  Colonne B: valeurs = 20, 40 or 60." & @CRLF & "  Colonne C: valeurs <610.")

; *****************************************************************************
; Affiche des informations sur les filtres de la feuille de calcul active.
; *****************************************************************************
Local $aFilters = _Excel_FilterGet($oWorkbook)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_FilterGet-Exemple 1", "Erreur lors du filtrage des donn�es." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aFilters, "UDF Excel: _Excel_FilterGet-Exemple 1", Default, Default, Default, "Filter on|#areas|Criteria1|Criteria2|Operator|Range|#Records")