Discussion :

[tounepistols]

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 :

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

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

[matrix788]

hep,

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

cdlt,

[tounepistols]

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 :

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

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

[matrix788]

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

[tounepistols]

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 .

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 !!!!

[matrix788]

avec toutes mes excuses ,

sincerely