Tri élaboré avec aperçu avant impression

Bonsoir le Forum,

_1er_

Dans la compilation finale de mon exemple peux ton rajouter la colonne des rues qui corresponde au code, pour plus de compréhension,

Exemple:

Code Rue Tache Tps

A01 ABATTOIR, côte de l' Atelier 3

_2eme_

Dans le même principe que le mois je voudrais faire un tri plus élaboré,

Si je choisie le mois sans le code ni la tache j'ai le tri sur le mois et le calcul des TPS,

Si je choisie le mois plus le code j'ai le tri sur tout les codes du mois avec le calcul des TPS,

Si je choisi le code seul j'ai le tri sur les code de tous les mois

Si je choisie le mois plus la tache j'ai le tri sur toutes les tache du mois,

Ex......

Merci...

Bonjour

A tester

C'est encore super Banzai64,

Serait 'il possible de ne pas choisir de mois obligatoirement et la il ferait le tri sur tout les mois.

Par exemple pour prendre sur tout les mois de l’année.

Merci.

Bonjour

A vérifier soigneusement

Bonsoir Banzai64

J'ai vérifier et sa à l'air d’être bon comme d’habitude.

Si tu te rappelle tu m’avais fait une Macro "sauvegarde" pour sauvegarder des feuilles dans mon pc, depuis que j'ai décidé de stocker sur l'année totale je ne peux plus l'utiliser.

Serait t’il possible de pouvoir choisir (un mois ou tous) avant que les données TPS soit calculé dans la feuille "Inventaire des codes".

J'ai rajouté la feuille dans c'est exemple.

Merci.

Bonsoir

Suis long à la détente

Mais je n'ai rien compris

Tu me parle de la sauvegarde que tu n'utilises plus, ensuite du calcul de temps dans la feuille "Inventaires des codes" (1ère fois que je la vois)

En clair que veux tu ?

Ne plus demander quel mois enregistrer ?

Désolé je recommence.

Non le calcul des TPS fonctionne sur la page "Inventaire des codes" mais il prend en compte le total des pages de "Laporte Claude, Bouzat Patrick, Vidal Denis" sans tenir compte des dates.

Ce que je voulais savoir c'est si on pouvait arriver à choisir le mois ou tous les mois avant le calcul.

J'espère avoir été plus clair si ce n’est pas le cas n’hésite pas.

Merci.

Bonjour

Je ne suis pas formule

Un essai jusqu'à ce quelqu'un trouve plus simple

C'est pas mal Banzai64.

Pour une explication plus simple, pour les autres aussi.

Il est peux être possible depuis l'accueil en cliquant sur le bouton jaune Sauvegarde ouvrir une UserForm pour demander quel (mois ou tous) et en suite sa ouvre la page "Inventaire des codes" en Aperçu avant impression et le calcul du moi choisi.

Merci.

Bonjour

A voir

Et la super Banzai64 tés le meilleur.

Je n’avais pas précisé mais si i l'orientation avait été en Paysage sa serait vraiment parfait.

Merci.

Bonsoir

Une suite

Super merci...

Banzai64

J'ai copier le code dans mon projet final ça marche.

Mais j'ai un problème quand je clique sur la croix rouge pour refermer sans rien faire j'ai un message d'erreur

(en jaune NumMois =-1)

Je ne comprend pas.

Merci

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then NumMois = -1
End Sub

Bonjour

patb12 a écrit :

'ai un message d'erreur

Lequel ?

Tu n'as pas oublié la déclaration des variables ?

En fait j'ai le même problème sur deux Codes (Inventaire des codes et Total des codes) le message d'erreur me dis ----"Erreur d'exécution 6 Dépassement de capacité".

Et pour le moment je ne trouve pas quelle variable j'ai oublié.

Merci.

Bonjour

La variable NumMois est bien déclarée en Integer ?

Sans voir le fichier ce n'est pas facile

Voila mon fichier:

Option Explicit

Sub Inventaire()
Dim Ws As Worksheet

  With UsFMois
    .Label12.Visible = False
    .Frame1.Visible = False
    .CommandButton1.Top = 34.5
    .CommandButton1.Left = 71.25
    .Height = 94.5
    .Show
  End With
  If NumMois = -1 Then
    MsgBox "Aucun mois de choisi : Fin du programme"
    Exit Sub
  End If

  Application.ScreenUpdating = False
  Unload Accueil
  Set Ws = Sheets("Calcul des Taches")
  With Ws
    With .PageSetup
      .Orientation = xlLandscape
      .PrintArea = "$A$1:$H$22"                                   ' Zone d'impression
      .Zoom = False
      .FitToPagesWide = 1
      .FitToPagesTall = 1
      If NumMois = 0 Then
        .CenterHeader = Ws.Name & " annuel"   ' Le titre
      Else
        .CenterHeader = Ws.Name & " mois de " & Application.Proper(MonthName(NumMois))  ' Le titre
      End If
      .CenterHorizontally = True                                  ' Centré horizontalement dans la page
    End With
    .PrintPreview                                                 ' Aperçu avant impression
  End With

End Sub

Bonsoir

patb12 a écrit :

Voila mon fichier:

Non c'est une macro

On ne voit pas la déclaration des variables

En outre tu avais signalé une erreur sur ce code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then NumMois = -1
End Sub
 

Et point de ce code (d'un userform) dans cette macro

S'il faut jouer au chat et à la souris pas évident de trouver la cause du problème

Enlèves les infos personnelles et joins le fichier (Vérifies que l'erreur est toujours présente dans le fichier que tu envois)

Désolé Banzai64 de te faire jouer au chat et a la souris.

J'ai résolu le problème, j'ai transféré tout mon programme final dans le classeur test que tu as fait et tout est OK.

Merci je referme le sujet.