Macro sous CommandButton ( avec clic)

Question

Bonjour, 

J'ai un soucis avec ma macro, elle marche très bien mais dès que je veux la mettre sous un CommandButton ça ne marche plus? Pourquoi tant de haine?

Voici ma Macro
Dim rngSelect   As Range
    
    Sheets("BaseMFG").Select
    Range("A1").Select (c'est à partir de cette ligne que la macro bug)
    
    ' filtrage
    Selection.AutoFilter Field:=30, Criteria1:="0"
    ' rngSelect =   toutes les cellules visibles (non masquées par le filtre)
    '               contigües à la cellule active
    Set rngSelect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    
    ' copy de la zone sélectionnée
    rngSelect.Range("A:A,I:I,J:J,M:M,V:V,W:W,X:X,AC:AC,AI:AI").Copy
    Sheets("Fantômes").Select
    Range("A1").Select
    ActiveSheet.Paste


Merci d'avance à ceux qui vont pouvoir m'aider.

lermite222 · Answer

Bonjour,
Parce que tu change de feuille dans ta macro.
Solution :
Laisser ta macro dans un module Bas, par exemple Module1
Si tu lui donne comme nom, par exempel <MaMacroBouton> dans le code de ton bouton tu met...
Private Sub CommandButton1_Click()
    MaMacroBouton
End Sub
A+

Macro sous CommandButton ( avec clic)

1 réponse

Votre réponse

Discussions similaires

Newsletters