Macro, tri et impression

Version imprimable

Bonjour à tous

Cela fait plus d'une semaine que je travaille à la réalisation d'une macro, avec le peu de connaissances que j'ai sur VBA. J'ai donc décidé de faire appel à votre aide.

Mon objectif est de concevoir une macro, permettant d'effectuer un tri sur données importées.
Une première macro avait été effectuée, elle permettait d'imprimer des graphiques sur tout le mois. Seulement, dans un soucis de lisibilité et d'économie de papier, je dois effectuer le tri sur les données du mois correspondant à des critères, mais après plusieurs tentatives, je n'y arrive toujours pas.
Voici le code de la fonction permettant l'impression de gr "pénalités" ;
Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Private Sub imprimpenal_Click() Dim Ligne As Integer If borneInfpenal.Value > borneSuppenal.Value Then MsgBox "Borne Inf > Borne Sup", , "Erreur de saisie" Else Sheets("PENALITES").Select Dim nbjourpenal As Integer Dim x As Integer nbjourpenal = getnbJourPenal(Sheets("INDEX").Combo_moispenal.Value) For x = borneInfpenal.Value To borneSuppenal.Value Sheets("PENALITES").Range("A3") = getvalmoispenal() & "/" & x & "/" & getvalAnneePenal() & " 5:59" Ligne = Nbre_Ligne Range("B6:F").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("H1:K" & Ligne), Unique:=False Sheets("GRAPH PENALITES").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next x End If Sheets("INDEX").Select End Sub
Les lignes "range" correspondent aux critères de filtre avancés sur la feuille de calcul, mais je ne pense pas que ce soit la démarche à suivre.
"borneInfpenal" correspond au 1er jour de la période, de même que borneSuppenal correspond au dernier jour.

Pourriez-vous me donner un peu d'aide ?

Merci d'avance

Bienvenue au forum,
Pas facile d'aider sur le peu d'éléments fournis.
Une première remarque concernant ces 2 lignes

Code:

1
2
   Ligne = Nbre_Ligne
   Range("B6:F").AdvancedFilter

C'est quoi Nbre_Ligne?
Range("B6:F??" ); il te manque la ligne de la colonne F.

J'ai refais ton code pour la lisibilité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub imprimpenal_Click()
Dim Ligne As Integer, nbjourpenal As Integer, x As Integer
 
If borneInfpenal.Value > borneSuppenal.Value Then
    MsgBox "Borne Inf > Borne Sup", , "Erreur de saisie"
Else
    With Sheets("PENALITES")
        nbjourpenal = getnbJourPenal(Sheets("INDEX").Combo_moispenal.Value)
        For x = borneInfpenal.Value To borneSuppenal.Value
            .Range("A3") = getvalmoispenal() & "/" & x & "/" & getvalAnneePenal() & " 5:59"
            Ligne = Nbre_Ligne
            'Initiative à corriger
            .Range("B6:F" & Ligne).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("H1:K" & Ligne), Unique:=False
            Sheets("GRAPH PENALITES").PrintOut Copies:=1
        Next x
    End With
End If
Sheets("INDEX").Select
End Sub

Merci pour ta réponse rapide.

Voici la fonction Nbre_Ligne, je ne l'ai pas écrite, j'ai un peu de mal à savoir son utilité...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function Nbre_Ligne()
Dim Ligne, Colonne As Integer
Dim fini As Boolean
fini = False
Ligne = 0
Colonne = 8
Do While Ligne <= 5 And Not fini
   Do While IsEmpty(Cells(Ligne + 2, Colonne)) And Colonne <= 11
    Colonne = Colonne + 1
   Loop
  If Colonne <= 11 Then
   Colonne = 8
   Ligne = Ligne + 1
   Else
    fini = True
  End If
Loop
  Nbre_Ligne = Ligne
End Function

18/05/2010, 00h24
mercatog

On ne va pas s'en sortir.
Le mieux de décrire, le plus clairement possible, la disposition des données, ce que tu souhaites obtenir et concrètement, où ça coince.
Vue ta première explication, c'est peu clarifié.
18/05/2010, 00h36
michel0

Désolé pour le manque de clarté, c'est assez complexe à expliquer.
Pour faire simple, je souhaite obtenir ce genre de graphique :
http://img696.imageshack.us/img696/2738/image008l.gif

Donc imprimer les courbes du jour, dès qu'une valeur en dessous des critères est atteinte.
Cette macro est à réaliser dans le cadre d'un stage d'études, cependant je n'ai comme seul bagage "msgBox" pour afficher le nombre de feuilles, et leurs noms...