Propriétés Userform

  • Initiateur de la discussion Initiateur de la discussion Thierno
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Propriétés Userform

Bonjour Thierno, bonjour le forum,

Dans Visal Basic Editor ([Alt]+[F11]), tu peux imprimer le code et/ou l'UserForm à l'aide du menu Fichier/Imprimer... Mais si tu désires imprimer uniquement la fenêtre des propriétés je ne vois qu'une impression écran pour te sauver la mise...
 
Re : Propriétés Userform

Bonsoir,
après quelques recherches, j'ai trouvé ceci :
- un code
- une dll

pour pouvoir fonctionner, il faut pouvoir cocher la référence :
TypeLib Information (TLBINF32.DLL)
sous VBA : Outils/Référence

cette DLL n'est disponible (normalement) qu'avec VB6
elle est jointe dans le zip joint (pas de crainte, j'ai essayé, cela fonctionne)
Par contre, un petit bémol, pas moyen d'extraire les propriétés de l'usf en lui-même. Pour un commandbutton, combobox,...ça marche, mais j'ai pas réussi à le faire pour l'usf

la procédure pour installer la DLL est dans le fichier "A lire.txt" dans le zip joint.

Si cela peut te servir
 

Pièces jointes

Re : Propriétés Userform

bonsoir le forum, Thierno, jeanpierre, joss56, Robert

il reste une possiblité, c'est avec un logiciel de retouche photo de faire une capture d'écran, et sélectionner la zone voulue.

bonsoir jeanpierre, tu vas bien?
as tu vu qu'olymp se plaignait de la taille de son classeur ?
 
Re : Propriétés Userform

Bonsoir à tous


Après quelques recherches moi aussi

Voila un moyen par VBA

Code:
'Source:
   'Groupes de discussion : microsoft.public.excel.programming
   'De : "Michel Pierron"
   'Date : Fri, 27 May 2005 09:59:57 +0200
   'Local : Ven 27 mai 2005 08:59
   'Objet : Re: Viewing UserForm code in Notepad
   
Sub UserFormProperties() 
 Dim vbProj As Object, F%, i% 
 Set vbProj = ThisWorkbook.VBProject 
 Set Application.VBE.ActiveVBProject = vbProj 
 Application.Visible = 1 
 Windows(ThisWorkbook.Name).Activate 
 DoEvents 
 F = FreeFile 
 Open "c:\MyFile.txt" For Output As #F 
 On Error Resume Next 
 With ThisWorkbook.VBProject.VBComponents("UserForm1") 
 For i = 1 To .[COLOR=Black][COLOR=black]Properties[/COLOR].Count 
 Print #F, .[COLOR=black]Properties[/COLOR](i).Name & vbTab & .[COLOR=black]Properties[/COLOR](i).Value [/COLOR]
 Next i 
 End With 
 Close #F 
 Set vbProj = Nothing 
 Shell "c:\windows\notepad.exe c:\myfile.txt", 1 
 End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
180
Réponses
18
Affichages
541
Réponses
20
Affichages
630
Réponses
1
Affichages
104
Réponses
3
Affichages
161
Retour