Bug dans l’initialisation du programme

Version imprimable

08/06/2011, 08h58
Galere05

Bug dans l’initialisation du programme

Bonjour,

Depuis hier, je bloque sur un bug vraiment bizarre.
J'ai une application (VBA Excel) qui initialise une première fenêtre. Dans cette fenêtre je fais un choix ( est ou ouest) et l'application est censé charger des données et affiché une nouvelle fenêtre.
Le problème est survenu hier alors que le programme fonctionne depuis plusieurs mois sans problème.
J'ai remarqué que lorsque je fait "Pause" dans l'appli et que je regarde le débogage, je me rend compte que ce n'est pas toujours à la même ligne, mais toujours dans la procédure UserForm_Initialize().
Le pire c'est qu'a ce moment là, je laisse continuer l'application (F5) et ça fonctionne, la nouvelle fenêtre apparaît alors que si je n'avais pas fait la manip j'aurai pu attendre indéfiniment.

Voila, donc je bloque depuis.

Avez vous une idée de ce que ça pourrait être. Merci
08/06/2011, 09h03
Paritec

bonjour Galère05 le forum
si cela est récurant, passe nous ton fichier sans informations confidentielles que l'on puisse t'aider
a+
papou:)
08/06/2011, 09h14
Galere05

j'ai peur qu'il soit trop imposant ( le code n'est pas de moi, il a été developpé par un étudiant et moi je suis censé l'améliorer et rajouter des options).
Y a t-il quelque chose à vérifier à tout prix ou je ne sais pas?
08/06/2011, 09h37
fring

Bonjour,

Il n'est pas nécessaire, dans un premier temps, de joindre le fichier mais afin que les gens puissent t'aider, il est indispensable de montrer le(s) code(s) qui coince(nt).

ok, j'ai l'impression que ca coince au niveau de ce morceau

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
27
28
 
With ThisWorkbook.Worksheets("pressepapier")
            .Paste .Cells(1, 1)
            Set sel = .Range(.Range("A1:I1"), .Range("A60000:I60000").End(xlUp))
            'inserer les mp
            If DatePart("w", Date) = 1 Or DatePart("w", Date) = 7 Or Time > TimeValue("17:00:00") Or Time < TimeValue("7:00:00") Then
                For Each rw In sel.Rows
                    If estDifficile(rw.Cells(1, 2)) Then
                        If Not estHO(rw.Cells(1, 2)) Then
                            ListBoxSa.AddItem rw.Cells(1, 2)
                        End If
                    End If
                Next rw
            Else
                For Each rw In sel.Rows
                    If estDifficile(rw.Cells(1, 2)) Then
                        ListBoxSa.AddItem rw.Cells(1, 2)
                    End If
                Next rw
            End If
            .Cells.Delete
            'si il n'y a pas de MP, une ligne parasite apparait. La supprimer
            If ListBoxSa.ListCount = 1 Then
                If ListBoxSa.List(0, 0) = "Poste technique" Then
                    ListBoxSa.RemoveItem 0
                End If
            End If
        End With

le code de estdifficile

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Fonction qui détermine si une mp est difficile ou non
Private Function estDifficile(designation As String) As Boolean
 
    Dim trouve As Boolean
 
    trouve = False
 
    'tente de trouver la mp dans la liste des difficiles
    With ThisWorkbook.wbase.Worksheets("MPDiff")
        Set C = .Range(.Range("A1"), .Range("A6000").End(xlUp)).Find(designation)
        'si elle y est, renvoie vrai
        If Not C Is Nothing Then
            trouve = True
        End If
    End With
    estDifficile = trouve
End Function

08/06/2011, 12h48
Galere05

Je viens de voir que c'est une boucle qui tourne dans le vide. Je vais régler le problème.
Par contre, je ne sais pas comment il fait pour sortir de la boucle quand je stop et reprend le programme.

Merci pour l'aide