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

4 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
  2. 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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      essaie ceci: 

       Label1.AutoSize = True
      0
  3. 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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
  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

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
Excel : ajuster taille du texte à la cellule
syl20-11 -
Patrice33740 -

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

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

4 réponses