Pb : Box Choix onglet à imprimer

Bonjour,

Je vous contact car dans un fichier Excel, je souhaite utiliser un bouton qui ouvre une boite de dialogue, dans laquelle je choisis les Feuilles a imprimer.

J'utilise le code ci-dessous :

Private Sub BoutonImprimer_Click()
Dim feuille, i As Integer
feuille = Array("Feuil1", "Feuil2", "Feuil3")

For i = 1 To 3
    If UserForm1.Controls("CheckBox" & i).Value = True Then
        Application.Goto Sheets(feuille(i - 1)).Range("Zone_d_impression")
        ActiveSheet.PrintPreview
    End If
UserForm1.Hide
Next
End Sub

Le problème viens que des que je choisi la Feuil1, Excel Bug totalement.

Pouvez-vous m'aider sur ce point ? Je joint mon fichier test.

Merci d'avance

9exemple.xlsm (38.39 Ko)

Bonjour,

à tester,

Private Sub BoutonImprimer_Click()
Dim feuille, i As Integer
feuille = Array("Feuil1", "Feuil2", "Feuil3")

For i = 1 To 3
    If UserForm1.Controls("CheckBox" & i).Value = True Then
        Application.Goto Sheets(feuille(i - 1)).Range("Zone_d_impression")
        UserForm1.Hide
        ActiveSheet.PrintPreview
    End If

Next
UserForm1.Show
End Sub
Rechercher des sujets similaires à "box choix onglet imprimer"