Fonction Filter

[milpom]

Bonjour à tous.
Est-il possible d'appliquer la fonction filter sur un tableau avec plusieurs critères ?

je reprends un exemple du net

sub a()
Dim DataString(3) As String
Dim InString() As String
Dim i As Integer

'Remplissage du tableau qui va être testé
DataString(0) = "chaine 1"
DataString(1) = "string 2"
DataString(2) = "chaine 3"
DataString(3) = "string 4"

'"DataString" est le tableau dans lequel doit être effectué la recherche.
'"str" est la chaîne à rechercher.
'La fonction Filter renvoie le tableau "InString" contenant les éléments
'qui répondent aux critères de la recherche.
InString = Filter(DataString, "str", True)

En plus de "str" je voudais mettre "2"
ce qui voudrait dire: chercher toutes les lignes contenant les mots "str" et "2"
esce possible ?




'Boucle sur le tableau afin de visualiser les éléments
'qui répondent aux critères de recherche.
For i = 0 To UBound(InString)
Debug.Print InString(i)
Next i

End Sub

 

[Guest]

Re : Fonction Filter

Bonjour,

Sub a()
Dim DataString(3) As String
Dim InString() As String
Dim i As Integer
'Remplissage du tableau qui va être testé
DataString(0) = "chaine 1"
DataString(1) = "string 2"
DataString(2) = "chastre 2"
DataString(3) = "string 5"
'"DataString" est le tableau dans lequel doit être effectué la recherche.
'"str" est la chaîne à rechercher.
'La fonction Filter renvoie le tableau "InString" contenant les éléments
'qui répondent aux critères de la recherche.
InString = Filter(Filter(DataString, "str", True), "2", True)
End Sub

InString contiendra "String 2" ET "chastre 2" mais pas "string 5"

A+

 

[milpom]

Re : Fonction Filter

InString = Filter(Filter(DataString, "str", True), "2", True)

Merci hasco pour ta réponse.

Donc écrit comme ci-dessus, cette fonction retourne toutes les lignes contenant les chaines "str" OU "2".

Je cherche à retourner les lignes contenant les chaines "str" ET "2"

Comment faire ?

edit : OOPS j'ai pas fais gaffe que chastre contenait la chaine "str". milles excuses
donc c'est bon.

Maintenant il faut que je trouve le moyen de faire un multi critère dans cette fonction...

 

[Guest]

Re : Fonction Filter

Re,

Multi-critère impossible avec Filter. Si c'est pour travailler sous VBA excel, suivant le cas il doit y avoir d'autres moyens, ne serait-ce que AdvancedFilter sur une plage provisoire ou non.

A+

 

[milpom]

Re : Fonction Filter

je vais chercher du coté d'advancedfilter

merci