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 :
VB:
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 :
VB:
Sub Test_Clique()
Feuil1.CommandButton13_Click
End Sub
remarque : au sein d'un userform, c'est la même méthode.
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