Insérer un texte dans une cellule quand Case Cochée (activeX

Bonjour,

Est-ce qu'il est possible de faire ceci :

dans la feuil1

• insérer le mot FAUX dans la cellule C18 lorsque la case à cocher CheckBox1 (créée en activeX) n'est pas cochée
• insérer le mot VRAI dans la cellule C18 lorsque la case à cocher CheckBox1 (créée en activeX) a été cochée

Merci de votre aide.

Bonjour,

Procédure à copier dans le module de la feuille concernée :

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Range("C18") = "VRAI"
    Else
        Range("C18") = "FAUX"
    End If
End Sub

A+

Bonsoir,

Bonsoir frangy,

Private Sub CheckBox1_Click()
    [C18] = CheckBox1.Value
End Sub

Merci à vous. Je vais tester les codes dès lundi.

Bonjour,

Désolée, mais cela ne fonctionne avec aucun des 2 codes.

En fait, l'idée, c'est d'éviter d'aller dans les propriétés de la CheckBox et de compléter LinkCell.

Bonjour,

Désolée, mais cela ne fonctionne avec aucun des 2 codes.

Les 2 codes fonctionnent mais ne sont peut-être pas adaptés à ta situation.

Pour indiquer par code quelle est la cellule liée au contrôle :

Sub Macro1()
    Feuil1.CheckBox1.LinkedCell = "Feuil1!C18" 'Nom de feuille à adapter
End Sub

A+

Oui, en effet, ça fonctionne maintenant.

Merci beaucoup.