Utiliser "find" pour rechercher une valeur

[Maddad]

Bonjour,

J'ai un formulaire avec 2 listboxs contenant des valeur "années" et une plage de données ("Zonebdd") avec 2 colonnes contenant des dates, je voulais faire un filtre élaboré sur ces deux critéres, voici le code:

With Me.ListDateArticle 'Listbox avec les valeurs "année"'
For a = 0 To .ListCount - 1
If .Selected(a) Then
Critere = Critere & "(find(""" & .List(a) & """,Evenements de pertes!A2 )) *" 'Colonne avec les dates'
End If
Next a
End With

With Me.ListDateEvent 'Listbox avec les valeurs "année"'
For a = 0 To .ListCount - 1
If .Selected(a) Then 'selected(b) renvoie vrai ou faux
Critere = Critere & "(find(""" & .List(b) & """,Evenements de pertes!B2)) *" 'Colonne avec les dates'
End If
Next a
End With

Critere = "=" & Critere & "1"
Sheets("Evenements de pertes-filtre").Range("A2").Value = Critere

Sheets("Evenements de pertes-filtre").Activate 'Feuille de destination de la zone d'extraction'
Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:R4"), Unique:=False


End Sub


Le problème c'est que la recherche a Find ici fonctionne avec du texte, et renvoie une erreur valeur pour les dates, je n'arrive pas à la corriger.

Merci

 

[néné06]

Re : Utiliser "find" pour rechercher une valeur

Bonjour Maddad

As tu déclaré la variable "Critere" et en quel mode ?

A+

 

[Maddad]

Re : Utiliser "find" pour rechercher une valeur

Salut néné06,

Non je ne l'ai pas fais, mais je viens d'essayer au pif double, date et integer, mais ça ne fonctionne pas

 

[Yaloo]

Re : Utiliser "find" pour rechercher une valeur

Bonsoir à tous les 2,

Avec un fichier simplifié peut être que cela serait plus facile pour t'aider.

A+

 

[Maddad]

Re : Utiliser "find" pour rechercher une valeur

Salut Yaloo,

voici le fichier, pour le moment je n'ai introduit comme critère de sélection que les textbox "années"

A+

 

[Yaloo]

Re : Utiliser "find" pour rechercher une valeur

Bonsoir Maddad, le forum,

Vois avec le fichier ci-joint :

Ca filtre sur les 2 premières colonnes, la zone de critères est mise sur ta feuille "Evenements de pertes-filtre" mais tu peux la mettre sur ta feuille "Items" si tu le souhaites.

A te relire

Martial

 

[Maddad]

Re : Utiliser "find" pour rechercher une valeur

Salut Yaloo,

Merci, ça fonctionne impec