Bonjour à tous,
j'ai un petit soucis avec la fermeture d'un userform. Il y a un chekbox(CB_mensuel) et un spinbutton(SB_semaine)dans l'UF.
Quand je modifie le SB et que je clic sur impression(proc)-->pas de soucis, j'ai l'aperçu et l'UF se ferme bien.
Quand je selectionne le CB et que je clic sur impression(proc)-->j'ai l'aperçu mais l'UF ne se ferme pas!!
voici le code
Private Sub Impression_Click()
If CB_mensuel = True Then
With ActiveSheet 'fenêtre active
.PageSetup.PrintArea = '$A$1:$AI$28'
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End If
fermer 'appel proc pour fermer l'UF
Worksheets('horaires').Activate
i = 7: j = 21: l = 8 'init variables
For x = 1 To 52
If SB_semaine.Value = Cells(l, 1) Then
Worksheets('horaires').PageSetup.PrintArea = '$A$' & i & ':$S$' & j
Worksheets('horaires').PrintPreview
End If
fermer 'appel proc pour fermer l'UF
l = l + 35
i = i + 35
j = j + 35
Next x
Si vous avez des idées pour m'ouvrir l'esprit...
Merci A+
j'ai un petit soucis avec la fermeture d'un userform. Il y a un chekbox(CB_mensuel) et un spinbutton(SB_semaine)dans l'UF.
Quand je modifie le SB et que je clic sur impression(proc)-->pas de soucis, j'ai l'aperçu et l'UF se ferme bien.
Quand je selectionne le CB et que je clic sur impression(proc)-->j'ai l'aperçu mais l'UF ne se ferme pas!!
voici le code
Private Sub Impression_Click()
If CB_mensuel = True Then
With ActiveSheet 'fenêtre active
.PageSetup.PrintArea = '$A$1:$AI$28'
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End If
fermer 'appel proc pour fermer l'UF
Worksheets('horaires').Activate
i = 7: j = 21: l = 8 'init variables
For x = 1 To 52
If SB_semaine.Value = Cells(l, 1) Then
Worksheets('horaires').PageSetup.PrintArea = '$A$' & i & ':$S$' & j
Worksheets('horaires').PrintPreview
End If
fermer 'appel proc pour fermer l'UF
l = l + 35
i = i + 35
j = j + 35
Next x
Si vous avez des idées pour m'ouvrir l'esprit...
Merci A+