Insérer texte à partir d'une checkbox

Bonjour à tous,

Je souhaiterai à partir d'une checkbox ou un bouton option afficher un texte prédéfinit dans une cellule.

Si admettons je coche ma checkbox dans mon USF je souhaiterai que dans ma feuille il y soit inscrit "Validé".

Merci pour les réponses que vous pourrez m'apportez.

Salut Ldr33

Le principe, sur l'évènement Click de ton checkbox, si la valeur du checkbox est vrai inscrire VRAI, sinon inscrire FAUX

Sub CheckBox1_OnClick()
  If Me.CheckBox1.Value = true Then
    Sheets("NomFeuille").Range("A1").Value = "Validé"
  Else
    Sheets("NomFeuille").Range("A1").Value = ""
  Endif
End Sub

A+

Bonsoir,

Par rapport à la commande CheckBox qui fonctionne très bien, dans mon application je souhaiterai que dans mon cas présent faire afficher "Valider" dans la case correspondante au fur et à mesure que je le sélectionne via mon USF.

Merci de l'aide que vous pourrez m'apporter.