Supprimer pointillés dans mon UserForm1.CheckBox

Salut a tous et toutes, Salut forum.

J'écris dans un CheckBox.Caption et je souhaiterai svp savoir comment on peux supprimer les pointillés qui encadre

ce que l'on écrit dans la Caption d'un CheckBox, si cela reste possible bien entendu.

Voir svp photo ci-jointe la phrase "Insérer une ligne" est entourer d'un cadre et j'aimerai supprimé ces pointillés.

J'ai penser au Focus a supprimer dans la propriété du CheckBox mais il ni a pas d'option "Focus" du coup, je ne sais

pas faire ce code qui permets d'ôter le Focus., sous réserve que j'ai bon.

Merci pour votre aide, une bonne journée a vous et merci.

Cdlt Raymond

Bonjour Raymond,

J'essaie de mettre les pointillés, sans succès.

je ne sais pas comment tu as fait.

peux tu joindre ton fichier ?

Bonjour Ray, Isabelle,

je te retourne ton fichier modifié :

Salut dhany,

je venais d'envoyer mon fichier mais ca pas marcher les messages se sont croisser

donc je n'ai pas recu le fichier modifier

je le renvoi

Cdlt Ray

ton cadre en pointillés est indissociable de la checkbox : il entoure le libellé de la checkbox, et y'a aucun paramètre pour cette bordure : ni pour pouvoir l'enlever avec « aucune bordure », ni pour changer la couleur de cette bordure : on aurait pu ruser en mettant une bordure du même rouge que le fond (rouge / rouge ➯ bordure invisible) ; la seule chose que j'ai pu faire est de rendre ta bordure à peine un peu plus discrète (et j'ai rien d'autre à proposer).

dhany

Bonjour

plein de fautes

pour le cadre veux dire que tu a le focus

'Private Sub UserForm1_initialise()
Private Sub UserForm_Initialize()
    CheckBox1.TabStop = False
'          With UserForm1
'          ProgressBar1.Visible = False                   'Non visible
'          CheckBox1.Visible = False: CheckBox1.Visible = True

'   End With
End Sub

A+

Maurice

Salut archer, dhany, i20100

Merci pour ta réponse et pour le code

ca fonctionne presque les pointillés ne sont plus visible a l'ouverture

mais quand je clic la checkbox le programme se déroule puis reviens a l'initial mais les pointillés aussi

pour les fautes oui je sais désoler j'ai pris une copie

merci pour ton aide

Cdlt Ray

ah oui, j'ai pas pensé au cadre du focus, mais dans mon fichier, il est quand même plus discret, car moins proche du texte, et plus proche du bord du grand cadre rouge.

dhany

Bonjour à tous,

@Ray,

J'ai ajouté un bouton sur le UF et mis son TabIndex à 1

pour CheckBox le TabIndex à 4

Private Sub UserForm1_initialise()
Me.CommandButton1.SetFocus
End Sub

Private Sub CheckBox1_Change()

         If Not CheckBox1 Then Exit Sub

               If CheckBox1.Value = True Then
                  CheckBox1.BackColor = vbRed
                  CheckBox1.BackColor = vbGreen

                  Label1.Visible = True
                  Label2.Visible = True
           Call Barre_Progression1

              If CheckBox1.Value = True Then
                 CheckBox1.BackColor = vbRed
                 CheckBox1 = False
Application.Wait (Now + TimeValue("00:00:05"))             'Pause puis on ferme
                 Label1.Visible = False
                 Label2.Visible = False
       End If
         End If
Me.CommandButton1.SetFocus
End Sub

Bonjour à tous,

Une autre solution consiste à supprimer le texte de la CheckBox et placer un Label dessus :

Il faut ensuite ajouter un événement qui simule le clic de la CheckBox :

Private Sub Label_exemple_Click()
    CheckBox1 = Not CheckBox1
End Sub

Et plus de pointillés puisque plus de texte dans la CheckBox

Cordialement,

Bonjour Sébastien,

et bravo !!!

dhany

Bonjour Dhany,

dhany a écrit :

Bonjour Sébastien,

et bravo !!!

dhany

SAlut a tous,

Merci beaucoup pour vos réponses, j'ai fais des essais c'est bon pour moi.

Je mets a jour mon fichier puis ensuite je posterai le résultat.

A plus tard et pleins de merci a vous pour votre aide

Cdlt Ray

Bonsoir a tous, forum bonsoir,

Voila le résultat réussi grâce a toutes vos infos qui m'ont permis de réussir.

Voir svp le fichier ci-joint, j'ai mis un commentaire, bicause une formule que je ne retrouve plus.

Merci pour votre aide et bon W-end a tous.

PS: on pourrai peut être optimiser le code si possible

Cdlt Ray

Bonjour,

C'est la propriété AutoSize

Salut Theze,

Merci pour ta réponse,

j'ai déjà essayer "autosize" mais ca agrandi le label en hauteur (Heigth) beaucoup trop grand.

Merci et bonne soirée a toi

Cdlt Ray

Bonjour,

Et bien tu fais AutoSize puis ensuite te redéfini la hauteur :

Dim H As Single

H = Label1.Height
Label1.AutoSize
Label1.Height = H

Salut Theze,

Merci pour ta réponse,

J'ai un message d'erreur "utilisation incorrecte de la propriété" Autosize se mets en jaune

j'ai déplacer le code mais rien ni fait toujours cette erreur

Label1.AutoSize

Maerci a toi et bon dimanche.

Cdlt Ray

Bonjour,

Désolé, je n'avais pas testé, il faut remettre AutoSize à False pour pouvoir régler la taille par la suite :

Dim Largeur As Single
Dim Hauteur As Single

With Label1

    Hauteur = .Height
    .AutoSize = True
    Largeur = .Width
    .AutoSize = False
    .Height = Hauteur
    .Width = Largeur

End With

le code ci-dessus mémorise la hauteur puis rend le dimensionnement automatique, mémorise la nouvelle largeur, supprime le dimensionnement automatique et redéfini la largeur

Salut theze,

Merci pour ta réponse,

J'ai essayer de faire des essais mais je ne parviens pas a coder correctement

je n'ai pas trop compris comment ca fonctionne, pourtant ca me parait facile

et je trouve pas

Je joint un fichier pour essai

Bonne après midi a toi et merci

Cdlt Ray