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:
Merci d'avance
Jeanba
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