Discussion :

[oldergod]

Bonjour,

je n'arrive pas à comprendre l'origine de mon problème donc je décrirai le contexte dans lequel il se produit.

Résumé: quand je clique sur le bouton qui doit charger un formulaire - Erreur fatale (rapport windows et cie)

Contexte: Excel Pro 2003.

La première feuille du fichier contient quelques inputs et 5 boutons.
Le bouton sur lequel je clique a dans son code:

Code :

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

1
2
3
4
Load formulaire
'add item aux combobox...
'...
formulaire.Show

Jai parcouru l'ensemble du code et rien ne laisse prétendre que du code s'éxécute à louverture du fichier. Pourtant, une fois ouvert, si je souhaite le refermer dans la foulée, il me demande si je veux sauvegarder les modifs apportées au fichier. Si je fais oui, le fichier passe de 3,5Mo à 2Mo.
Je refais la même opération, il passe à 2,4Mo... Puis reste fixe.
Donc sinon, à l'ouverture du fichier, si je clique sur le bouton pour ouvrir le formulaire, j'ai donc l'erreur fatale windows sur Excel.

Ce qui est encore plus bizarre. Si je vais dans le code sans même y avoir apporté de modifications (ou si jamais, je modifie un peu du code, que je ferme le programme en sauvant); là, ça marche ! Je ne sais pas vraiment pas pourquoi ça fait tout ça. Je n'ai pas programmé ça, je reprends le taf d'un ancien stagiaire.

ps bonus: quand je déclare une fonction, il ne veut pas que le return puisse avoir d'argument...

Merci d'avance pour les pistes ou solutions.

[Jean-Philippe André]

bonjour,
peux-tu nous montrer ton code dans la partie initialize de ton usf stp ?

[oldergod]

C'est vide, il n'y a aucune ligne de code. Seulement sur la QueryClose.

[fred65200]

bonsoir,

j'ai eu un problème quasiment similaire sur Mac, il y a quelques années.
Avec des classeurs qui prenaient du poids genre classeur sumotori.

Pour palier à ce problème j'ai entre autre exporter tous les modules du projet VBA en fichier texte (.bas, .frm, etc), supprimer ou effacer le code et importer les fichiers précédemment exporter.

en espérant que cela t'aidera.
cordialement

[oldergod]

Pas beaucoup de changement

Merci quand même Fred.

Ne serait pas possible de réaliser une sorte d'initialisation des mémoires lors de l'initialize de l'usf ou quelque chose qui y ressemblerait?
Est-il aussi possible de faire réaliser au programme du pas à pas sans aller dans le code? Car si j'y vais, ça marche, si j'y vais pas ça marche pas.

Cela peut-il etre dur à des "load" de formulaire un peu trop tot, ou alors des add d'items au mauvais moment? Si je souhaite placer les add dans l'active de mon usf, cela veut-il dire qu'il faut charger tous les formulaires pour pouvoir add tous les items ou on peut faire une sélection en fonction du formulaire chargé?

[Pierre Fauconnier]

Peux-tu donner ton code, en ne laissant que deux ou trois lignes d'ajout des items aux combo (on n'a pas besoin, a priori, de la litanie complète)

[oldergod]

Le code du bouton sur la feuille principale est celui ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton1_QuandClic() 'Clic sur le bouton "Saisie de bilans et de comptes de résultat + calcul des ratios"
 
Load FormDonnees 'Chargement du formulaire FormDonnees + initialisation du formulaire avec ajout des données dans les comboBox
FormDonnees.ComboBox1.AddItem "USD"
FormDonnees.ComboBox1.AddItem "Euro"
[...]
FormDonnees.ComboBox40.AddItem "Autre"
FormDonnees.ComboBox40.AddItem "Aucune"
FormDonnees.Show 'Apparition du formulaire à l'écran
End Sub

Il n'y a pas de code dans d'autre évènement que les QuandClic des boutons présents. Pour l'USF, rien d'autre que la QueryClose ne contient du code.

[fred65200]

bonjour le fil

ce code semble correct.
Peux tu à tout hasard montrer le code Query Close?

cordialement

[oldergod]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_QueryClose(Cancel As Integer, closemode As Integer) 'Clic sur la croix de fermeture du formulaire
If closemode <> 1 Then
    Dim vréponse As Integer
    vréponse = MsgBox("Etes-vous sûrs de vouloir quitter ?", vbYesNo, "Attention")
        If vréponse = vbNo Then
            Cancel = 1
        End If
End If
End Sub

Enfin, sans même avoir ouvert un formulaire, le programme me demande bien si je veux sauver les modifs lors de la fermeture du fichier.

[fred65200]

re

Pas de crash chez moi.
Désolé

NB as tu du code dans Thisworkbook ou dans les modules de feuilles?

[Pierre Fauconnier]

Place un point d'arrêt sur

Code :

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

Sub Bouton1_QuandClic() 'Clic sur le bouton "Saisie de bilans et de comptes de résultat + calcul des ratios"

puis clique sur ton bouton, et suis la procédure pas-à-pas (F8) jusqu'au plantage...

[oldergod]

Si jamais certains s'y connaissent là dedans:

[Pierre Fauconnier]

A tout hasard, cela fait parfois des miracles.

Ferme Excel puis saisis

Code :

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

1
2
 
excel.exe /regsvr

en ligne de commande. Cela va enregistrer à nouveau les clés d'Excel dans la base des registres.

[oldergod]

puis clique sur ton bouton, et suis la procédure pas-à-pas (F8) jusqu'au plantage...

Le truc que je comprends encore moins, c'est que donc, si je vais sous le VBEditor et que je place des pts d'arrêts ou que même je ne fasse rien de plus qu'à part y être aller. Le programme ne plante pas...

[zazaraignée]

Personnellement, je mettrais les AddItem de mes ComboBox dans l'événement Load du UserForm. Et dans le code du bouton, je ne mettrais que la ligne suivante:

Code :

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

1
2
3
Sub Bouton1_QuandClic()
    FormDonnees.Show
End Sub

Vérifie aussi que ton UserForm est bel et bien nommé FormDonnees.

Ceci dit, si tes ComboBox font référence à des listes de paramètres, entêtes de colonnes où autres infos qui peuvent déjà se trouver sur une feuille de calcul, tu peux référencer le contenu ce tes ComboBox en renseignant leur propriété RowSource avec l'adresse des cellules où se trouve leurs contenus respectifs.

[oldergod]

J'ai déplacé tous les additem dans le activate du usf et c'est lors de cette exécution que ça plante. Serait-possible qu'il y en est trop? et qu'il faudrait faire faire une "pause" au programme entre temps?

Alors, après avoir isolé les addItem.. j'arrive peut-être un peu mieux à décrire le problème.

J'ai l'impression qu'il y a un sorte de buffer qui se remplit lorsque j'ouvre le formulaire et que les additem se font. Appelons A, la situation, jai modif le code, j'ai save. B, et la situation où j'aurai ouvert le formulaire, puis save/quit.

Quand je suis en A, il n'y a aucun problème, jamais.

Quand je suis en B, Tout a l'air bien mais qd j'ouvre le formulaire et lorsqu'un addItem s'exécute... paf. Sur la queryclose, je fais un unload du form. Y a-t-il d'autre chose à faire pour "réinitialiser" une mémoire quelconque?

Edit: J'ai (pour tester) enlevé la protection du code qui était incluse dans le fichier. Maintenant, cela ne génère plus d'erreur. Je pourrai peut-être me contenter de ça bien que je ne sache toujours pas pourquoi le programme plante; et je vais surement devoir le livrer avec la protection...