Discussion :

[vincedu74]

Bonjour,

Les fonctions notées (X) ne s’executent pas. Elles sont pourtant basiques... Est ce que quelqu'un a une idée ?

Ce classeur est créé à partir d'un premier classeur. Le nom de la feuille lors de l'affichage de la Msgbox est bien le bon;...

En executant via la touche F8 le programme surligne bien en jaune ces quelques lignes.

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
36
37
38
39
40
41
42
43
44
Sub toprovidebefore_Cliquer()
 
Dim NoM As Date
Dim i As Integer
Dim LastLig As Integer
Dim Active As String
On Error GoTo Errorhandler
 
NoM = CDate(InputBox("Documents to provide before (DD/MM/YY) : ", "Before DD/MM/YY"))
 
Active = ActiveSheet.Name
Sheets(Active).Select
MsgBox (Active)
 
 
Range("C2").Value = "To provide before"                 (X)
Range("C2").Font.Bold = True                                 (X)
Range("C2").Font.ColorIndex = 2                            (X)
Range("F2").Value = NoM                                       (X) 
 
Application.ScreenUpdating = False
LastLig = Range("A" & Rows.Count).End(xlUp).Row
MsgBox (ActiveSheet.Name)
MsgBox (LastLig)
 
For i = 4 To LastLig                                                 (X)
If Range("F" & i) < Range("F2") Then
Range("J" & i) = "x"
Else
Range("J" & i) = "xxx"
End If
Next
 
 
With Worksheets(Active)
   .AutoFilterMode = False
 
      .Range("A3:J" & LastLig).AutoFilter Field:=7, Criteria1:=""
      .Range("A3:J" & LastLig).AutoFilter Field:=10, Criteria1:="x"
Application.ScreenUpdating = True
End With
Exit Sub
Errorhandler:
End Sub

[Philippe Tulliez]

Bonjour,
Lors de la phase de tests et surtout si tu ne prévois pas de message d'erreur à l'étiquette Errorhandler supprime le On Error qui te permettra de visualiser où se situe le problème.

[chth26]

Essaye ca

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
36
37
38
39
Sub toprovidebefore_Cliquer()
    Dim NoM As Date
    Dim i As Integer
    Dim LastLig As Integer
    Dim ExcelSheet As Object
 
    On Error GoTo Errorhandler
 
    Set ExcelSheet = ActiveSheet
 
    NoM = CDate(InputBox("Documents to provide before (DD/MM/YY) : ", "Before DD/MM/YY"))
 
    ExcelSheet.Range("C2").Value = "To provide before"
    ExcelSheet.Range("C2").Font.Bold = True
    ExcelSheet.Range("C2").Font.ColorIndex = 1
    ExcelSheet.Range("F2").Value = NoM
 
    Application.ScreenUpdating = False
    LastLig = ExcelSheet.Range("A" & ExcelSheet.Rows.Count).End(xlUp).Row
    MsgBox (ExcelSheet.Name)
    MsgBox (LastLig)
 
    For i = 4 To LastLig
        If ExcelSheet.Range("F" & i) < ExcelSheet.Range("F2") Then
            ExcelSheet.Range("J" & i) = "x"
        Else
            ExcelSheet.Range("J" & i) = "xxx"
        End If
    Next
 
    With ExcelSheet
        .AutoFilterMode = False
        .Range("A3:J" & LastLig).AutoFilter Field:=7, Criteria1:=""
        .Range("A3:J" & LastLig).AutoFilter Field:=10, Criteria1:="x"
        Application.ScreenUpdating = True
    End With
    Exit Sub
Errorhandler:
End Sub

[vincedu74]

Merci à vous deux,

Il n'y avait en-soi pas de bug mais une page excel qui ne s'activait pas.

Chth26
Qu'est ce qui a été mal fait dans mon code ?

EN vous remerciant beaucoup tous les deux !

[chth26]

Merci à vous deux,

Il n'y avait en-soi pas de bug mais une page excel qui ne s'activait pas.

Chth26
Qu'est ce qui a été mal fait dans mon code ?

EN vous remerciant beaucoup tous les deux !

Pour ma part, j'essaye toujours de spécifier au maximum sur quel workbook et quelle worksheet je travaille.
Dans l'idéal, je ne travaille jamais avec ActiveSheet.
Ton code était bon mais devait pas s'executer sur le bon workbook.

[Menhir]

Commence par supprimer cette ligne :

Code :

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

On Error GoTo Errorhandler

On ne fait pas du déguggage à l'aveugle.

[Philippe Tulliez]

Bonjour vincedu74,

Il n'y avait en-soi pas de bug mais une page excel qui ne s'activait pas.

Libre à toi de penser qu'il n'y avait pas de bug.
Je t'ai indiqué dans ma réponse de supprimer le On Error que Menhir t'a suggéré également.

Utiliser un On Error sans intercepter réellement l'erreur, c'est comme prendre de l'aspirine quand on a de la fièvre. On masque le problème.