Menu

Comment adapter CheckBox et Label

-
Bonjour a tous, forum bonjour,

<config>Windows 10/ Internet Explorer 11.0</Excel 2007>

Je cherche svp le code VBA pour adapter automatiquement un Label(1) a la longueur de son texte.

--Une fois le Label1 adapter a son texte.

Je souhaiterai également intégrer et adapter automatiquement le Label(1) a la longueur de mon CheckBox(1) .

C'est a dire copier le Label(1) sur le CheckBox(1).

Merci pour votre aide, bonne après midi a vous.

Cdlt Ray
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373
1
Merci
Bonjour,

Tout dépend de la police employée.

un essai à adapter:

Private Sub UserForm_Initialize()
Label1.Caption = "Comment adapter CheckBox et Label"
 Label1.Width = Len(Label1.Caption) * 5  'nbre caractères x 5
 CheckBox1.Caption = Label1.Caption
 CheckBox1.Width = Label1.Width
End Sub

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 54992 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert
0
Merci
Salut CS_Le Pivert

Merci pour ta réponse, c'est sympa,

Pour l'écriture j'utilise en général Arial gras ou pas et Size 10 a 12

Question : On peux svp faire en sorte d'avoir la longueur Width et Height comme cela ça résoudrai pour l'écriture enfin c'est moi qui le dit, pas gagner LOL

Mais je ferai des essais, merci pour ton aide, bonne fin d'après midi.

Cdlt Ray
cs_Le Pivert
Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373 -
essaie ceci:

 Label1.AutoSize = True
Commenter la réponse de dudulleray
0
Merci
Re

merci

j'ai essayer ça agrandi bien le label1 en hauteur mais beaucoup trop grand.

Même punition pour le Checkbox1 bien trop grand

voila

Cdlt Ray
cs_Le Pivert
Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373 -
Avec Arial Gras 12:

Private Sub UserForm_Initialize()
Label1.Caption = "Comment adapter CheckBox et Label dans Userform"
 Label1.Width = Len(Label1.Caption) * 8  'nbre caractères x 8
 CheckBox1.Caption = Label1.Caption
 CheckBox1.Width = Label1.Width
End Sub




@+
Commenter la réponse de dudulleray
0
Merci
Re

Même soucis mais ca étale en longueur le label ou le checkbox

Donc ca dépends de l'écriture du control utiliser plus le nombre de mots a écrire

pourtant il me semble avoir vu sur le forum www.developpez.net un bout de code qui faisait se que je souhaite mais je l'ai pas retrouver

je vais chercher encore en espérant que c'est le bon forum hum

A plus tard et merci

Cdlt Ray
Commenter la réponse de dudulleray