Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour / Bonsoir !
Je souhaite faire prendre option selon mon formulaire (entre plusieurs) qui est actif. Par exemple :
IF usf (actif) est usf1 Then
Fais ceci
ElseIf usf (actif) est usf2 then
Fais cela ,,
Et ...
Que devrais-je faire, s'il vous ?
Si tu tiens absolument à valoriser DIRECTEMENT la TextBox du UserForm qui a appelé le UserForm Calendrier et NE PAS UTILISER la solution triviale de passer par une variable globale d'échange (variable Date ou Objet cible) dont je t'ai indiqué le principe en post #12 et sous forme d'exemple en post #13, il faut passer par une solution NON GÉNÉRIQUE qui effectivement utilise l'objet bien SPÉCIFIQUE: UserFormX.TextBoxY.Value.
A supposer que tes 2 ou 3 ou N UserForms ne sont pas chargés en même temps, et donc qu'un seul UserForm à TextBox soit chargé, j'ai ça qui pourrait t'aider.
VB:
'--------------------------
'Test si UserForm est actif
'--------------------------
Public Function IsUserFormLoaded(UserFormName As String) As...
Si tu tiens absolument à valoriser DIRECTEMENT la TextBox du UserForm qui a appelé le UserForm Calendrier et NE PAS UTILISER la solution triviale de passer par une variable globale d'échange (variable Date ou Objet cible) dont je t'ai indiqué le principe en post #12 et sous forme d'exemple en post #13, il faut passer par une solution NON GÉNÉRIQUE qui effectivement utilise l'objet bien SPÉCIFIQUE: UserFormX.TextBoxY.Value.
A supposer que tes 2 ou 3 ou N UserForms ne sont pas chargés en même temps, et donc qu'un seul UserForm à TextBox soit chargé, j'ai ça qui pourrait t'aider.
VB:
'--------------------------
'Test si UserForm est actif
'--------------------------
Public Function IsUserFormLoaded(UserFormName As String) As Boolean
Dim UsF As Object
For Each UsF In VBA.UserForms
If UsF.Name = UserFormName Then Exit For
Next UsF
If Not UsF Is Nothing Then IsUserFormLoaded = True
End Function
Il faut bien sûr que tu testes SPÉCIFIQUEMENT chacun de tes UserFoms candidats via ce module.
Pourquoi faire simple ?
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.