Macro sous CommandButton ( avec clic)

Fermé

catme - 12 sept. 2010 à 14:17
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 12 sept. 2010 à 20:14

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.

A voir également:

Macro sous CommandButton ( avec clic)
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Atout clic - Télécharger - Éducatifs
Jitbit macro recorder - Télécharger - Confidentialité
Macro word - Guide
Windows 11 clic droit afficher plus d'options par défaut - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
12 sept. 2010 à 20:14

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+

Discussions similaires

Clic molette qui ne marche pas

Le clic molette de la souris ne fonctionne pas

SOURIS : Le clic central ne fonctionne plus

Clic gauche fonctionne très mal

cellule lié excel ouverture automatique