Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Editeur Visual Basic

Cleek

XLDnaute Nouveau
Bonjour à nouveau à toutes et tous
Une autre question à vous poser car je n'y pas pu trouver de solution.
J'ai un fichier qui s'ouvre sur un userform avec une série de boutons me permettant d'accéder aux différents onglets de travail. J'aimerais ajouter un bouton me permettant d'accéder directement à l'éditeur VB (CTRL+1 comme raccourci clavier), mais je ne trouve pas le code permettant de faire cela. J'ai utilisé ce qui suit sans succès :

Private Sub CommandButton23_Click()
Application.SendKeys "%{F11}"
End Sub
Merci à toutes et tous pour vos réponses et bon dimanche
Claude
 

Phil69970

XLDnaute Barbatruc
Bonjour @Cleek

Si j'ai bien compris pour accéder à l’éditeur VB pas besoin de macro

ALT + F11 ouvre l'éditeur directement

Et une variante .....

Tout en image :


*Merci de ton retour

@Phil69970
 

Pièces jointes

  • 1639909854593.png
    77.1 KB · Affichages: 42
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
En cherchant dans un classeur où je le faisais, j'avais trouvé une autre voie plus compliquée mais qui pourrait s'adapter pour aller dans un module précis :
VB:
ThisWorkbook.VBProject.VBComponents(1).CodeModule.CodePane.Show
 

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite une très belle journée bien chaude lol

Ce fil m'intéresse et j'y reviens (comme dirait ... ),

En effet, j'ai l'une de mes collègues qui n'arrive pas sur son ordi à afficher Visual basic avec "ALT + F11".
Pourtant-, elle a le même windows que moi et office 365, le tout en 64.

j'aimerais lui mettre une bouton de macro (dans son fichier lol ) pour qu'au clic elle ouvre Visual basic.
J'ai suivi le fil avec attention, j'ai appliqué mais rien ne fonctionne.

Si vous aviez la solution ce serait super !
Je joins un petit fichier test.

Je vous remercie,
Amicalement,
lionel
 

Pièces jointes

  • vba_atteindre.xlsm
    30.1 KB · Affichages: 4

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour le fil

@lionel - Pour ma part, tous les codes fonctionnent très bien chez moi. Je t'en ai même ajouté un pour atteindre le code VBE.
Bonne journée
@+ Eric c
 

Pièces jointes

  • vba_atteindre.xlsm
    35.4 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@Usine à gaz :
Vu que le demandeur est au abonné absent ce fil c'est arrêté ....
Pour moi les 2 solutions que j'ai fourni au post #2 fonctionnent par contre j'ai le même message avec les autres solutions fournis aux autres post provoquent des erreurs y compris celle d'Eric
J'ai excel 2010 64, j'en conclu ,peut être rapidement que cela ne fonctionne pas en 64....

==> Message comment à toutes les solutions (y compris celle d'Eric)


@Phil69970
 

Usine à gaz

XLDnaute Barbatruc
Bonjour le Forum

N'arrivant pas à faire fonctionner les codes pour afficher l'éditeur vba,
N'arrivant pas à trouver :
Dans Outils--> macro --> Sécurité --> Onglet "Éditeurs approuvés"
Il faut cocher "Faire confiance au projet Visual Basic"
office 365 vba dans éditeur activer "Faire confiance au projet Visual Basic"

J'ai fait ce petit code :
VB:
Sub affiche_vba()
CreateObject("wscript.shell").SendKeys "%" & "{F11}"
End Sub
Et ça semble très bien fonctionner
Je joins le fichier.
Amicalement,
lionel
 

Pièces jointes

  • vba_atteindre.xlsm
    35.6 KB · Affichages: 3

Phil69970

XLDnaute Barbatruc
Bonjour à tous

Lionel :
Ta version fonctionne chez moi sur excel 2010 64 bits et c'est la seule comme je l'ai dit au post # 8.
As tu essayer celle du post # 2 notamment la solution dans la barre de raccourci.
Avantage pas besoin de macro et c'est fonctionnel avec tous les fichiers excel...... et pour toutes les versions.....

@Phil69970
 

Usine à gaz

XLDnaute Barbatruc
Bonjour Phil69970
Oui je connais celle du post # 2 et c'est celle que j'utilise depuis toujours
Mais chez ma collègue elle a un souci pour l'utiliser.
C'est pour cela que j'ai fait ce petit code qui semble bien fonctionner.
lionel
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…