Discussion :

[GGerald77]

Bonjour,

J'ai développé une petite application sous Excel VBA qui ouvre une forme contenant différents composants dont des combobox (dont la rowsource est alimentée via des plages de cellules nommées d'une feuille Excel).
Mon problème, à l'utilisation après deux ou trois ouvertures successives de ma form, l'application se fige complètement soit à l'ouverture de la form, soit lorsque l'utilisateur séléctionne un combobox,.... Une seule solution alors, CTRL+ALT+SUPPR, dans le gestionnaire d'application, EXCEL est actif et le compteur de mémoire utilisée augmente !!!
Le debuggage pas à pas plante de la même façon mais jamais sur les mêmes lignes de code.
Pouvez vous m'aider ?

D'avance merci.

Gérald

[ucfoutu]

Bonjour,

On voudrait bien t'aider,

mais sans ton code et sans rien savoir de ce que tu fais , il faudrait être devin !.... ou faire des dizaines de suppositions qui devraient pouvoir être évitées ...

[GGerald77]

Voici le lien vers le fichier : http://dl.free.fr/ekVb3E8FQ/Entretie...l2008-aide.zip

En cliquant demandant à modifier 2 fois de suite le 3ème nom 108328 excel se fige !

D'avance merci pour votre aide.

Gérald

[GGerald77]

Le bon lien vers le fichier est : http://dl.free.fr/encxCLHk5/Entretie...l2008-aide.zip

Pour figer l'application : cliquez une fois sur le 3ème nom puis bouton modifier, passez toutes les étapes puis recommencez cette opération une fois et l'application se fige -> Pas possible de debugger pour un novice comme moi.

[AlainTech]

J'ai fait une série de tests (sans imprimer) sans aucun blocage.

[LeForestier]

Bonsoir,
J'ai probablement détecté le problème, mais une prochaine fois tâche d'être plus précis quand aux circonstances de la panne.
Pour bloquer Excel il faut, à la fin cliquer sur ne pas sauver les modifs et ensuite sur annuler la saisie,
le code bloque, je n'ai pas trouvé pourquoi exactement mais une solution peut-être provisoire, mais en attendant...

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
Sub SaisieTerminee()
    If MsgBox("Souhaitez-vous valider les informations saisies ?", vbYesNo) = vbYes Then
        'Ici la procédure d'enregistrement du choix
        If MsgBox("Souhaitez vous imprimer les informations de ce collaborateur ?", vbYesNo) = vbYes Then
            Call ImprimeSouhaitsIndividuels
        End If
        FinDeSaisie = True
        Call InsereEnregistrement
    Else
        If MsgBox("Souhaitez-vous annuler la saisie ?", vbYesNo) = vbYes Then
            FinDeSaisie = True
            Unload ufSouhaitsalarie
            FinDeSaisie = False
'Supprimé cette ligne, il y à certainement un appel récurant mais c'est difficile
' à trouver puisque chaques fois Excel plante carrément.
        '    Call SelectionneSalarie
'Malgrés que... la pile veux certainement renvoyé ici à la fin de la fonction
'mais comme la feuille est Unloadée elle bloque sur une adresse qui n'existe 
'plus.
        End If
    End If
End Sub

Le seul ennuis c'est qu'il faut recliquer sur la feuille d'acceuil.
Une piste pour relancer, mettre une variable public et la tester dans la page
d'acceuil.
A+