Résultats de la recherche

  1. H

    Enregistrer plusieurs ListBox en PDF

    Cool !! merci beaucoup a vous deux.
  2. H

    Enregistrer plusieurs ListBox en PDF

    Oops!
  3. H

    Enregistrer plusieurs ListBox en PDF

    Hello, I have this code that was given to me by someone on this forum. Private Sub Enregistrer_1_seul_PDF_Click() Dim i As Long Dim k As Long Dim varrSelected() As Variant Dim varrToSave As Variant Dim shActiv As Object k = -1 Application.ScreenUpdating = False...
  4. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, J'ai indiqué toute au long fil, les étape des résultats obtenue grâce à ton aide et recherche sur G..gle. Je joins un fichier xlsm pour mieux comprendre.
  5. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Dans la ListBox de l'UserForm Les feuilles à imprimer s'affichées sauf celles que je ne veux pas.
  6. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Oui mais n'imprimait les feuilles masquées Et résolu dans le message #40.
  7. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Bonsoir Staple1600, le forum, @Staple1600, J’ai testé avec ceci : Private Sub imprimer_Click() Dim Fe As Worksheet Application.ScreenUpdating = False For Each Fe In Worksheets If Fe.Visible = xlSheetHidden Then Fe.Visible = xlSheetVisible Fe.PrintOut Fe.Visible = xlSheetHidden End If Next Fe...
  8. H

    Bouton VBA pour imprimer une feuille

    Re, Staple1600, le forum, @Staple1600, Pour avoir une réponse de @job75. J’ai testé avec ceci : Private Sub imprimer_Click() Dim Fe As Worksheet Application.ScreenUpdating = False For Each Fe In Worksheets If Fe.Visible = xlSheetHidden Then Fe.Visible = xlSheetVisible Fe.PrintOut Fe.Visible =...
  9. H

    Bouton VBA pour imprimer une feuille

    Bonjour le forum, @job75, Je souhaiterai utiliser dans un UserForm de mon classeur, une partie du code ci-dessous : Private Sub CommandButton1_Click() Dim copies, Sh As Object, vis% copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée..."))) If copies = 0 Then Exit Sub...
  10. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Bonsoir le fil, @Staple1600, le code ci dessus fonctionne bien mais il fait le contraire de ce que je souhaite, il démasques les feuilles. Dans la pièce jointe suivante : Tous les fichiers sont masqués hormis index. À aucun moment les fichiers masqués ne s’affichent. Merci.
  11. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Avec le code ci-dessous , on peut imprimer des feuilles cachées d'un classeur. Private Sub CommandButton2_Click() Dim copies, Sh As Object, vis% copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée..."))) If copies = 0 Then Exit Sub For Each Sh In Sheets(Array(5, 3))...
  12. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Bonsoir le fil, Après comparaison des codes dans les deux classeurs. Suppression du UserForm du classeur où se trouve les données originales puis Réimporté le UserForm (Sauvegardé au paravent) Le truc tout bête, les feuilles du classeur original étaient masquées. Quel code je peu ajouter...
  13. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Oui il est tard Bonne nuit à toi Et encore merci
  14. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, erreur de compilation: erreur de syntaxe
  15. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Oui je confirme qu'avec l'autre fichier, je fais une impression papier pour de vrai sur mon imprimante. Voila ce qui ce passe avec le code =If .Selected(i) Then Sheets(.List(i)).PrintOut Copies:=3
  16. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, TextBox1.Value ="1"
  17. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Le nom du TextBox est TextBox1
  18. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, arfff ! J'ai transposé les codes et le UserForm dans mon classeur original Cela ne fonctionne plus il y a une erreur If .Selected(i) Then Sheets(.List(i)).PrintOut copies:=TextBox1.Value et fonctionne très bien sur le classeur que j'ai joint plus haut dans le fil
  19. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re la question est résolue.
  20. H

    XL 2019 Bouton VBA pour imprimer une feuille

    Re, Oui Bien sure.