OVH Cloud OVH Cloud

Imprimer les propriétés

13 réponses
Avatar
Caroline L.
Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline

10 réponses

1 2
Avatar
Michel Pierron
Bonsoir Caroline L.
Regarde si dans les références, tu as la possibilité de cocher:
TypeLib Information (TLBINF32.DLL)

Si oui, coche cette référence et adapte cette procédure au contrôle dont tu
veux lister les propriétés
Exemple avec un CommandButton:

Private Sub CommandButton1_Click()
Dim oInfo As InterfaceInfo
Dim oMember As MemberInfo
Dim sProp$, i&, sVal$
Set oInfo = InterfaceInfoFromObject(Me.CommandButton1)
Cells.ClearContents
On Error Resume Next
For Each oMember In oInfo.Members
If oMember.InvokeKind = 4 Then
sProp = oMember.Name
sVal = CallByName(Me.CommandButton1, sProp, VbGet)
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = oInfo.Name & "-" & sProp & " = " & sVal
End If
Next
End Sub

MP




"Caroline L." a écrit dans le message de news:

Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline




Avatar
Caroline L.
Bonsoir Michel,

Malheureusement non je n'ai pas TypeLib Information (TLBINF32.DLL)
As-tu une autre solution ?

Merci !

Caroline


"Michel Pierron" a écrit dans le message de news:
#
Bonsoir Caroline L.
Regarde si dans les références, tu as la possibilité de cocher:
TypeLib Information (TLBINF32.DLL)

Si oui, coche cette référence et adapte cette procédure au contrôle dont
tu

veux lister les propriétés
Exemple avec un CommandButton:

Private Sub CommandButton1_Click()
Dim oInfo As InterfaceInfo
Dim oMember As MemberInfo
Dim sProp$, i&, sVal$
Set oInfo = InterfaceInfoFromObject(Me.CommandButton1)
Cells.ClearContents
On Error Resume Next
For Each oMember In oInfo.Members
If oMember.InvokeKind = 4 Then
sProp = oMember.Name
sVal = CallByName(Me.CommandButton1, sProp, VbGet)
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = oInfo.Name & "-" & sProp & " = " & sVal
End If
Next
End Sub

MP




"Caroline L." a écrit dans le message de news:

Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline








Avatar
Caroline L.
Re-bonsoir Michel,

je viens d'avoir une idée. Je pourrais placer l'affichage correctement (de
la fenêtre des propriétés) et faire un PRINT SCREEN ?? mais mon bouton
Print Scrn ne semble pas fonctionner. Est-ce que je dois faire Alt ou un
autre bouton avec le Print Scrn ?

Caroline


"Michel Pierron" a écrit dans le message de news:
#
Bonsoir Caroline L.
Regarde si dans les références, tu as la possibilité de cocher:
TypeLib Information (TLBINF32.DLL)

Si oui, coche cette référence et adapte cette procédure au contrôle dont
tu

veux lister les propriétés
Exemple avec un CommandButton:

Private Sub CommandButton1_Click()
Dim oInfo As InterfaceInfo
Dim oMember As MemberInfo
Dim sProp$, i&, sVal$
Set oInfo = InterfaceInfoFromObject(Me.CommandButton1)
Cells.ClearContents
On Error Resume Next
For Each oMember In oInfo.Members
If oMember.InvokeKind = 4 Then
sProp = oMember.Name
sVal = CallByName(Me.CommandButton1, sProp, VbGet)
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = oInfo.Name & "-" & sProp & " = " & sVal
End If
Next
End Sub

MP




"Caroline L." a écrit dans le message de news:

Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline








Avatar
LSteph
Bonsoir,
Fait ton imprime écran puis bascule dans une feuille vide et Ctrl+V pour
coller

lSteph
"Caroline L." a écrit dans le message de news:

Re-bonsoir Michel,

je viens d'avoir une idée. Je pourrais placer l'affichage correctement (de
la fenêtre des propriétés) et faire un PRINT SCREEN ?? mais mon bouton
Print Scrn ne semble pas fonctionner. Est-ce que je dois faire Alt ou un
autre bouton avec le Print Scrn ?

Caroline


"Michel Pierron" a écrit dans le message de news:
#
Bonsoir Caroline L.
Regarde si dans les références, tu as la possibilité de cocher:
TypeLib Information (TLBINF32.DLL)

Si oui, coche cette référence et adapte cette procédure au contrôle dont
tu

veux lister les propriétés
Exemple avec un CommandButton:

