Sujet Précédent Sujet Suivant

Comment adapter CheckBox et Label

Fermé
dudulleray - Modifié le 15 déc. 2018 à 15:00
 dudulleray - 15 déc. 2018 à 17:31
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

4 réponses

Réponse 1 / 4
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 déc. 2018 à 15:23
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
15 déc. 2018 à 16:17
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
15 déc. 2018 à 16:22
essaie ceci: 

 Label1.AutoSize = True
0
Réponse 3 / 4
dudulleray
15 déc. 2018 à 16:43
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 15 déc. 2018 à 17:04
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
Modifié le 15 déc. 2018 à 17:31
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

VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...
fannoche35 -
fannoche35 -

4 réponses
Problème de pilote qualcomm atheros qca9377 wireless network adapter
Saly972 -
billmaxime -

52 réponses
Commande chargeur Apple
Minouche -
Utilisateur anonyme -

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

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

22 réponses