Condition IF avec filtre auto pour filtre multicriteres

C

Catrice

XLDnaute Barbatruc

• 19 Juin 2009

• #2

Re : Condition IF avec filtre auto pour filtre multicriteres

Bonjour,

Il faut l'écrire comme ceci :

If BatchNumber = "" And Productcode = "" Then


Pas tres bien compris ce que fait ton code mais là tu fais 2 fois la meme chose ...
Tu peux l'écrire comme ceci :

If Model <> "" Then
If BatchNumber = "" And ProductCode = "" Then Unfilter
Sheets("Data base").Range("A8").AutoFilter 4, Model
Sheets("research").Range("D7😀9").ClearContents
End If

Cliquez pour agrandir...

 

Dernière édition: 19 Juin 2009

Vote positif 0 Vote négatif

P

Payou

XLDnaute Occasionnel

• 19 Juin 2009

• #3

Re : Condition IF avec filtre auto pour filtre multicriteres

Ah bah vi forcement si j'écris comme un manche...

Merci Catrice, toujours un plaisir d'avoir ton aide 🙂

 

Vote positif 0 Vote négatif

P

Payou

XLDnaute Occasionnel

• 19 Juin 2009

• #4

Re : Condition IF avec filtre auto pour filtre multicriteres

Re Catrice,

Juste par rapport a ton dernier post, c'est pas pareil, toute la difference est censée résider dans le "Else". Car en fait j'aimerais que si plusieurs champs de tri sont remplis, alors il me fait un premier tri, ici par model, mais dans la suite de mon code j'ai le même code, avec a la place de model "batchnumber" par exemple. Et donc qu'il continue sont tri, et filtre cette fois-ci la feuille par batchnumber. Dans le cas ou les autres critères de sélection seraient vide, alors, il me defiltre la page, pour être sur que toutes les données sont la, et me la refiltre avec mes infos.]

Ai-je été plus compréhensible sur ce coup la?

Peut être avec le code complet ce sera plus parlant, je prépare un fichier exemple également dans le doute.

 

Pièces jointes

• Sample Domicil v5.02.zip

  36.5 KB · Affichages: 129
• Sample Domicil v5.02.zip

  36.5 KB · Affichages: 129
• Sample Domicil v5.02.zip

  36.5 KB · Affichages: 129

Dernière édition: 19 Juin 2009

Vote positif 0 Vote négatif

P

Payou

XLDnaute Occasionnel

• 19 Juin 2009

• #5

Re : Condition IF avec filtre auto pour filtre multicriteres

AAAAAaaaaah, ne me laisser pas tomber dans les fins fonds du forum, j'implore votre attention, et votre aide dans la mesure de votre savoir 😀

 

Vote positif 0 Vote négatif

P

Payou

XLDnaute Occasionnel

• 19 Juin 2009

• #6

Re : Condition IF avec filtre auto pour filtre multicriteres

Oula oula ca sent le roussi la...

upupupupupup 😀

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 19 Juin 2009

• #7

Re : Condition IF avec filtre auto pour filtre multicriteres

Re,

J'étais Off un moment.
Peux tu fournir un step pour reproduire ?
=> tes criteres et ce que tu veux obtenir.
Merci

 

Vote positif 0 Vote négatif

P

Payou

XLDnaute Occasionnel

• 22 Juin 2009

• #8

Re : Condition IF avec filtre auto pour filtre multicriteres

C'est gentil Catrice, mais je viens de résoudre mon problème. C'était juste un probleme de syntaxe... Voila de que je devais mettre en fait pour ce que ça pourrait intéresser:

Code:

Sub Research()

Dim W As Worksheet
Dim BatchNumber$
Dim Model$
Dim Productcode$
Set W = Sheets("Research")
BatchNumber = W.[D7].Text
Model = W.[D8].Text
Productcode = W.[D9].Text

If Model <> "" Then
If BatchNumber [COLOR="Red"]<> ""[/COLOR] Or Productcode <> "" Then
Sheets("Data base").Range("A8").AutoFilter 4, Model
W.Range("D8").ClearContents
Else
Unfilter
Sheets("Data base").Range("A8").AutoFilter 4, Model
W.Range("D8").ClearContents
End If
End If

If BatchNumber <> "" Then
If Model [COLOR="Red"]<> ""[/COLOR] Or Productcode <> "" Then
Sheets("Data base").Range("A8").AutoFilter 9, BatchNumber
W.Range("D7").ClearContents
Else
Unfilter
Sheets("Data base").Range("A8").AutoFilter 4, Model
W.Range("D7").ClearContents
End If
End If

End Sub

On rajoute ainsi autant de filtres que l'on veut. Ce code permet de faire un multifiltre pour être plus précis dans la recherche.
Ainsi si plusieurs des cases de recherches sont remplies, le filtre fera un tri en fonction du premier critère, puis du second etc, mais ne fera qu'un tri dans le cas ou un seul des critères sera remplis.

Ainsi même si plusieurs modèles existent, on peut approfondir la sélection, en utilisant son numéro de suivi ou autre.

 

Dernière édition: 22 Juin 2009

Vote positif 0 Vote négatif