Changer la police par défaut

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

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

---

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 ?

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.

Citation:

---

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.

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