Bonsoir
encore besoin d aide
je voudrais qu'avec ce code je revienne sur mon userforme car la il disparais
' apercu
Private Sub Bouton_apercu_Click()
Dim i As Integer
Unload Me
For i = 1 To 6
If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintPreview
Next
End Sub
Merci pour tout
a+ Christophe
encore besoin d aide
je voudrais qu'avec ce code je revienne sur mon userforme car la il disparais
' apercu
Private Sub Bouton_apercu_Click()
Dim i As Integer
Unload Me
For i = 1 To 6
If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintPreview
Next
End Sub
Merci pour tout
a+ Christophe