Autres impression automatique

Quicksland à dit:

Bonsoir a tous 🙂

Serait il possible que dans le fichier ci-joint l impression se déclenche automatiquement ?

si oui il faudrait que l impression puisse se faire en fonction d une condition

la condition se trouve dans les casses " Bleu "

c'est a dire que si cellule vide " inferieur a 1 " pas d impression possible

et si cellule bleu " donc supérieur a 1 donc bleu " impression automatique

Merci pour votre aide 👍👍👍

A bientôt .....🤤

Cliquez pour agrandir...

Sub imprimer()
    Dim i&, j&
    For j = 5 To 428 Step 47
        For i = 9 To 33 Step 8
            If Cells(j, i) > 1 Then
                Range(Cells(j - 3, i - 7), Cells(j + 43, i)).PrintPreview    'supprimer cette ligne après essai
                '  Range(Cells(j - 3, i - 7), Cells(j + 43, i)).PrintOut    'Valider cette ligne après essai
            End If
        Next
    Next
End Sub

Quicksland à dit:

Bonjour Jacky67

Merci pour ta réponse …

Malheureusement cela ne fonctionne pas enfin pas totalement

Ça imprime qu’une seule feuille ( la première )

Cliquez pour agrandir...

Quicksland à dit:

Après avoir appuyer sur le bouton " imprimer " en haut de la feuille " lundi " une fenêtre s'ouvre ( voir photo )
non seulement il n'y a qu'une feuille a imprimer et je dois appuyer en haut a gauche pour imprimer ...
merci

Cliquez pour agrandir...

Quicksland à dit:

oups 🙁 désolé ...
je ne pensai pas qu'il y avait quelque chose a faire dans le code vba
tout fonctionne 👍
c'est super ...merci 😉
j'ai une autre question ...
Dans le fichier ci-joint j'ai une remise a zéro des cellules par un bouton
le problème est que quand je protège la feuille celui ci ne fonctionne plus
serait il possible qu'il fonctionne feuille protégé ?
et si c'est possible je suis preneur 🙂
en tout cas je te remercie pour l'aide apporté 👍

Cliquez pour agrandir...

Quicksland à dit:

En fait il n'y a rien a supprimer je pense qu'il y a juste a rajouté quelque chose dans la vba du bouton pour que celui ci fonctionne même si la feuille est protégé
ci-joint le fichier source

Cliquez pour agrandir...

Private Sub Workbook_Open()
  Feuil2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub

Sub REMISE_A_ZERO()
Dim C As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    For Each C In Range("c11:s104")
        If C = "ADULTES" Or C = "MATERNELLES" Or C = "ÉLÉMENTAIRES" Or C = "LIVRAISON" Or C = "HEURE" Then
            C.Offset(, 1) = ""
        End If
    Next
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

Jacky67 à dit:

RE
Pour autoriser le VBA, ici la macro attribué au bouton mise à jour sans se soucier de la protection.
Mettre ceci dans le ThisWorkbook

VB:

Private Sub Workbook_Open()
  Feuil2.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
End Sub

Et pour la remise à zéro la macro pourrait ressembler à ceci (A placer dans le module de la feuille "PRINTEMPS")
Il faudra néanmoins refaire les cellules "Livraison" ou il y un "retour à la ligne" inutile

Code:

Sub REMISE_A_ZERO()
Dim C As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    For Each C In Range("c11:s104")
        If C = "ADULTES" Or C = "MATERNELLES" Or C = "ÉLÉMENTAIRES" Or C = "LIVRAISON" Or C = "HEURE" Then
            C.Offset(, 1) = ""
        End If
    Next
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

Cliquez pour agrandir...

Quicksland à dit:

C'est vraiment du bon boulot 👍
Il y a juste un petit soucis ...
Quand la feuille est protégé il faudrait que je puisse avoir quand même accès au menu déroulant ( pain bagnat ) a la date du ( lundi ) et toutes les cellules ( Adultes, Maternelles ,Élémentaires, livraisons et heure )

Cliquez pour agrandir...

Quicksland à dit:

Bonjour Jacky 67

Ce matin j'ai voulu adapter ton code au fichier réel car tu avais un fichier test ...
c'est a dire que les feuilles ( juillet, aout et toussaint n'était pas dans le fichier
la feuille printemps fonctionne très bien
mais j'ai une erreur 400 qui apparait quand je protège les autres feuilles et que j'appuie sur remise a zéro
merci pour ton aide

Cliquez pour agrandir...

Private Sub Workbook_Open()
    Dim Sh As Worksheet
     For Each Sh In Worksheets
        If Sh.Name <> "EFFECTIF  JOUR" And Sh.Name <> "LISTE" Then    ' ici les noms de feuille à exclure
            Sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
        End If
    Next
End Sub