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