erreur

[MASSJIPE]

Bonjour à tous
J'ai fait un userform et j'ai un petit soucis
1 quant le clic sur le bouton tri mon userform s'ouvre=> ras
2 quant le clic sur le bouton mise en forme => ras
3 quant le clic sur le bouton VA => bug erreur d'exécution '438' Selection.AutoFilter Field:=12, Criteria1:="=*va*", Operator:=xlAnd
End Sub
ci joint fichier http://cjoint.com/?lDeH35HtvQ
Merci à tous

 

[noviceAG]

Re : erreur

Bonjour massjipe, le Forum,
Loin d'être un spécialiste ton code fonctionne avec :

Sub va()
'
' va Macro
' Macro enregistrée le 28/11/2008 par Masson JP
'

Range("A2").AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="=*va*", Operator:=xlAnd
End Sub

Bonne journée

 

[MASSJIPE]

Re : erreur

Bonjour
fait l'essai meme souci
merci

 

[JCGL]

Re : erreur

Bonjour à tous,

Peux-tu essayer avec :

Rows("2:2").AutoFilter
    Selection.AutoFilter Field:=10, Criteria1:="VA"

A+

 

[kjin]

Re : erreur

Bonjour à tous,
Tu t'es trompé sur la colonne à filtrer, et il faut qu'il y ait qqchose à filtrer (selection !)

Sub VA()
Range("A2:O500").AutoFilter Field:=10, Criteria1:="*VA*", Operator:=xlAnd
End Sub

A+
kjin

 

[MASSJIPE]

Re : erreur

Bonjour Kjin,
C'est ok avec celle ci
Range("L2:L500").AutoFilter Field:=12, Criteria1:="*VA*", Operator:=xlAnd
j'ai changé L2:L500 et 12 et c'est nikel
Merci aussi à JCGL