Discussion :

[rampage92]

Bonjour a tous ,

Je vais pouvoir finir mon projet avant Noel si j arrive a resoudre ce point . Je souhaite lance l'evenement click d un bouton (commandbutton1_click()) dans une procedure publique. Je pense que c est faisable mais je ne vois pas comment faire ... Ca serait un tres beau cadeau de Noel .

Merci d avance

[Invité]

Bonjour,
il te suffis de replacer private par public!

Code :

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

1
2
3
Public Sub CommandButton1_Click()
 
End Sub

et dans ta procédure appeler comme ça!

Code :

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

1
2
3
Sub test()
UserForm1.CommandButton1_Click
End Sub

[rampage92]

Ca ne marche pas vraiment dans la mesure ou ca reinitilialise le userform... J ai essaye call Commandbutton1_click et ca ne marche pas

[Invité]

ça réinitialise ton userform car il est fermer !

il faut modifer l propriété showmodal et ne plus fermer ton userform!

[antonysansh]

Bonjour,

Personnellement je fais toujours l'inverse, Un module avec toutes procédures que devrons exécuter les commandes de mon UF et j'appelle les procédures via les évènements de mon UF.

Dans UF nommé UserForm1 :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Call Module_UserForm1.AfficherContenu
End Sub

Dans un module nommé Module_UserForm1 :

Code :

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

1
2
3
Sub AfficherContenu()
    MsgBox UserForm1.TextBox1.Value
End Sub

[rampage92]

MErci les gars. Je regarderai ca lundi passer de joyeuses fetes de fin d annee