[VBA E] recupérer les propriétés d un userform

j ai besoin pour un projet de recupérer entre autre la propriété caption
de plusieurs user.
j ai essayé ceci

dans un module standard

Code:

---

1 2 3

sub recup(us as userform) msgbox us.caption

---

dans le userform "accueil"

Code:

---

1 2 3

.... sur un evenement par exemple call recup(accueil)

---

j ai essayé tout les passages d argument possible byval , byref ....
j ai essayé d instancié la feuille accueil en un objet userform

Code:

---

1 2 3

dim userf1 as userform set userf1 = accueil

---

bref sans resultat


merci pour votre aide

Bonsoir,

Pas sur d'avoir bien compris, dans un module standard:

Code:

---

1 2 3 4 5 6 7

Sub Test() MsgBox GetCaption(UserForm1) End Sub Function GetCaption(Uf As UserForm1) As String GetCaption = Uf.Caption End Function

---

Si tu veux passer différents formulaires à la fonction déclare Uf avec le type Object.

Dans le module d'un userform

Code:

---

MsgBox Me.Caption

---

Sinon pour instancier un userform, utilise New:

Code:

---

1 2 3

Dim userf1 As UserForm1 Set userf1 = New UserForm1 MsgBox userf1.Caption

---

Meme chose, si tu veux instancier différents formulaires avec la meme variable déclare la avec le type Object.

Cordialement,

Tirex28/

bonjour,
je me certainement mal exprimé.
j ai un projet qui contient 6 userforms et bientot un peu plus.

lors de l initialisation de chaque feuille je voudrais dimensionner le user au format de l application et empecher la fermeture des user en supprimant les croix.

j utilise donc des function api
trouvé dans divers forum (je ne sais plus les auteurs mais les remercie qd meme)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Declare Function GetWindowLongA Lib "User32" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long   Private Declare Function SetWindowLongA Lib "User32" _ (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long   Private Declare Function FindWindowA Lib "User32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long   Function user() hwnd = FindWindowA(vbNullString, Me.Caption) exlong = GetWindowLongA(hwnd, -16) If exlong And &H880000 Then SetWindowLongA hwnd, -16, exlong And &HFF77FFFF zfactor = 100 * CInt(Application.Width / Me.Width) If zfactor > 400 Then zfactor = 400 Me.Width = Application.Width Me.Height = Application.Height Me.Zoom = zfactor End Function Sub user_ss_croix() Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _ "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End Sub

---

en utilsant celle ci dans le userform ,le resultat est correcte

au lieu de faire un copier collé dans chaque userform pour utiliser ses fonction

j aurai voulu passer l objet userform en argument pour les functions
sachant que la function findwindows attends un string
"ByVal lpWindowName As String" et sachant que j ai besoin de recupérer les propriétés des userforms (entre autre le .caption) pour le handle

merci

Place tes fonctions dans un module standard, tu y auras accès depuis tes différents userform... si j'ai bien compris ta "problématique" ;)

bonjour
j ai deja essayé
mais j ai ce message d erreur

Citation:

---

erreur de compilation:
utlisation du mot clé me

---

a cet endroit

Code:

---

1 2 3

Function user() hwnd = FindWindowA(vbNullString, Me.Caption)

---

il me semble que le me doit etre utlisé uniquement a l interieur du userform

Pour empêcher l'utilisation des croix fermant les userform, tu peux faire Cancel = True dans l'événement Userform_Queryclose
Si ça t'intéresse, tu peux tester un userform tout nu et en mettant un bouton dedans

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Quitter   Private Sub CommandButton1_Click() Quitter = False Unload Me End Sub   Private Sub UserForm_Initialize() Quitter = True End sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = Quitter End Sub

---

Ainsi tu peux quitter l'userform par le bouton, pas par la croix, et faire dans le bouton ou dans QueryClose le test que tu souhaites pour verrouiller ou non cette fermeture.
A toutes finc utiles

NB - Mais la croix reste visible

Bonsoir,

Dans un module standard:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Déclaration des API Private Declare Function FindWindowA Lib "User32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long   'Fonction utilisant les API pour redimensionner un formulaire Function ResizeUserForm(UForm As Object) Dim UCaption As String UCaption = UForm.Caption Hwnd = FindWindowA(vbNullString, UCaption) 'La suite à adapter End Function

---

Le parametre est de type Object pour accepter aussi bien UserForm1 que UserForm99999.

Dans chaque Userform:

Code:

---

1 2 3

Private Sub UserForm_Initialize() ResizeUserForm Me End Sub

---

Cordialement,

Tirex28/

bravo et merci tirex 28

il fallait passer l objet userform en tant qu object

donc pour ceux qui desire dimensionner les userforms au dimension de l application et adapter le zoom des controles => function resizeUserform

pour eviter la fermeture des userforms (sans oublier un bouton pour pouvoir le fermer) => Function sup_croixUserForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'dans un module standard Function ResizeUserForm(UForm As Object) Dim hwnd As Long, exlong As Long, zfactor As Integer Dim UCaption As String   et encore une fois merci a tous   UCaption = UForm.Caption hwnd = FindWindowA(vbNullString, UCaption) exlong = GetWindowLongA(hwnd, -16) If exlong And &H880000 Then SetWindowLongA hwnd, -16, exlong And &HFF77FFFF zfactor = 100 * CInt(Application.Width / UForm.Width)   If zfactor > 400 Then zfactor = 400 UForm.Width = Application.Width UForm.Height = Application.Height UForm.Zoom = zfactor End Function Function sup_croixUserForm(UForm As Object) Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _ "X", "D") & "Frame", UForm.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End Function   'dans chaque userform Private Sub UserForm_Initialize() ResizeUserForm Me sup_croixUserForm Me

---