pb d'activation d'un bouton en VBA

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 !

carnaux23

XLDnaute Nouveau
Bonjour,
j'ai repris parmi les forums, une routine qui consiste à ajouter à une nouvelle feuille, un bouton 'de commande sur cette feuille et le code de l'événement Click du boutonDAns ma routine,
je n'arrive pas à écrire le code dans le module de la feuille:

ou est l'erreur?

Sub Ajouter_Feuille_Bouton()
Dim NouvelleFeuille As Worksheet, NouveauBouton As OLEObject
Dim Code$, NextLine&

' Ajoute une Nouvelle feuille
Set NouvelleFeuille = Sheets.Add

' Ajoute un bouton de Commande
Set NouveauBouton = NouvelleFeuille.OLEObjects.Add _
("Forms.CommandButton.1")
With NouveauBouton
.Left = 4
.Top = 4
.Width = 100
.Height = 30
.Object.Caption = "Retour feuille 1..."
End With

' Comment ajouter le code se rapportant au bouton...
Code = "Sub CommandButton1_Click()" & vbCrLf
Code = Code & " On Error Resume Next" & vbCrLf
Code = Code & " Sheets(""Feuil1"").Activate" & vbCrLf
Code = Code & " If Err <> 0 Then" & vbCrLf
Code = Code & " MsgBox ""Impossible d'activer la feuille1.""" & vbCrLf
Code = Code & " End If" & vbCrLf
Code = Code & "End Sub"

' Ecriture du code dans le module de la feuille (fs)
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With

End Sub
 
Re : pb d'activation d'un bouton en VBA

As-tu essayé de l'ajouter dans un module plutôt que dans ta feuille, et d'appeler la procédure "Ajouter_Feuille_Bouton" lors du clic sur le bouton ?
Ou alors simplement recopier le code de cette procédure dans celui du clic sur le bouton.
 
- 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

  • Question Question
Réponses
7
Affichages
324
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
4
Affichages
461
Réponses
3
Affichages
298
Réponses
10
Affichages
799
Retour