Private Sub CommandButton1_Click()
Dim oInfo As InterfaceInfo
Dim oMember As MemberInfo
Dim sProp$, i&, sVal$
Set oInfo = InterfaceInfoFromObject(Me.CommandButton1)
Cells.ClearContents
On Error Resume Next
For Each oMember In oInfo.Members
If oMember.InvokeKind = 4 Then
sProp = oMember.Name
sVal = CallByName(Me.CommandButton1, sProp, VbGet)
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = oInfo.Name & "-" & sProp & " = " & sVal
End If
Next
End Sub

MP




"Caroline L." a écrit dans le message de news:

Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline












Avatar
Caroline L.
Bonsoir LSteph,

merci beaucoup pour ta précision !
...maintenant je peux imprimer mes propriétés de façon "détournée" mais le
but est atteint.

Bonne soirée

Carolin


"LSteph" a écrit dans le message de news:

Bonsoir,
Fait ton imprime écran puis bascule dans une feuille vide et Ctrl+V pour
coller

lSteph
"Caroline L." a écrit dans le message de news:

Re-bonsoir Michel,

je viens d'avoir une idée. Je pourrais placer l'affichage correctement
(de


la fenêtre des propriétés) et faire un PRINT SCREEN ?? mais mon bouton
Print Scrn ne semble pas fonctionner. Est-ce que je dois faire Alt ou un
autre bouton avec le Print Scrn ?

Caroline


"Michel Pierron" a écrit dans le message de
news:


#
Bonsoir Caroline L.
Regarde si dans les références, tu as la possibilité de cocher:
TypeLib Information (TLBINF32.DLL)

Si oui, coche cette référence et adapte cette procédure au contrôle
dont



tu
veux lister les propriétés
Exemple avec un CommandButton:

Private Sub CommandButton1_Click()
Dim oInfo As InterfaceInfo
Dim oMember As MemberInfo
Dim sProp$, i&, sVal$
Set oInfo = InterfaceInfoFromObject(Me.CommandButton1)
Cells.ClearContents
On Error Resume Next
For Each oMember In oInfo.Members
If oMember.InvokeKind = 4 Then
sProp = oMember.Name
sVal = CallByName(Me.CommandButton1, sProp, VbGet)
i = i + 1
Cells(i, 1) = i
Cells(i, 2) = oInfo.Name & "-" & sProp & " = " & sVal
End If
Next
End Sub

MP




"Caroline L." a écrit dans le message de news:

Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline
















Avatar
jps
aurais-tu changé de... propriétés pour ne pas dire d'attributs?
jps

"Caroline L." a écrit dans le message de
news:

Carolin


Avatar
LSteph
Bonsoir Jean Paul,
A part le contournement proposé...
Peut-être quelqu'un sait-il comment appeler la "collection " des propriétés
d'un objet sans avoir à les désigner.
On pourrait ainsi boucler sur les contrôles d'un userform et dresser la
liste des propriétés
dans une feuille:
Contrôle .Propriété. Valeur

je trouve la question de Caroline intéressante car plusieurs fois j'aurais
souhaité cette possibilité dans l'édition d'un projet.

lSteph

"jps" a écrit dans le message de news:
O4$
aurais-tu changé de... propriétés pour ne pas dire d'attributs?
jps

"Caroline L." a écrit dans le message de
news:

Carolin





Avatar
Jacques93
Bonsoir, Caroline

dans quel but veux tu imprimer ces informations ?

Caroline L. wrote:
Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline





--
Cordialement,

Jacques.

Avatar
Caroline L.
oups..... faute de frappe !

bonne soirée jps

"jps" a écrit dans le message de news:
O4$
aurais-tu changé de... propriétés pour ne pas dire d'attributs?
jps

"Caroline L." a écrit dans le message de
news:

Carolin





Avatar
Caroline L.
Bonsoir Jacques,

J'ai créer un userform sur l'ordinateur A et je sais que j'aurai à refaire
ce userform sur un 2e ordinateur (ordinateur B).
Donc si je peux imprimer les propriétés, j'aurai juste à vérifier avec ma
liste papier quelles sont les propriétés qui ont changées.


C'est également un "certain" back-up... j'aime imprimer le code et
j'aimerais aussi en faire autant avec les propriétés.

Caroline


"Jacques93" a écrit dans le message de
news: #
Bonsoir, Caroline

dans quel but veux tu imprimer ces informations ?

Caroline L. wrote:
Bonjour à tous,

à partir de la fenêtre de VBA (en ALT+F11), je désire imprimer les
propriétés de quelques contrôles créés dans un userform.

Je fouille mais je ne trouve pas.

Merci pour vos indications.

Caroline





--
Cordialement,

Jacques.



1 2