Lancer un apercu et que userforme revienne

titoffe60 · 2 Août 2012

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 · 2 Août 2012

Re : Lancer un apercu et que userforme revienne

Bonsoir titoffe60,

Voici une proposition :

VB:

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 · 3 Août 2012

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

Lancer un apercu et que userforme revienne

titoffe60

Guest

Pièces jointes

Fred0o

XLDnaute Barbatruc

titoffe60

Guest

Discussions similaires

Lancer un apercu et que userforme revienne

titoffe60

Guest

Pièces jointes

Fred0o

XLDnaute Barbatruc

titoffe60

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency