XL 2010 Select Case dans un CheckBox - Où est l'erreur?

[jeanba]

Bonjour à tous,

Je tente de contrôler un CheckBox. L'éditeur ne renvoie aucune erreur de code mais il se passe rien de ce qu'attend de la suite du programme...
Voici le code:

Private Sub USF04_CommandButton2_Click()
Unload Me
For i = 1 To 5
    If Me.Controls("USF04_CheckBox" & i).Value = True Then
        Select Case i
            Case 1:     USF10.Show
            Case 2:     With Sheets("FICHE")
                                    .Visible = True
                                    .Select
                                    Call ImprimerFeuilleActive
                                    .Visible = False
                           End With
            Case 3:      USF05.Show
            Case 4:     With Sheets("PV")
                                    .Visible = True
                                    .Select
                                    Call ImprimerFeuilleActive
                                    .Visible = False
                           End With
        End Select
    End If
Next

End Sub

Merci d'avance

Jeanba

 

[Roland_M]

bonjour,

c'est normal puisque tu refermes ton userf, Unload Me !?

Private Sub USF04_CommandButton2_Click()
Unload Me
For i = 1 To 5
If Me.Controls("USF04_CheckBox" & i).Value = True Then
. . .