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

jeanba

XLDnaute Occasionnel
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:

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
 

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07