Form qui reste figée

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

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 ...

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

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.

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

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:

---

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+

Bonjour,

Merci pour cette aide. Je suis désolé du manque de clareté. Effectivement en retirant l'appel à Selectionnesalarié semble ne plus faire planter Excel, je vais tester plus en détail sur quelques fichier. Je ne comprends par contre pas quelle erreur j'ai faite !
C'est quoi l'appel récursif que vous évoquez ?

Gérald

Bonjour,
Un appel récursif ce serait une fonction qui se rappel elle-même et si ce n'est pas gérer, se rappel en boucle indéfiniment d'où bloquage de l'appli.
L'erreur c'est comme expliquer plus haut, je détail..
1°)Appel à la fonction SelectionneSalarie
2°)Dans cette fonction Unload de la feuille...
3°) fin de la fonction SelectionneSalarie
4°)Le pointeur de pile veux retourner à la fin de l'appel et ne trouve plus une adresse valide vu que la feuille qui a fait l'appel à été déchargée.
Pour comprendre il faut avoir un minimum de connaissance sur la pile et le pointeur de pile bien sur.
J'espère que c'était suffisament clair. :D
A+

Il serait intéressant de savoir sur quelle ligne ton programme plante. S'il plante dans l'usf, la seule manière de la repérer est de mettre un point d'arrêt dans le code de l'usf, avant l'événement (le clic sur un bouton, la sélection d'un contrôle, la saisie d'une donnée...) qui va planter VBA.
Ensuite, tu poursuis le programme en pas à pas. Quand ça plante, c'est là ! ;)
Et tu nous donnes l'info.
Une chose me paraît susceptible de faire planter ton programme : Tu actives tes feuilles pour travailler dessus... Je supprimerais tous tes Select ou Activate concernant les feuilles et remplacerais ça par une instanciation de tes feuilles.
Tu serais au moins certain de ne pas commettre d'erreur.
Ce qui n'enlève rien à l'analyse qu'en fait LeForestier...

Edit
Sans en analyser toutes les raisons, j'ai trouvé deux sources d'erreur
1 - Dans Valide_Matricule, la procédure plante sur

Code:

---

.cbFormationInitiale.SetFocus 'On active le pointage vers les points forts

---

Pièce jointe 19291
2 - Sur ces deux lignes, l'ordre de fermeture semble inversé.

Code:

---

1 2	Unload ufMatriculesSaisies Unload ufSouhaitsalarie

---

(Comme j'ai modifié, je ne sais plus l'ordre d'origine)
Tu sais que, lorsque tu fermes une feuille, plus aucun code ne s'exécute sur cette feuille. Je ne placerais pas le code qui suit ces deux lignes ici (-> Evénement cbModifierSalarie_Click dans ufMatriculesSaisies) mais dans l'usf que tu ouvres.
Tu peux partager tes actions
Load Usf... -> l'usf se charge avec les données qui vont bien
Usf...show -> l'usf s'affiche
A toutes fins utiles

PS - Pour vérifier ce que je viens de mettre, j'ai mis un point d'arrêt sur le bouton "Modifier" et j'ai fait du pas à pas ;)

Edit (re)
Tiens, puisque je l'ai fait, juste pour te montrer comment ne pas sélectionner tes feuilles ni tes plages de cellules
Les déclarations

Code:

---

Public FLSaisie_utilisateur As Worksheet

---

Dans Auto_Open

Code:

---

1 2 3

Sub auto_open() Dim ListeDesClasseurs As Workbook Set FLSaisie_utilisateur = Worksheets("Saisie_utilisateur")

---

Ainsi ces instances restent valides dans tous les usf que tu ouvres
Exemple de simplification que cela permet :

Code:

---

1 2 3 4 5 6 7

Sub EffaceFeuilleSaisie() FLSaisie_utilisateur.Range("B1:B6").ClearContents FLSaisie_utilisateur.Range("B12:B70").ClearContents Range("SaisieChangementFonction").Value = False Range("SaisieMobile").Value = False Range("SaisieModificationBSI").Value = False End Sub

---

Comme ton projet est pratiquement fini (à quelques bricoles près) je ne te conseille pas de tout modifier mais pour la prochaine fois... ;)

Merci pour ces réponses riches, j'ai quelques heures je pense ;-) de méditation et d'étude afin de bien digérer les informations transmises

Gérald