Macro et commande bouton.

[g]

Bonjour,
La macro ci-dessous fonctionne parfaitement bien par "Exécuter la macro".
Par contre si j'utilise le même code dans une commande bouton cela ne fonctionne plus.

Sub Macro1()

Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Range("F1"), Operator:=xlAnd
Range("A234").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tri").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("base").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("F1").Select
Sheets("tri").Select
Range("A234").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range ("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select

End Sub

Si quelqu'un peut me donner l'explication de cela, je l'en remercie par avance.
Bonne journée.

 

[Valérie]

Bonjour le forum,

Je profite de mon premier post de l'année pour souhaiter mes meilleurs voeux à tous et remercier une fois de plus les investigateurs de ce forum fort sympathique.

Pour en revenir au pb du bouton c tout simplement qu'il est affecté à une feuille lors de la création (alors qu'une macro non à son module) et dons il ne peut travailler sur une autre feuille sans lui préciser son nom.
Donc dès que tu parles de ta feuille Tri il faut y ajouter Sheets("Tri"). devant

Sub Macro1()

Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=Range("F1"), Operator:=xlAnd
Range("A234").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("tri").Select
Sheets("tri").Range("A2").Select
ActiveSheet.Paste
Sheets("base").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("F1").Select

Sheets("tri").Range("A234").Sort Key1:=Sheets("tri").Range("A2"), Order1:=xlAscending, Key2:=Sheets("tri").Range ("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select

End Sub

Je pense les avoir tous fait mais c à vérifier.
Courage et à bientôt
Valérie

 

[g]

Tous mes remerciements pour tes voeux ainsi que pour tes explications.
Bonne année.

 

[herve]

bonjour le forum...


BRAVO Valérie... cela marche en effet...

@+