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.