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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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
Tu remplace 16 par la valeur de ton choix et lors de l'ouverture, tous les contrôles vont prendre cette valeur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Bcp Heureux-oli pour toutes tes réponses.. J'ai une autre discussion à ouvrir donc à très bientôt.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager