Problème pour Boutons d'Action

Bonjour à tous,

j'ai un formulaire pour gérer les adhérant d'une association.

J'ai 2 boutons d'action et je n'arrive pas de le faire marché correctement.

Si ça marche il devrait quand je clique sur le bouton d'action qui s’appelle "Espèces" le ComboBox "cboespeces" il devrait s'ouvrir

et le bouton d'action qui s’appelle "Chèque" et la cbocheque devrait se fermer.

Voir le code:

Private Sub lbleespeces_Click()

End Sub

Private Sub optespeces_Click()

    If Me.optespeces.Value = "Non" Then
        Me.cboespeces.Visible = False
        Me.cboespeces.Visible = False
    Else
        Me.cboespeces.Visible = True
        Me.optespeces.Visible = True
    End If

End Sub
Private Sub optcheque_Click()

    If Me.optcheque.Value = "Non" Then
        Me.cbocheque.Visible = False
        Me.cbocheque.Visible = False
    Else
        Me.cbocheque.Visible = True
        Me.optcheque.Visible = True
    End If

End Sub

Private Sub cboespeces_Change()
 Me.cboespeces.Enabled = Me.cboespeces.Value = "Oui"
 Me.cboespeces.Locked = Me.cboespeces.Value = "Non"
 If Me.cboespeces.Value = "Non" Then
 cboespeces.Visible = True
 optespeces.Visible = True
 lbleespeces.Visible = True
 Else
 cboespeces.Visible = False
 optespeces.Visible = False
 lbleespeces.Visible = False
 End If
Me.cboespeces = Format(Me.cboespeces, "# ##0.00 €")
End Sub
Private Sub cbocheque_Change()

 Me.cbocheque.Enabled = Me.cbocheque.Value = "Oui"
 Me.cbocheque.Locked = Me.cbocheque.Value = "Non"
 If Me.cbocheque.Value = "Non" Then
 cbocheque.Visible = True
 optcheque.Visible = True
 lblcheque.Visible = True
 Else
 cbocheque.Visible = False
 optcheque.Visible = False
 lblcheque.Visible = False
 End If
Me.cbocheque = Format(Me.cbocheque, "# ##0.00 €")
End Sub

et aussi le fichier:

Pouvez vous d'aider?

Merci de votre réponse.

Bonjour

Ci joint ma solution

A+ François

merci de votre solution qui me va bien.

Mais j'ai un problème sur les format champs Espèces et Chèque.

Me.cboespeces = Format(Me.cboespeces, "# ##0.00 €")

Me.cbocheque = Format(Me.cbocheque, "# ##0.00 €")

Le champ Espèces change pas.

Merci