application run dans userform différents

[mariobross]

re bonjour le forum , j'ai dans mon 1er userform1 :

Private Sub enregistrer_fiche_Click()
code code code .........
End Sub

dans le 2eme userform2 :

Private Sub OptionButton2_Click()
code........
Application.Run "enregistrer_fiche_Click"
code.......
End Sub

quand je lance le userform2 un message de débogage apparait au niveau de la ligne application run , je pense que cela doit etre un pb de chemin d'acces mais je n'arrive pas à trouver la syntaxe. merci pour vos aides.

 

[Jacques87]

Re : application run dans userform différents

Bonjour,

Application.Run appelle et exécute une macro ou une fonction dont le nom suit
Dans ton cas la macro aurait pour nom : "enregistrer_fiche_Click"

Vérife le code de cette macro, car l'erreur doit se trouver la

A moins que "enregistrer_fiche_Click" ne soit pas un nom acceptable (je ne sais pas !!). Essaie également enchangeant son nom

Bon courage

 

[Robert]

Re : application run dans userform différents

Bonjour Mariobross, bonjour le forum,

Peut-être comme ça :

Tu insères une procédure que tu nommes enreg par exemple.
tu récupères le code de enregistrer_fiche_Click et tu le colles dans Public Sub enreg(). Ça devient :

Public Sub enreg()
code code code ......... 
End Sub

après ton code deviendrais :

Private Sub enregistrer_fiche_Click()
Call enreg
End Sub

et dans le 2eme userform2 :

Private Sub OptionButton2_Click()
code........
Call enreg
code.......
End Sub

Édition :

Je ne sasi pas si on peut appeler la procédure Clic dans une Userform. Il faudrait la rendre Public et même comme ça je ne suis pas sûr que ça soit faisable. Je teste...

Bonjour Jacques on s'est croisés.

 

[Robert]

Re : application run dans userform différents

Bonjour Mariobross, Jacques, bonjour le forum,

Au temps pour moi. Ça marche mais il faut que l'événement Click soit Public. Ton code deviendait :

[COLOR=red]Public[/COLOR] Sub enregistrer_fiche_Click()
code code code ......... 
End Sub

dans le 2eme userform2 :

Private Sub OptionButton2_Click()
code........
[COLOR=red]Userform1.enregistrer_fiche_Click[/COLOR]
code.......
End Sub

 

[mariobross]

Re : application run dans userform différents

robert , jacques ,bonjour ,j'ai éssayé cela fonctionne à merveille.merci.