Problemes d'impression

Bonjour,

Ci-joint fichier qui me pose des problèmes d'impression :

Au départ, une liste de dossiers (ici 185) à répartir ( onglet = "BASE" )

1 bouton "Créer feuilles" pour répartir ces dossiers selon un nombre saisi d'employés (en rouge : ici 10), soit 185/10 = 18,5 dossiers par employé arrondi à 19, sachant que le dernier ne comprendra donc que les 14 derniers ( (9 x19 = 171) + 14 = 185).

J'en viens à mon souci : j'ai créé une macro "imprimer_onglet" affectée à un bouton "IMPIMER" qui permet de choisir l'onglet à imprimer, sachant que je souhaite dans le cas présent imprimer notamment les 10 onglets de répartition mais en mode paysage et que chaque onglet tienne sur une page à l'impression !

Et là, je tourne en rond ... car parfois, il me sort la 1ère répartition en paysage et intégralement, la 2ème en mode portrait avec la suite des colonnes en verso, ... bref, je tourne en rond

Quelqu'un peut-il me corriger cette macro afin qu'elle me donne le résultat attendu ?

Merci d'avance

ps : avec le fichier joint, c'est mieux !

Bonjour,

Il y a des lenteurs incroyables dans l'exécution de la macro.

Pour répondre à l'objet de ta question, remplace dans ta boucle ce code

'    With ws.PageSetup
'        .PrintArea = ""
'        .Orientation = xlLandscape
'        .Zoom = 80
'        .FitToPagesWide = 1
'        .FitToPagesTall = 1
'    End With

par ce code. Pense à déclarer la variable Derligne en tête de module par exemple

 With ActiveSheet
        ' Définition de la plage à imprimer
        Derligne = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("$A$1:$H" & Derligne).Select
        .PageSetup.Orientation = xlLandscape
        .PageSetup.PrintArea = .Range("$A$1:$H" & Derligne).Address
        .PageSetup.Zoom = 80
    End With

Cordialement

Ok merci pour ton aide

Tout marche à merveille !!!

Ouf

Cordialement