N
nicole
Guest
Bonjour le forum,
j'avais sollicité cotre aide pour concevoir un formulaire multipage et ai reçu des réponses avisées de plusieurs personnes notamment de @+Thierry.
J'ai donc un multipage qui fonctionne correctement ( affichage des données des différents onglets et possibilité de visualiser, modifier ou enregistrer).
Mon pb est le suivant, j'ai un bouton impression et suivant que le checkbox est coché ou pas il prend le caption:en un seul formulaire ou des onglets séparés. J'ai donc la possibilité d'imprimer le multipage sur une feuille ou d'avaoir le nb de feuilles correspondant aux nb d'onglets. J'arrive à imprimer dans ce 2ème cas mais pas à imprimer 1 seule feuille récapitulative. Peut-être pourriez-vous m'aider.
Mon code
Private Sub buttonImprimer_Click()
Dim CTRL As Control
Dim X As Byte
If Me.CheckBoxImprimer = False Then
For X = 0 To 6
With UserForm5
.MultiPage1.Value = X
.PrintForm
End With
Next
Else
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then
Range(CTRL.Name) = CTRL.Value
End If
Next CTRL
With Sheets("Form")
.Visible = True
.PrintOut
.Visible = False
End With
End If
end sub
Merci et pardon d'avoir été aussi longue.
j'avais sollicité cotre aide pour concevoir un formulaire multipage et ai reçu des réponses avisées de plusieurs personnes notamment de @+Thierry.
J'ai donc un multipage qui fonctionne correctement ( affichage des données des différents onglets et possibilité de visualiser, modifier ou enregistrer).
Mon pb est le suivant, j'ai un bouton impression et suivant que le checkbox est coché ou pas il prend le caption:en un seul formulaire ou des onglets séparés. J'ai donc la possibilité d'imprimer le multipage sur une feuille ou d'avaoir le nb de feuilles correspondant aux nb d'onglets. J'arrive à imprimer dans ce 2ème cas mais pas à imprimer 1 seule feuille récapitulative. Peut-être pourriez-vous m'aider.
Mon code
Private Sub buttonImprimer_Click()
Dim CTRL As Control
Dim X As Byte
If Me.CheckBoxImprimer = False Then
For X = 0 To 6
With UserForm5
.MultiPage1.Value = X
.PrintForm
End With
Next
Else
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then
Range(CTRL.Name) = CTRL.Value
End If
Next CTRL
With Sheets("Form")
.Visible = True
.PrintOut
.Visible = False
End With
End If
end sub
Merci et pardon d'avoir été aussi longue.