Bug avec bouton mode création

[mfb]

Bonjour à TOUS.
J'ai peut être mal orienté mes recherches car je n'est rien trouvé
sur le forum qui réponde à mon PB.
Alors le voici,

L'instruction du bouton de commande créé via le mode création
génère une erreur 1004 avec la méthode classe range.
Cette même instruction fonctionne avec un Bouton Classique.
Où est le schimlblic ?
Pour démo le petit fichier joint possède les 2 types de boutons.

Merçi par avance pour vos lumières.
A+
Daniel

 

[Gelinotte]

Re : Bug avec bouton mode création

Bonjour,

Ainsi, il n'y a plus d'erreur ...

Private Sub CommandButton1_Click()
    Sheets("Feuil1").Activate
    Range("B5:E15").Select
    Selection.AutoFilter
    ActiveSheet.Range("B5:E15").AutoFilter Field:=2, Criteria1:="Rouge"
    Range("B5:E15").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Sheets("Feuil2").Range("B5").Select
    ActiveSheet.Paste
    Sheets("Feuil2").Range("A1").Select
    Sheets("Feuil1").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Sheets("Feuil1").Range("A1").Select
End Sub

Geli

 

[youky(BJ)]

Re : Bug avec bouton mode création

Bonjour à tous,
Une autre version pour éviter les select
Bruno

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .Range("B5:E15").AutoFilter Field:=2, Criteria1:="Rouge"
    .Range("B5:E15").Copy: Sheets("Feuil2").Range("B5").PasteSpecial
 Application.CutCopyMode = False
    .[C5].AutoFilter
    .[A1].Select
End With
Application.ScreenUpdating = True
End Sub

 

[mfb]

Re : Bug avec bouton mode création

Re,
Merci Gélinotte .... et à tous ceux qui zieuté ma requête.
C'est super simple et ça marche.
Encore fallait il faire référence aux feuilles concernées.
Alors .... encore MERCI
Et bonne fin de soirée.
Daniel

 

[Staple1600]

Re : Bug avec bouton mode création

Bonjour à tous


Pour varier les plaisir, avec le Filtre Elaboré

Sub FiltreElab()
With Feuil1
    .Range("B4:E4") = [{"A","B","C","D"}]
End With
With Sheets("Feuil2")
    .Select
    .Range("A1") = "B": .Range("A2") = "Rouge"
    Sheets("Feuil1").Range("B4:E15").AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=.Range("A1:A2"), _
    CopyToRange:=.Range("C1:F1")
End With
Feuil1.Range("B4:E4").Clear
End Sub