Rechercher : dans
Par :

[Excel] Bouton et macro

Dernière réponse le 15 jan 2009 à 14:15:06 MOI, le 14 fév 2006 à 20:07:19 
 Signaler ce message aux modérateurs

Bonjour

Je voudrais savoir comment on fait pour mettre un bouton de commande dans une cellule et lui affecter une macro ensuite ?

Merci

1

MOI, le 15 fév 2006 à 11:40:57

UP

Répondre à MOI

2

UsulArrakis, le 15 fév 2006 à 14:15:53
  • +4

Salut
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 ;-) (_Usul d'Arrakis
Serial_Dreamer_)

Répondre à UsulArrakis

3

Tilli, le 21 avr 2008 à 15:33:31

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

Répondre à Tilli

4

UsulArrakis, le 21 avr 2008 à 16:16:31

Ben sans avoir le fichier pour testerdifficile de te répondre
mets le sur cjoint
(_Usul d'Arrakis
Serial_Dreamer_)

Répondre à UsulArrakis

5

gromain, le 15 mai 2008 à 22:35:01

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

Répondre à gromain

6

Goeth, le 26 jun 2008 à 16:25:39
  • +9

Il faut utiliser le bouton de la barre d'outil "Formulaire" et non la barre d'outil "barre à outil contrôle"

Répondre à Goeth

7

 oui, le 15 jan 2009 à 14:15:06
  • +1

Yes, c'est bien avec formulaire, thanks

Répondre à oui