Activer une macro avec 1 bouton

  • Initiateur de la discussion Initiateur de la discussion chwichwe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chwichwe

XLDnaute Junior
Bonjour

Je debute depuis 1 semaine sur les macros, j'apprends seule donc j'espère que vous serez indulgents 😉
J'ai creer mon bouton et je souhaite lui affecter 1 code (peu importe lequel c'est juste pour savoir le faire !)
j'ai cliqué droit, puis visualiser le code
puis j'enregistre et j'essaie mais ca ne marche pas

par exemple

Code:
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/08/2009 par LUKOWIAK Carine
'

'
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A4").Select
End Sub

merci d'avance de votre aide
 
Re : Activer une macro avec 1 bouton

Salut,

Quand tu as fais visualiser le code il a du te mettre quelque chose de ce style
Code:
Private Sub CommandButton1_Click()

End Sub

Il suffit de mettre ton code a l'interieur comme ca:
Code:
Private Sub CommandButton1_Click()    
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A4").Select
End Sub

ou d'appeler la macro1 comme ca:
Code:
Private Sub CommandButton1_Click()    
     Macro1
End Sub
 
Re : Activer une macro avec 1 bouton

Salut chwichwe et bienvenue, Minick, le Forum

Ou tout simplement

Code:
Private Sub CommandButton1_Click()
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").FormulaR1C1 = "2"
    Range("A3").FormulaR1C1 = "3"
    Range("A4").Select
End Sub
Les Select ne sont pas indispensables

Bonne Journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
1 K
Retour