Téléchargement
illégal
Posez votre question Signaler

[Excel] Bouton et macro

MOI - Dernière réponse le 15 janv. 2009 à 14:15
Bonjour

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

Merci
Lire la suite 

[Excel] Bouton et macro »

7 réponses
Réponse
+23
moins plus
Goeth 26 juin 2008 à 16:25
il faut utiliser le bouton de la barre d'outil "Formulaire" et non la barre d'outil "barre à outil contrôle"

 Ajouter un commentaire
oui - 15 janv. 2009 à 14:15
Yes, c'est bien avec formulaire, thanks
Ajouter un commentaire
Réponse
+9
moins plus
UsulArrakis 6875Messages postés 28 mars 2003Date d'inscription 25 mai 2012Dernière intervention 15 févr. 2006 à 14:15
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 ;-)

Ajouter un commentaire
Tilli - 21 avril 2008 à 15:33
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
UsulArrakis- 21 avril 2008 à 16:16
ben sans avoir le fichier pour testerdifficile de te répondre
mets le sur cjoint
Ajouter un commentaire
Réponse
+2
moins plus
MOI 15 févr. 2006 à 11:40
UP

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
gromain 15 mai 2008 à 22:35
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

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [Excel] Bouton et macro » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?