Changer le texte d'une checkbox si coché

Bonjour à tous,

Existe-t-il un moyen de changer le texte d'une checkbox si elle est cochée?

Par exemple, si la checkbox n'est pas cochée, le texte de la checkbox est : "pas fait". Si on coche la checkbox, le texte passe en "fait".

D'après mes recherches on pourrait appliquer une MFC ce qui impliquerait un changement de couleur mais je ne trouve rien par rapport à un changement du texte de la checkbox. Pensez-vous que ce soit possible? Si oui, des pistes?

Merci

Bonjour Pincho,

Avec ce code à mettre dans le code de l'UserForm :

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
    CheckBox1.Caption = "FAIT"
    Else
    CheckBox1.Caption = "PAS FAIT"
    End If
End Sub

Cordialement,

IB

Bonjour,

Ou plus simplement :

Private Sub CheckBox1_Click()
    With CheckBox1
        .Caption = IIf(.Value, "Fait", "Pas fait")
    End With
End Sub

Cordialement.

Messieurs merci pour votre input. Les deux méthodes fonctionnent très bien.

Comme je dois créer un formulaire avec plus d'une centaine de checkboxes, existe-t-il un moyen de répliquer les checkboxes et le code qui se met à jour automatiquement checkbox1, checkbox2, etc?

Ou bien dois-je manuellement updater le code pour chaque checkbox?

Encore merci

Re,

Quand on me parle d'un nombre de CheckBoxes qui dépasse quelques unités, là je pense toujours que c'est une mauvaise idée, et qu'il vaut mieux prendre un peu de temps pour réfléchir comment faire autrement !

Répliquer des codes de contrôles ? On ne fait jamais ça si on code un peu correctement ! On renvoie sur une procédure commune... ou le cas échéant on passe par un module de classe.

Cordialement.

Pointilleux comme d'habitude mais j'apprécie ces commentaires-là.

Merci pour les pistes données. Je ferais les recherches nécessaires.

Bonne journée