Comment adapter CheckBox et Label

dudulleray -  
 dudulleray -
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
A voir également:

4 réponses

Réponse 1 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

1
Réponse 2 / 4
dudulleray
 
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
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
essaie ceci: 

 Label1.AutoSize = True
0
Réponse 3 / 4
dudulleray
 
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
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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



@+
0
Réponse 4 / 4
dudulleray
 
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
0

Discussions similaires

Commande chargeur Apple
Minouche -
Utilisateur anonyme -

4 réponses
Problème port AV Télé TCL 43C725
Bastien1649 -
Audrey -

18 réponses
Excel ajustement auto taille de la cellule
Mélanie -
Elisabeth -

22 réponses
ajuster hauteur des cellules excel au texte ?
TOT127 -
Mst -

11 réponses
Plug ASUS : que signifie "check system power error" ?
Shimrhod -
Jo -

49 réponses