Changer la police par défaut [A Faire] [Résolu]

[clodius46]

Bonjour à tous

Dans un UserForm contenant plusieurs contrôles, est-il possible de changer la police par défaut de la propriété Caption, de tous les contôles en même temps ?
Merci d'avance

[Heureux-oli]

Si tu nomes tous tes contrôles de la même façon, à savoir lblxxxxx, dans une boucle

Code :

1
2
3
4
5
6
 
For each ctrl in me.controls
    If Left(ctrl.name, 3) = "lbl" then
        ctrl.font.size = 12
    end if
Next ctrl

[clodius46]

J'ai un peu de mal à suivre:
Si je met par exemple :
- 1 CheckBox1
- 1 ComboBox1 et 1 ComboBox2
- 1 Label1
Cela donne quoi pour le code et à quel endroit je le met ?

[Heureux-oli]

Excuse moi, je n'avais pas vu que tu demandais pour tous les contrôles, j'avais cru comprendre que c'était juste pour les étiquettes.
Je n'ai pas cherché si les contrôles avait des catpions.
Je te réponds dans la journée.

[Heureux-oli]

Envoyé par clodius46

Bonjour à tous

Dans un UserForm contenant plusieurs contrôles, est-il possible de changer la police par défaut de la propriété Caption, de tous les contôles en même temps ?
Merci d'avance

Il faut le faire lors de la création du User Form.

Dans la propriété Font du User Form, il suffit de changer et par défaut, tout ce que est sur le formulaire va prendre ce font par défaut.
Malheureusement, ça ne fonctionne pas pour les contrôles déjà présents.

tu peux aussi utiliser ce code sur ton UserForm

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Activate()
Dim ctrl As Control
For Each ctrl In Me.Controls
 
    ctrl.Font.Size = 16
 
Next ctrl
 
End Sub

Tu remplace 16 par la valeur de ton choix et lors de l'ouverture, tous les contrôles vont prendre cette valeur.

[clodius46]

Bcp Heureux-oli pour toutes tes réponses.. J'ai une autre discussion à ouvrir donc à très bientôt.