XL 2019 Run Private Sub

[gg13]

Bonjour,

Je voudrais activer, par macro, une Private Sub CommandButton13_Click()

J’ai utilisé Run Macro et autres mais je ne trouve pas la bonne écriture.

Merci de votre aide.

GG13

 

[Phil69970]

Bonjour @gg13

Si j'ai compris dans le code de la feuille

Private Sub CommandButton13_Click()
MsgBox "Coucou"
End Sub

Sub test()
CommandButton13_Click
End Sub

@Phil69970

 

[fanch55]

Bonjour, et si l'appel se fait dans un module ou une autre feuille :

Dans le code de la feuille où réside le bouton :

Public Sub CommandButton1_Click()
    MsgBox "Hello"
End Sub

Dans un module ou une autre feuille :

Sub test()
    Worksheets("Feuil1").CommandButton1_Click
End Sub

 

[mapomme]

Bonjour @gg13 🙂,

J'ai supposé que votre CommandButtton13 est sur la Feuille de calcul "Toto".

Remplacer Private Sub CommandButton13_Click() par Public Sub CommandButton13_Click().
Puis exécuter le code :

Sub Test_Clique()
   Sheets("toto").CommandButton13_Click
End Sub

nota : vous pouvez aussi remplacer Sheets("toto") par le CodeName de la feuille de calcul où se trouve le bouton CommandButton13 (avantage -> le code est indépendant du nom de la feuille).
Exemple: si la feuille Toto a pour codename Feuil1, on peut écrire :

Sub Test_Clique()
   Feuil1.CommandButton13_Click
End Sub

remarque : au sein d'un userform, c'est la même méthode.

 

[gg13]

J'aurais certainement dû préciser que le bouton est dans un USF et pas une feuille.

Sub test()
CommandButton13_Click
End Sub

ne fonctionne pas.
gg13

 

[mapomme]

@fanch55 🙂,
Bonjour 😉,
Encore une fois, je n'avais pas ré-actualisé! 😡

 

[mapomme]

Re @gg13,
Exemple sur un userform.
Si vous voulez l'exécuter depuis du code VBA hors de l'userform, utiliser:

UserForm1.CommandButton13_Click

 

[gg13]

Merci pour le fichier mais
Me.CommandButton13_Click
ne fonctionne pas chez moi

membre de méthode ou de donnée introuvable

 

[fanch55]

UserForm1.CommandButton13_Click

et pas Me....

 

[mapomme]

Re,

Voir le fichier joint avec les deux possibilités:

1. appel depuis VBA (Userform1 déchargé)
2. appel depuis un code de l'Userform1)

nota :

• il faut tout dire depuis le début et ne pas distiller les informations au compte-goutte.
• toutes les solutions proposées fonctionnent dans leur cadre respectif

 

[gg13]

Je dois partir je testerai plus tard.
Bonne journée
GG13

 

[gg13]

Bonsoir
Cette solution fonctionne sur le USF joint mais pas dans le mien toujours un code d'erreur.
membre de méthode ou de donnée introuvable
gg13

 

[mapomme]

Re,
Que voulez-vous qu'on vous dise excepté "joignez le fichier avec l'erreur".

 

[mapomme]

Re,

Je rappelle que j'avais écrit dans le message #4:
Remplacer Private Sub CommandButton13_Click() par Public Sub CommandButton13_Click()

Déja dans le message #3, @fanch55 avait écrit : Public Sub CommandButton1_Click()

L'avez-vous fait ?
Si non alors essayez et dites nous. S l'erreur persiste alors joignez votre fichier avec le bogue.

On va y arriver 🥵

 

[gg13]

Oui j'ai testé
Remplacer Private Sub CommandButton13_Click() par Public Sub CommandButton13_Click().
Le résultat est le même, ce qui marche sur les fichiers proposés ne marche pas dans le mien.
Que la macro soit dans le USF ou externe le résultat est identique !!!!!!
J'ai tout simplement copié la macro en question et collé dans la seconde.
ça fonctionne correctement.
GG13