Je ne recupère pas la valeur de ma checkbox

[nougitch]

Bonjour,

J'ai un USF avec pas mal de checkbox.

Avec le code suivant, rien ne se passe alors que ma checkbox est bien cochée et que son nom est correct :

    If frmRisks.cbx7611FEE.Value = True Then
        MsgBox frmRisks.cbx7611FEE.Caption
    End If

Alors que quand je mets FALSE, cela fonctionne, que la case soit cochée ou non.

Avez-vous une idée ?

Merci par avance.
Cdt,

 

[kjin]

Re : Je ne recupère pas la valeur de ma checkbox

Bonjour,
Un code sorti de son contexte ne veut pas dire grand chose donc difficile de répondre sans le code complet
A+
kjin

 

[Creepy]

Re : Je ne recupère pas la valeur de ma checkbox

Hello,

Ca marche chez moi peut être que cela vient d'autre part ?

Genre une routine appellée par ailleurs.

Désolé.

Creepy

 

[nougitch]

Re : Je ne recupère pas la valeur de ma checkbox

Même en réduisant mon fichier au strict minimum il ne passe pas en upload.

Si cela peut vous aider, dans le code de l'USF, j'ai :

' Force variables statement
Option Explicit

' Select/unselect 7611
Private Sub cbx7611_Click()

    ' Select 7611
    If cbx7611.Value = True Then
        ' Sub PF 7611
        cbx7611FEE.Value = True
        cbx7611FEE.Enabled = False
        cbx7611FWD.Value = True
        cbx7611FWD.Enabled = False
        cbx7611OLD.Value = True
        cbx7611OLD.Enabled = False
        cbx7611SDS.Value = True
        cbx7611SDS.Enabled = False
        cbx7611SSF.Value = True
        cbx7611SSF.Enabled = False
        cbx7611TRS.Value = True
        cbx7611TRS.Enabled = False
        cbx7611ZZZ.Value = True
        cbx7611ZZZ.Enabled = False
    ' Unselect 7611
    Else
        ' Sub PF 7611
        cbx7611FEE.Value = False
        cbx7611FEE.Enabled = True
        cbx7611FWD.Value = False
        cbx7611FWD.Enabled = True
        cbx7611OLD.Value = False
        cbx7611OLD.Enabled = True
        cbx7611SDS.Value = False
        cbx7611SDS.Enabled = True
        cbx7611SSF.Value = False
        cbx7611SSF.Enabled = True
        cbx7611TRS.Value = False
        cbx7611TRS.Enabled = True
        cbx7611ZZZ.Value = False
        cbx7611ZZZ.Enabled = True
    End If

End Sub

' Select/unselect all
Private Sub cbxSelectAll_Click()

    ' Select all
    If cbxSelectAll.Value = True Then
        ' PF 7611
        cbx7611.Value = True
        cbx7611.Enabled = False
        ' Sub PF 7611
        cbx7611FEE.Value = True
        cbx7611FEE.Enabled = False
        cbx7611FWD.Value = True
        cbx7611FWD.Enabled = False
        cbx7611OLD.Value = True
        cbx7611OLD.Enabled = False
        cbx7611SDS.Value = True
        cbx7611SDS.Enabled = False
        cbx7611SSF.Value = True
        cbx7611SSF.Enabled = False
        cbx7611TRS.Value = True
        cbx7611TRS.Enabled = False
        cbx7611ZZZ.Value = True
        cbx7611ZZZ.Enabled = False
    ' Unselect all
    Else
        ' PF 7611
        cbx7611.Value = False
        cbx7611.Enabled = True
        ' Sub PF 7611
        cbx7611FEE.Value = False
        cbx7611FEE.Enabled = True
        cbx7611FWD.Value = False
        cbx7611FWD.Enabled = True
        cbx7611OLD.Value = False
        cbx7611OLD.Enabled = True
        cbx7611SDS.Value = False
        cbx7611SDS.Enabled = True
        cbx7611SSF.Value = False
        cbx7611SSF.Enabled = True
        cbx7611TRS.Value = False
        cbx7611TRS.Enabled = True
        cbx7611ZZZ.Value = False
        cbx7611ZZZ.Enabled = True
    End If

End Sub

' When click on cancel button
Private Sub cmdCancel_Click()

    ' End of procedure
    End
    
End Sub

' When click on ok button
Private Sub cmdOk_Click()
    
    ' Hide form
    Unload Me

End Sub

' When click on cross
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    ' End of procedure
    If CloseMode = vbFormControlMenu Then End

End Sub

Merci pour votre aide !