Discussion :

[forum2015]

Bonjour tout le monde,

Je sais qu'il est possible, dans un UserForm, de régler la taille d'un bouton à l'aide des propriétés (réglages manuels). Mais existerait-il une commande permettant de régler cette taille avec une ligne de code. Par ex, un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandButton1.Size = 50

Car dans mon formulaire, j'ai beaucoup de fenêtres avec beaucoup de boutons. Je souhaiterais que chaque bouton ait la même taille mais c'est assez agacant de régler cela à la main à chaque fois ^^

Merci pour vos suggestions

[Drowan]

Tes boutons ont des propriétés que tu peux remplir pour en définir la taille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CommandButton.Height = TaHauteur
'Défini la hauteur de ton bouton
CommandButton.Width = TaLargeur
'Défini la largeur de ton bouton

Ces tailles sont en points

(D'ailleurs n'importe quel contrôle de ton formulaire a ces propriétés)

[Invité]

Salut,

De plus si tu souhaites boucler sur l'ensemble des contrôles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub UserForm_Initialize()
  Dim ctl As Control
  For Each ctl In Me.Controls
    With ctl
      If TypeName(ctl) = "CommandButton" Then
        .Width = 50
        .Height = 30
      End If
    End With
  Next ctl
End Sub

[forum2015]

Super sa ! Merci bc, je vais essayer mais si sa marche (ce dont je ne doute pas), c'est parfait.

Par ailleurs je me posais précisément la question de comment boucler sur des TextBox ou des Labels dans un userform

Dans ton code SmallFlower, comment excel comprend-il que chaque ctl de l'userform est un label ?

Par ailleurs, comment faire pour que la boucle n'agisse que sur une seule page dans le cas d'un multipage ? J'ai beau cherché sur internet, je ne trouve pas de solution.

Merci

Pour être honnete avec toi, je pense avoir de grosse lacune concernant les UserForms mais je n'ai pas trouvé de bon tutoriels pour apprendre (excel-pratique ou developpez.com ne m'ont pas aidé). Connaitrais tu un bon tutoriel ?

[Invité]

Salut,

Le code suivant boucle sur les contrôles appartenant au premier onglet du multi-page et agit sur les propriétés propres à chaque contrôle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub UserForm_Initialize()
  Dim ctl As Control
  For Each ctl In Me.MultiPage1.Pages(0).Controls
    With ctl
        Select Case TypeName(ctl)
          Case "CommandButton"
            .Width = 50
            .Height = 30
          Case "Label"
            .Width = 40
            .Height = 20
          Case "TextBox"
            .Width = 30
            .Height = 10
        End Select
    End With
  Next ctl
End Sub

Un exemple est disponible en PJ.

Pour info:
http://silkyroad.developpez.com/VBA/UserForm/
http://silkyroad.developpez.com/VBA/ControlesUserForm/

[forum2015]

Super tout sa !
Merci bc titico, tu gères pour le coup.

Je vais regarder tout sa en détails (ton code marche niquel par ailleurs) !