[Excel] Macro type auto

Bonjour a tou(te)s,

je souhaiterais pouvoir effectuer un filtre automatique sur Excel via une macro. Je m'explique :

J'ai un tableau composé de différentes colonnes (Description, taille etc...). Dans une cellule J1, je voudrais taper mon critère de recherche, par exple PVC, et je voudrais alors avoir à l'écran que les lignes contenant le mot PVC (qui n'est pas forcément le 1er mot).

Avec les macros automatiques j'obtiens ça, mais ça ne marche pas... pourquoi ?

Code:

---

1 2 3 4 5 6

Sub Filtre() Range("A1:I1").Select Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:=J1 Range("J1").Select End Sub

---

Merci d'avance,

Cordialement,

Antoine

hep,

je pense que c'est ton criteria, où il manque les guillemets pour ta variable J1.

cdlt,

Salut a tou(te)s,

Bon ba au final je suis passe par une variable!

Voila le code si il y a des personnes que cela interesse!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub searching() Dim variable as String Sheets("sheet3").Activate Range("A2:I1000").Select Range("G1").Select Variable=activecell If variable = "" Then MsgBox ("Please write something to looking for in the cell") Else Selection.AutoFilter Field:=3, Criteria1:="*" & variable & "*", Operator:=xlOr End If Range("G1").Select End Sub

---

Merci a tou(te)s,

Cordialement,

Antoine

Oui, je vois que tu as surtout élargis ton champ de recherche (i 1000).

Sinon, tant mieux.

ps : ce serait super si tu indiquais "résolu" dans ton titre.

Thx

re-salut a tou(te)s,

Euhhhhhhhhhh, non il n'y a pas QUE le champ qui est elargis mais tu as raison sur ce point :mouarf: .

Cordialement,

Antoine

P.S.: Ca serait super que tu me dises si tu le vois le tag Resolu , parce que le Tag y est pour moi! A moins que mes allucinations ne reprennent 8O !!!!

avec toutes mes excuses ,

sincerely