Discussion :

[greenzephyr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub helloBtn_Click()
MsgBox ("Hello")
End Sub

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

MsgBox ("Hello")

s'affiche dans une cellule.

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

Merci

[PMO2017]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

PMO
Patrick Morange

[greenzephyr]

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

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

C'est juste une piste.

Cordialement,

PGZ

[mercatog]

Dans un module public

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton3_Click()
MsgBox "ici hello"
 
NomBouton = "CommandButton3"
AfficheCode
End Sub

[greenzephyr]

Merci à vous tous !

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

merci beaucoup

[greenzephyr]

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

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