j'ai trouvé un userform qui donne un choix d'impression sur les feuilles du classeur ouvert. ci joint fichier.
je cherche à la mofifié pour faire un choix sur différentes zones d'impression sur une même feuille tout en gardant cette forme.
je tourne je vire dans tous les sens et je ne trouve pas.
j'ai modifié le code
copie ton classeur et remplace le code du formulaire par le suivant
'Le code dans la procédure suivante crée un tableau et rassemble
'l'information en faisant une boucle sur les feuilles dans le
'classeur actif. Il transfère alors ce tableau dans une liste
'nommée ListBox1.
'----------------------------------------------------------------
Private Sub BtnOK_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
'With Sheets(ListBox1.List(i))
With Sheets(ActiveWorkbook.Names(ListBox1.List(i)).RefersToRange.Parent.Name)
.PageSetup.PrintGridlines = cbGridlines
If obLandscape Then .PageSetup.Orientation = xlLandscape
If obPortrait Then .PageSetup.Orientation = xlPortrait
Range(ActiveWorkbook.Names(ListBox1.List(i))).PrintOut copies:=1
End With
End If
Next i
Unload Me
End Sub
Private Sub BtnOptions_Click()
If BtnOptions.Caption = "Options >>" Then
FrmImpr.Height = 174
BtnOptions.Caption = "<< Options"
Else
FrmImpr.Height = 128
BtnOptions.Caption = "Options >>"
End If
End Sub
Private Sub UserForm_Initialize()
For Each Sht In ActiveWorkbook.Names
ListBox1.AddItem Sht.Name
Next Sht
FrmImpr.Height = 128
End Sub
Suite à aux renseignements de STéphane j'essaye de mettre tous ça en pratique mais je rencontre toujours un petit problème.
Je veux uniquement utiliser sur la feuille du classeur ouverte plusieurs zone d'impression au choix.
Actuellement toutes les zones de Nom de mon classeur sont prisses en compte dans la liste de l'UserForm.
Comment faire pour isoler la feuille en question sans pour autant éliminer les autres zones de Noms des autres feuilles ?