Afficher dans une cellule le code VBA d'un bouton

Bonjour

A des fins de présentation, je cherche à afficher dans une cellule le codeVBA sous-jacent d'un bouton lorsqu'on clique sur le bouton.

Ex.:
J'ai sur ma feuille Excel un bouton "Hello".
Le code est :

Code:

---

1 2 3 4

Private Sub helloBtn_Click() MsgBox ("Hello") End Sub

---

Je voudrais que si l'utilisateur clique sur le bouton Hello, alors

Citation:

---

MsgBox ("Hello")

---

s'affiche dans une cellule.

Donc comment récupérer le code VBA d'un evt ?

Merci

Bonjour,

Essayez le code suivant qui inscrit "MsgBox ("Hello")" dans la cellule A1 de la feuille active

Code:

---

1 2 3 4

Private Sub helloBtn_Click() MsgBox ("Hello") ActiveSheet.[a1] = "MsgBox (''Hello'')" End Sub

---

Cordialement.

PMO
Patrick Morange

Bonjour

Merci pour votre réponse.
J'aurai aimé récupérer le code de facon + automatique (sans avoir à recopier tout le code avec des value=....)
Je me disais qu'une solution serait de le fichier Excel pour le parser et récupérer les lignes de code de chacune des fonctions ? Mais ca semble pas faisable non plus car les fichiers excel sont dans un format proprio et donc pas moyen de récuperer le code vba...

Tant pis. Je vais suivre votre idée et je ferai des copier/coller de mon code.
Merci de votre aide

Bonjour.

A mon avis il est possible de créer une procédure qui va chercher le code d'une procédure évènementielle.
Le premier paramètre est le nom de la feuille, ou son codename pour aller chercher dans le projet VBA le module associé à la feuille en question.
Une fois que tu as le module (objet CodeModule) tu peux trouver la première ligne d'une procédure dont tu connais le nom, le nombre de lignes de la procédure et lire tout cela.

L'idée serait donc

Code:

---

function fctLitCode(Byval sNomFeuille as string, ByVal sProcName as string) as string

---

C'est juste une piste.

Cordialement,

PGZ

Dans un module public

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public NomBouton As String   Public Sub AfficheCode() Dim Tbl Dim i As Byte Dim Deb As Integer   With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule Tbl = Split(.Lines(1, .CountOfLines), "End Sub") For i = LBound(Tbl) To UBound(Tbl) Deb = InStr(Tbl(i), "Private Sub " & NomBouton & "_Click()") If Deb > 0 Then Range("A1") = Mid(Tbl(i), Deb) & "End Sub" Exit For End If Next i End With End Sub

---

Et à la fin de chaque code de tes boutons (exemple)

Code:

---

1 2 3 4 5 6

Private Sub CommandButton3_Click() MsgBox "ici hello"   NomBouton = "CommandButton3" AfficheCode End Sub

---

Merci à vous tous !

Ca sent bon ce que vous me dites :D
J'essaie lundi dès mon retour au bureau...

merci beaucoup :ccool:

J'ai donc essayé la méthode de mercatogqui me paraissait adequat.
Mais le clic sur bouton provoque une erreur :

Citation:

---

Erreur d'execution 1004:
L'accès par programme au projet VisualBasic n'est pas fiable.

---

:(

Résolu :
http://excel.developpez.com/faq/?page=VBA#SourcesFiables