[Excel] Bouton et macro
Fermé
MOI
-
14 févr. 2006 à 20:07
yassinecom Messages postés 19 Date d'inscription lundi 9 février 2015 Statut Membre Dernière intervention 26 août 2015 - 24 août 2015 à 19:28
yassinecom Messages postés 19 Date d'inscription lundi 9 février 2015 Statut Membre Dernière intervention 26 août 2015 - 24 août 2015 à 19:28
A voir également:
- [Excel] Bouton et macro
- Liste déroulante excel - Guide
- Si et excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Formule excel - Guide
7 réponses
il faut utiliser le bouton de la barre d'outil "Formulaire" et non la barre d'outil "barre à outil contrôle"
UsulArrakis
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
15 févr. 2006 à 14:15
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 ;-)
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
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
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
>
Tilli
21 avril 2008 à 16:16
21 avril 2008 à 16:16
ben sans avoir le fichier pour testerdifficile de te répondre
mets le sur cjoint
mets le sur cjoint
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
bug sur:
Range("B13").Select
et la: erreur 1004
"la méthode select de la classe range à échouer"
please, help
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous,
Le sujet date, mais j'ai le meme probleme.
Quelqu'un a t-il trouver une solution?
Merci
Le sujet date, mais j'ai le meme probleme.
Quelqu'un a t-il trouver une solution?
Merci
yassinecom
Messages postés
19
Date d'inscription
lundi 9 février 2015
Statut
Membre
Dernière intervention
26 août 2015
24 août 2015 à 19:27
24 août 2015 à 19:27
bonjour pour les bouton il y à plusieur procédure , vous pouvez le regarder cet tuto agriable :
https://www.youtube.com/watch?v=HvqWahm0Pt8
https://www.youtube.com/watch?v=HvqWahm0Pt8
yassinecom
Messages postés
19
Date d'inscription
lundi 9 février 2015
Statut
Membre
Dernière intervention
26 août 2015
24 août 2015 à 19:28
24 août 2015 à 19:28
bonjour
pour les boutons il y à plusieur procédure , vous pouvez le regarder cet tuto agriable :
https://www.youtube.com/watch?v=HvqWahm0Pt8
pour les boutons il y à plusieur procédure , vous pouvez le regarder cet tuto agriable :
https://www.youtube.com/watch?v=HvqWahm0Pt8
15 janv. 2009 à 14:15