Discussion :

[Godzestla]

Bonjour,

j'utilise le code suivant pour copier via un filtre elaboré certains enregistrements de mon recordset stocké sur une feuille vers une autre feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  '  Get Adress Last cell used on temporary Sheet
   Last_cel = Sheets(Ws_tmp).Range("IV1").End(xlToLeft).Address ' "IV" = plus grande colonne possible
   tablo = Split(Last_cel, "$")
 
    'Advanced Filter store at Ws Sheet based on Ws_Tmp Details With predefined Criteria.
    Sheets(ws).Select
    Sheets(Ws_tmp).Range("A1:" & tablo(1) & Sheets(Ws_tmp).UsedRange.Rows.Count).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Sheets(Cs_id).Range(Cr_id) _
        , CopyToRange:=Range("A1"), Unique:=False

ce code ne pose pas de problème.
La question concerne le stockage des critères dans la feuille prévue à cet effet (variable Cs_id), range(Cr_id).

j'ai besoin de préciser une sélection du type :

Magasin = "4"
et (Article du type "97*" ou article du type "090*" ou article du type "520*")

Le symbole * signifiant le Wildcard.

Je sais combiner le zones (ET) en utilisant 2 colonnes , 1 pour Magasin, 1 pour Article.
Je sais combiner les différents conditions possibles (OU) en mettant 1 critère par ligne, mais je ne sais pas comment mentionner le wildcard dans mes critères ni s'il faut changer quelchose à mon code pour supporter le wildcard (je ne pense pas à priori).
Mes champs étant alphanumériques, je ne sais pas s'il faut ou pas poser des quotes.

Merci pour vos lumières.

[Godzestla]

Ma question était ridicule.

Cà fonctionne sans problème, sans rien faire. (Bad Monday).

Il n'y a qu'à mettre quelquechose de ce type dans la feuille de critères du filtre élaboré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Advanced_filter_parms    
ART    WSCDZT
090*    4
97*    4