[Excel] Bouton et macro
Bonjour
Je voudrais savoir comment on fait pour mettre un bouton de commande dans une cellule et lui affecter une macro ensuite ?
Merci
Je voudrais savoir comment on fait pour mettre un bouton de commande dans une cellule et lui affecter une macro ensuite ?
Merci
7 réponses
-
il faut utiliser le bouton de la barre d'outil "Formulaire" et non la barre d'outil "barre à outil contrôle"
-
bonjour
pour les boutons il y à plusieur procédure , vous pouvez le regarder cet tuto agriable :
https://www.youtube.com/watch?v=HvqWahm0Pt8 -
bonjour pour les bouton il y à plusieur procédure , vous pouvez le regarder cet tuto agriable :
https://www.youtube.com/watch?v=HvqWahm0Pt8 -
Bonjour à tous,
Le sujet date, mais j'ai le meme probleme.
Quelqu'un a t-il trouver une solution?
Merci -
meme problème pour moi, ma macro fonctionne a merveille mais une fois placée entre le sub et end sub du boutton, plus rien ne marche.
bug sur:
Range("B13").Select
et la: erreur 1004
"la méthode select de la classe range à échouer"
please, help -
Contributeursalut
menu affichage/barres d'outils/boite à outils contôles
sélectionner le bouton et le tracer sur ta feuille
ensuite clic droit sur le bouton /visualiser le code
et coller ta macro entre les lignes Private Sub et End Sub
fermer le VBE
cliquer sur le triangle bleu de la barre "boite à outils"
et tester le bouton en cliquant dessus ;-)-
Bonjour,
Je fais exactement ce que tu dis mais ma macro bug
Alors qu'elle fonctionne si je ne mets pas en place le bouton
Pourquoi?
Private Sub CommandButton1_Click()
' miseajourTCD Macro
' Macro enregistrée le 21/04/2008 par mni
'
'
Sheets("Prépa").Select
Range("A5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Range("A49").Select
ActiveSheet.PivotTables("Tableau croisé dynamique9").RefreshTable
ActiveWindow.SmallScroll Down:=27
Range("A98").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
ActiveWindow.SmallScroll Down:=84
Range("A173").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").RefreshTable
ActiveWindow.SmallScroll Down:=75
Range("A245").Select
ActiveSheet.PivotTables("Tableau croisé dynamique8").RefreshTable
ActiveWindow.SmallScroll Down:=207
Range("A445").Select
ActiveSheet.PivotTables("Tableau croisé dynamique5").RefreshTable
ActiveWindow.SmallScroll Down:=177
Sheets("Synthèse").Select
Range("C6").Select
MsgBox ("Mise à jour TCD terminée")
End Sub -
Contributeur@Tilliben sans avoir le fichier pour testerdifficile de te répondre
mets le sur cjoint
-
-
UP
