XL 2021 Userform impression + choix des feuilles

Bonjour Candido,

Si j'ai bien compris votre demande,
voici votre fichier avec un USF qui permet le choix étendu des noms et feuilles

A+

wDog66 à dit:

Bonjour Candido,

Si j'ai bien compris votre demande,
voici votre fichier avec un USF qui permet le choix étendu des noms et feuilles

A+

Cliquez pour agrandir...

Bonjour,
Merci beaucoup, oui c'est un peu ça ce que je veux.
Mais je voudrais sélectionner plusieurs nom ou la liste complète. le choix peut se faire en surbrillance ? Ou exemple 2 noms et 2 feuille au choix, voir les 4 feuilles en même temps ou toutes la liste de noms et les 4 feuilles en même temps.
En tout cas sur la première feuille Hiver 1 fonctionne
Je suppose que le bouton impression de droite c'est ANNULER. Et ça annule quoi ? J'ai rajouter
"Unload Me" pour quitter > Je ne sais pas si c'est ça que tu voulais faire .
Par contre la macro bloque > Voir capture écran

Re,

Mais je voudrais sélectionner plusieurs nom ou la liste complète. le choix peut se faire en surbrillance ? Ou exemple 2 noms et 2 feuille au choix, voir les 4 feuilles en même temps ou toutes la liste de noms et les 4 feuilles en même temps.

Cliquez pour agrandir...

Je vous signale que c'est ce que vous pouvez faire !

Bref je n'irai pas plus loin si vous ne savez pas utiliser MAJ ou CTRL pour sélectionner un ensemble

wDog66 à dit:

Re,


Je vous signale que c'est ce que vous pouvez faire !

Bref je n'irai pas plus loin si vous ne savez pas utiliser MAJ ou CTRL pour sélectionner un ensemble

Cliquez pour agrandir...

Par exemple si je choisis 2 noms et je sélectionne les feuilles hiver 1 et Été 1, il imprimé que la feuille Hiver 1 mais pas les deux. J'ai 2 impressions au lieu de 4.
Oui je sais utiliser la touche majuscule pour sélectionner plusieurs critères, mais je pensais que c'était plus simple si on pouvait mettre en surbrillance ou pouvoir cocher, mais c'est très bien comme ça, mais la macro bloque et toutes les impressions ne sortent pas
En tout cas merci

Oneida à dit:

Bonjour tous

wDog66​

Ca roules?

candido57​

D'apres ce que je comprends, ceci devrait aller

Listboxs: multisect et styleOption(en realite case a cocher mais se comporte comme optionbutton)
Selction comme ecrit precedement touche MAJ ou ctrl suivant type de selection voulue

Cliquez pour agrandir...

Bonjour,

Merci beaucoup, je vais essayer et je reviens vers toi.
Bonne journée

candido57 à dit:

Bonjour,

Merci beaucoup, je vais essayer et je reviens vers toi.
Bonne journée

Cliquez pour agrandir...

Bonjour,
Ca me convient , ça fonctionne , merci beaucoup

Bonne soirée

Bonjour,
J'ai rajouter dans la macro une mis en page de la feuille à imprimer "Call Ajuster" voir plus bas, l'ajustement la feuille fonctionne , mais si je choisie un nom et une feuille, il imprime toujours la 4ème. Moi je voudrais qu'il imprime ce que j'ai sélectionné.
Est ce que quelqu'un aurait une idée?

Private Sub Cbn_Imprimer_Click()
'Application.ScreenUpdating = False ' Faire fonctionner la macro sans exécuter
Dim Ind1 As Long, Ind2 As Long
Dim ShP As Worksheet

For Ind2 = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(Ind2) Then
Set ShP = Sheets(Me.ListBox2.List(Ind2))

For Ind1 = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(Ind1) Then
ShP.Range("B1").Value = Me.ListBox1.List(Ind1)
'Debug.Print ShP.Name & "----" & ShP.Range("B1").Value

Call MASQUER_LIGNE
Call Fermer_La_fenêtre

Call Ajuster

ShP.PrintOut
Call AFFICHER_LIGNE

End If
Next Ind1
End If
Next Ind2
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Initialize()
Dim BdEnf As Range
Dim Sh As Worksheet
With ThisWorkbook.Sheets("Enfants")
Set BdEnf = .Range("A4:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
Me.ListBox1.List = BdEnf.Value
For Each Sh In ThisWorkbook.Sheets
If InStr(1, Sh.Name, "Hiver") > 0 Or InStr(1, Sh.Name, "Été") > 0 Then
Me.ListBox2.AddItem Sh.Name
End If
Next Sh
End Sub



Sub Ajuster()

'ActiveSheet.Select
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AA$78"
.PaperSize = xlPaperA4
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.3)
.BottomMargin = Application.InchesToPoints(0)
.Zoom = 60
.Orientation = xlLandscape

ActiveSheet.PrintPreview

End With

End Sub