crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200629 16 févr. 2006 à 14:34
Salut, oui c'est possible avec une boucle For each sur la propriétés Controls de ta form
Dim Ctrl As Control
For Each Ctrl in MaForm.Controls
If Ctrl.Name Like "Reference*" Then Ctrl.Font = "courier new"
Next
Avec cette boucle, je modifie la fonte de tous les controles de la form MaForm dont le nom commence par "Reference" (Attention au pb de majuscule/minuscule : Si pb de ce coté, faire un truc du genre If LCase$(Ctrl.Name) Like "reference*" ...)
PCPT
Messages postés13280Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201848 16 févr. 2006 à 16:11
salut,
pour info, au cas ou tu chagerais ces propriétés par envie (j'entend
là, pas une modification par/pour l'utilisateur), dans un nouveau
projet, tu peux modifier la Font de la Form. ainsi, tous les contrôles
prennent par défaut cette Font (posés après la modif).
2e point, tu peux aussi sélectionner tes contrôles en édition (tous
ceux désirés) et modifier en une fois dans les propriétés....