[Excel] Bouton et macro

MOI -  
yassinecom Messages postés 24 Statut Membre -
Bonjour

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

  1. Goeth
     
    il faut utiliser le bouton de la barre d'outil "Formulaire" et non la barre d'outil "barre à outil contrôle"
    21
    1. oui
       
      Yes, c'est bien avec formulaire, thanks
      0
  2. UsulArrakis Messages postés 7683 Statut Contributeur 3 196
     
    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 ;-)
    11
    1. Tilli
       
      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
      0
      1. UsulArrakis Messages postés 7683 Statut Contributeur 3 196 > Tilli
         
        ben sans avoir le fichier pour testerdifficile de te répondre
        mets le sur cjoint
        0
  3. gromain
     
    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
    2
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. lapounette
     
    Bonjour à tous,

    Le sujet date, mais j'ai le meme probleme.
    Quelqu'un a t-il trouver une solution?

    Merci
    1