Microsoft 365 Option selon le userform actif
- Initiateur de la discussion A-Jelil
- Date de début
Solution
Dudu2
XLDnaute Barbatruc
Bonjour,
Une fonction... Avant que je ne découvre que le sujet a été créé 3 fois à l'identique.
Cette forme d'insistance relève soit de l'incorrection soit du fake pur et simple.
Une fonction... Avant que je ne découvre que le sujet a été créé 3 fois à l'identique.
Cette forme d'insistance relève soit de l'incorrection soit du fake pur et simple.
Dernière édition:
patricktoulon
XLDnaute Barbatruc
cp4
XLDnaute Barbatruc
Dudu2
XLDnaute Barbatruc
Bonjour @cp4, @patricktoulon,
Vous trouvez que j'ai été injuste avec mon 1er post ?
Si oui, alors désolé d'avoir manifesté ma mauvaise humeur plutôt que de passer mon chemin.
Vous trouvez que j'ai été injuste avec mon 1er post ?
Si oui, alors désolé d'avoir manifesté ma mauvaise humeur plutôt que de passer mon chemin.
patricktoulon
XLDnaute Barbatruc
Bonjour !
Mes excuses pour le retard considérable de ma réaction. Quant au code envoyé, je ne l'ai pas reçu.
Cordialement
cp4
XLDnaute Barbatruc
Boujour,
Pourtant, je viens de récupérer les codes du message privé. C'est la petite enveloppe de l'image ci-dessous (se trouvant en haut à droit de la discussion).
Pas très clair! Mais à supposer que tu cliques sur un bouton.
Dans Module standard
VB:
Option Explicit
Option Compare Text
Public NomUsf
Sub essai_userform()
If NomUsf = "userform1" Then
'???? faire ce qu'on veut
MsgBox "userform1 actif"
ElseIf NomUsf = "userform2" Then
'???? faire ce qu'on veut
MsgBox "userform2 actif"
End If
End SubDans Module UserForm, Code bouton
Code:
Option Explicit
Private Sub CommandButton1_Click()
NomUsf = ActiveControl.Parent.Name
Call essai_userform
End SubEn espérant avoir compris ta demande.
Bonne journée.
Merci pour la proactivité.
Je travaille sur un Userform Calendrier. Au click sur la date, je souhaite qu'un Textbox1 soit renseigné sur le userform actif (userform1 ou userform2, etc...). Voilà mon problème. J'espère avoir été clair.
Cordialement
Je travaille sur un Userform Calendrier. Au click sur la date, je souhaite qu'un Textbox1 soit renseigné sur le userform actif (userform1 ou userform2, etc...). Voilà mon problème. J'espère avoir été clair.
Cordialement
cp4
XLDnaute Barbatruc
Heu...! pas du tout clair. Surtout sans fichier.
Dans ces conditions, personnellement je suis incapable de t'aider.
Bonne continuation.
Vous avez le grand mérite d'avoir voulu.
Merci bien !
Merci bien !
Dudu2
XLDnaute Barbatruc
Pour lancer le UserFormCalendrier il faut bien le faire de quelque part.
Si c'est pour valoriser le UserForm1.TextBox1.Value ou le UserForm2.TextBox1.Value c'est qu'on part de ces Controls (double-clic ou clic) pour afficher le UserFormCalendrier et donc on sait donc quoi valoriser.
A moins que le UserForm Calendrier soit "suspendu dans l'air" en permanence ce qui est une approche plutôt étrange et exige que UserForm1, UserForm2 et UserFormCalendrier soient lancés en vbModeless pour pouvoir basculer de l'un vers l'autre. D'un point de vue ergonomique c'est aussi un peu le chaos.
Dans le 1er cas, ce n'est pas le code du UserFormCalendrier qui valorise directement le UserForm1.TextBox1.Value ou le UserForm2.TextBox1.Value .
Il faut passer par une variable globale dans un Module:
VB:
Public DateCalendrier as date
Code:
DateCalendrier = <date choisie dans le calendier>
Unload Me
Code:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserFormCalendrier.Show
Me.TextBox1.Value = DateCalendrier
End Sub
Dernière édition:
Dudu2
XLDnaute Barbatruc
Sur ce modèle avec plus d'options mais gardant ce principe de base pour valoriser la date dans une TextBox:
- Soit à partir d'une variable globale dans un Module destinée à contenir la date,
- Soit à partir d'une variable globale dans un Module destinée à contenir l'Objet cible à valoriser.
- Soit à partir d'une variable globale dans un Module destinée à contenir la date,
- Soit à partir d'une variable globale dans un Module destinée à contenir l'Objet cible à valoriser.
Dudu2
XLDnaute Barbatruc
Un autre méthode pour échanger des valeurs de variables entre des Modules et/ou des UserForms est d'utiliser le Dictionary. Mais là aussi il faut qu'il soit Public et créé dans un Module de manière à le rendre disponible au-delà de l'existence des UserForms.
Le Dictionary permet même de stocker des Objets sous réserve d'une petite manip assez particulière et si ça t'intéresse j'ai créé un code qui l'interface pour ce faire.
Le Dictionary permet même de stocker des Objets sous réserve d'une petite manip assez particulière et si ça t'intéresse j'ai créé un code qui l'interface pour ce faire.
Merci pour votre généreuse disponibilité.
J'explique davantage mon souci.
J'ai déjà un CALENDRIER sous forme de Userform qui se lance convenablement à partir du Textbox1_DblClick.
J'utilise naturellment le même CALENDRIER pour plusieurs USERFORM. Je souhaite pouvoir valoriser le Textbox du Userform actif.
Ce qu'il me faut, dans un Calendrier_Click, c'est plutôt quelque chose qui aboutit à:
UserFormACTIF.TextBox1.Value = Calendrier.value
Merci bien.
Discussions similaires
- Question
- Question
- Résolu(e)
- Résolu(e)
