Discussion :

[michel0]

Salut à tous

J'ai écris le code pour une fonction permettant d'imprimer des graphiques selon des critères, mais au moment de l'utiliser j'ai une erreur de compilation "next sans for".
J'ai essayé de bouger le next et le for mais ça ne fonctionne pas.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
 
Private Sub imprimpenal_Click()
 
Dim continu As Boolean
continu = True
If borneInfpenal.Value > borneSuppenal.Value Then continu = False
 
If continu Then
    Windows("graphPenalités v2.xls").Activate
 
Dim nbjourpenal As Integer
Dim i As Integer
nbjourpenal = getnbjourpenal(Sheets("INDEX").Combo_moispenal.Value)
 
Dim Numero_Ligne_Visible As Integer
For i = borneInfpenal.Value To borneSuppenal.Value
           Sheets("PENALITES").Range("A3") = getvalmoispenal() & "/" & i & "/" & getvalAnneepenal() & " 5:59"
Range("B6:F1446").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("J1:K2"), Unique:=False   ''on filtre
 Numero_Ligne_Visible = Range("B7:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Row  ''donne le n° de la ligne visible sinon donne 6 le n° de la ligne d'étiquette de la liste de données
If Numero_Ligne_Visible <> 6 Then
        ActiveSheet.ShowAllData  '' on défiltre c'est-à-dire on affiche tout
        Sheets("GRAPH PENALITES").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1  
 
Next i
 
 
Else
 
    MsgBox "Borne Inf > Borne Sup !"
 
End If
Sheets("INDEX").Select
 
End Sub

Pourriez-vous me dire d'où ça vient ?

Merci d'avance

[zyhack]

Bonjour

il te manque un End if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
Private Sub imprimpenal_Click()
Dim nbjourpenal As Integer
Dim i As Integer
Dim continu As Boolean
Dim Numero_Ligne_Visible As Integer
continu = True
If borneInfpenal.Value > borneSuppenal.Value Then continu = False
 
If continu Then
    Windows("graphPenalités v2.xls").Activate
 
  nbjourpenal = getnbjourpenal(Sheets("INDEX").Combo_moispenal.Value)
 
  For i = borneInfpenal.Value To borneSuppenal.Value
           Sheets("PENALITES").Range("A3") = getvalmoispenal() & "/" & i & "/" & getvalAnneepenal() & " 5:59"
    Range("B6:F1446").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("J1:K2"), Unique:=False   ''on filtre
    Numero_Ligne_Visible = Range("B7:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Row  ''donne le n° de la ligne visible sinon donne 6 le n° de la ligne d'étiquette de la liste de données
    If Numero_Ligne_Visible <> 6 Then
        ActiveSheet.ShowAllData  '' on défiltre c'est-à-dire on affiche tout
        Sheets("GRAPH PENALITES").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    End If ' ###  il manquait ici
 
  Next i
 
Else
 
    MsgBox "Borne Inf > Borne Sup !"
 
End If
Sheets("INDEX").Select
 
End Sub

a+

[michel0]

Merci ça fonctionne mieux !
J'ai encore une erreur, pourtant ça me parait correct.
Lorsque je souhaite utiliser la fonction, j'ai "la méthode ShowAllData de la classe Worsheet a échoué".

Je ne vois pas d'où ça peut provenir !

[mercatog]

Essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Numero_Ligne_Visible = Range("B6:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Count
If Numero_Ligne_Visible > 1 Then

ou si tu veux laisser ta variante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Numero_Ligne_Visible = Range("B6:B" & Range("B65536").End(xlUp).Row).SpecialCells(xlVisible).Row  ''donne le n° de la ligne visible sinon donne 6 le n° de la ligne d'étiquette de la liste de données
    If Numero_Ligne_Visible <> 6 Then