Lancer un apercu et que userforme revienne

[titoffe60]

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

 

[Fred0o]

Re : Lancer un apercu et que userforme revienne

Bonsoir titoffe60,

Voici une proposition :

Private Sub Bouton_apercu_Click()
    Dim i As Integer
    Me.Hide
    For i = 1 To 6
      If Controls("CheckBox" & i) Then Sheets(Controls("Label" & i).Caption).PrintPreview
    Next
    Me.Show
End Sub

A+

 

[titoffe60]

Re : Lancer un apercu et que userforme revienne

Bonjour

Génial ça marche nickel

Vous êtes des vrai bête sur ce cite
encore merci
a+ Christophe