trois problèmes de novice

[sinsino]

voir attachement

 

[phlaurent55]

https://www.excel-downloads.com/help/charte/

 

[piga25]

Bonjour,
Bonjour Phlaurent55,

Spoiler

A ces nouveaux

Généralement on se présente pour son premier message et il est de règle de dire bonjour,

Merci de lire la charte



1: pas de code pour ce bouton toupie. Pour modifier faire clic droit puis format de contrôle

2: Juste définir une zone imprimable (fait: voir aperçu)

3: Juste mettre une condition pour le zéro

 

[sinsino]

Bonjour,
Bonjour Phlaurent55,

Spoiler

A ces nouveaux

Généralement on se présente pour son premier message et il est de règle de dire bonjour,

Merci de lire la charte



1: pas de code pour ce bouton toupie. Pour modifier faire clic droit puis format de contrôle

2: Juste définir une zone imprimable (fait: voir aperçu)

3: Juste mettre une condition pour le zéro

 

[sinsino]

Bonjour Piga25 et merci de votre réponse
Le problème de l'impression des emplois du temps de tous les surveillants par une seule commande
n’est pas résolu ; je ne peux imprimer que la zone active , je sais faire avec un publipostage ,mais
il est question de simplifier au maximum pour d'autres collègues de travail , j'ai bien cherché sur le forum
avant de poster mais sans succès . alors si vous voulez bien continuer votre intervention je ne peux que
m'en réjouir
mes excuses pour le manquement à l'éthique . salut.

 

[JCGL]

Bonjour à tous,
Salut Philippe,
Salut Patrick,

Au plus simple :

Option Explicit

Sub Impression()
    Dim Lig&
    [R4].Font.ThemeColor = xlThemeColorDark1
    For Lig = 1 To 10
        [Q4] = Lig
        ActiveSheet.PrintPreview
        'ActiveSheet.PrintOut
    Next Lig
    [R4].Font.ColorIndex = xlAutomatic
End Sub

A+ à tous

 

[sinsino]

Bonjour à tous,
Salut Philippe,
Salut Patrick,

Au plus simple :

Option Explicit

Sub Impression()
    Dim Lig&
    [R4].Font.ThemeColor = xlThemeColorDark1
    For Lig = 1 To 10
        [Q4] = Lig
        ActiveSheet.PrintPreview
        'ActiveSheet.PrintOut
    Next Lig
    [R4].Font.ColorIndex = xlAutomatic
End Sub

A+ à tous

 

[sinsino]

Bonjour à tous
merci JCGL , ça marche , l'impression s'engage bien sauf que je ne peux pas fermer l'aperçu
avant le défilement de toutes mes pages d'impression .
Autre chose si c'ést possible ; limiter le gaspillage en rendant possible l'impression multipages vu que la zone est toute petite pour une feuille a4
merci à tous
A+