Les checkbox ... qui prennent la tête!

Question

Bonjour,

Alors , mon probleme:
Je travaille sous Excel et VBA. Dans une cellule d'excel, selon le cas, on a soit O (pour Oui), soit N (pour non).
Je voudrais d'une part que la checkbox soit cochée par défaut si O apparait dans la cellule. Et inversement, qu'elle ne soit pas cochée si c'est n qui apparait dans la celulle.
Je voudrais d'autre part qu'en cliquant sur la checkbox, ca inverse la position dans la cellule. Ainsi, O deviendrait N, et inversement: N ->O

Merci pour vos réponses

PS: Voila ce que j'ai tappé (à mon avis, c'est au niveau du signe "=" que je me plante.
   If Cells(1, 1) = "N" Then
      CheckBox1.Value = False
    Else
      Cells(1, 1) = "O"
      CheckBox.Value = True
    End If

Jean · Answer

Voici deux petites procédures qui pourraient répondre au problème posé

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Cells(1, 1) = "O"
Else
    Cells(1, 1) = "N"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = "N" Then
    CheckBox1.Value = False
Else
    CheckBox1.Value = True
End If

End Sub

Bon amusement,

Jean  8-)

Les checkbox ... qui prennent la tête!

1 réponse

Discussions similaires