Sir Psymon
Messages postés13Date d'inscriptionsamedi 11 novembre 2000StatutMembreDernière intervention13 janvier 2008
-
13 janv. 2008 à 17:24
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
13 janv. 2008 à 20:26
Bonjour à tous !
Dans un Userform, j'ai un label qui affiche des messages différents lorsque l'on clique dessus.
Lorsque je tape label_click dans le code des boutons de ce même userform, le texte s'actualise comme prévu.
J'ai un userform Accueil dans lequel s'affiche ce label.
J'ai un autre userform Login qui apparait au dessus d'Accueil comme une petite popup.
Cet USF login a un bouton ok et annuler. Je souhaite pouvoir générer le click sur le label du userform Login en background depuis le bouton OK de l'USF login qui se trouve en focus.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 13 janv. 2008 à 18:24
Salut
Tu parles de UserForm : Ca c'est de l'appellation de Excel ou Word.
Si oui, c'est du VBA, pas du VB6 : Confirme-le que je change la catégorie de la question.
Sinon, le problème reste à peu près le même :
Un click sur un Label, pourquoi pas, en général, c'est un bouton.
Récapitulatif :
Depuis le bouton cmdOk de ta forme frmLogin, lancer un monLabel_Click sur la forme frmAccueil
Solution :
- Dans le code de frmAccueil, rendre "Public" (au lieu de Private) la Sub monLabel_Click
- Dans le bouton cmdOk, simplement lancer Call frmAccueil.monLabel_Click
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 13 janv. 2008 à 18:29
salut,
ton évènement ressemble à :
private sub label_click()
....
end sub
remplace "private" par "public" et dans l'évènement click de ton bouton sur accueil tu fais call login.label_click()
ps : tu es en VBA, merci de faire attention à la rubrique dans laquelle tu postes
<li> Vous êtes ici : [infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_DIVERS_220.aspx Divers] / [infomsgt_DEBUTANTS_226.aspx Débutants] / Lancer un évènement à distance</li>
je modifie
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp