Discussion :

[matthieu69]

bonjour à tous,


je rencontre un problème est ne trouve pas de solution dans les différents forums,

j'ai besoin de faire un filtre avec comme critère "ne commence pas par" (au pire "ne contient pas"), le souci c'est que je ne sais pas comment écrire cela avec ma variable

ci dessous le code ou j'arrive à filtrer ce qui contient.

si l'un d'entre vous à une solution je suis preneur

Code :

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

1
2
3
4
5
6
7
Dim rep As String
    rep = InputBox("QUEL FRS", "Fournisseur à sélectionner") & "*"
 
    With Sheets("Base (2)").Range("b2")
    .AutoFilter
    .AutoFilter field:=2, Criteria1:=rep
    End With

[halaster08]

Bonjour,
As tu essayé:

Code :

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

Criteria1:=<>rep

[matthieu69]

oui oui ça me met erreur de compilation

[halaster08]

Sans la variable la syntaxe que m'as donné l'enregistreur de macro

Code :

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

Criteria1:="<>15*"

edit: En fait non essaye:

Code :

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

Criteria1:="<>" &  rep

[matthieu69]

presque ci dessous la syntaxe exact merci à toi halaster08

Code :

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

Criteria1:="<>" & rep

[matthieu69]

Dernière question un peux bête mais je n'arrive pas à supprimer ma plage comment faire sachant que ma plage est variable

Code :

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

1
2
3
4
5
6
7
Dim rep As String
    rep = InputBox("QUEL FRS", "Fournisseur à sélectionner") & "*"
 
 
    With Sheets("Base (2)").Range("b2")
    .AutoFilter field:=2, Criteria1:="<>" & rep
    End With