excel a rencontré un probléme etc...(?????)

[néné06]

Bonsoir le Forum.

Je rencontre un probléme sur mon programme.

Lorsque j'ouvre pour le premiere fois mon prog ,cela fonctionne.

Si je sauve en enregistrant lors de la fermeture et que je relance ce prog,le message apparait????

si je rentre dans le code et que je modifie puis sauve, réouverture normale puis
aprés sauvegarde le prog plante????

J'ai constaté que l'erreur semble venir dans mon prog au niveau du gotoJJ:
que j'ai placé pour repérer l'erreur.

Si quelqu'un avait une piste ,voir une solution.
Dois-je retaper tout mon code sur un autre classeur avec création des USF????

Merci pour votre aide.

 

[ROGER2327]

Re : excel a rencontré un probléme etc...(?????)

Re...
Bonsoir néné06

Étrange affaire. J'ai ouvert puis refermer votre classeur à plusieurs reprises, avec ou sans GoTo jj : pas de plantage.​

ROGER2327
#3687

Vendredi 27 Merdre 137 (Saints Courts et Longs, gendarmes, SQ)
25 Prairial An CCXVIII
2010-W23-7T23:49:32Z

 

[camarchepas]

Re : excel a rencontré un probléme etc...(?????)

Bonjour,

Pour moi également tous va bien , même en sauvegardant et sans le goto?

Peut être un problème de configuration micro ou un programme de fond incompatible?

Peux-tu essayer sur un autre ordi ?

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour Roger2327,Camarchepas

J'ai essayé sur mon portable et j'ai le méme probléme.
Aprés avoir enlevé le Goto JJ: ,Executé le programme "qui fonctionne" ,sauvé le programme,qui à ce moment passe de 124 ko à 188 ko ???, je relance le prog et là ????

Plantage ???

Peut etre un des mystères de l'informatique ????????????


Merci à vous tous .

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour à tous.

Quelqu'un à t'il essayé ce programme et obtenu le méme plantage?

Merci pour vos réponces.

 

[Efgé]

Re : excel a rencontré un probléme etc...(?????)

Bonjour néné06, camarchepas, Bonjour ROGER2327,
Je n'ai pas de plantage, sous 2003, sur la réouverture du classeur.
Par contre l'USF me parait "étrange" à l'affichage :

Peut être que la gestion des emplacements est une piste...
C'est juste pour faire avancé le Schmilblik..
Cordialement

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour Efgé

Oui mon USF est bizarre car j'ai enlevé toutes les positions des Labels pour gagner de la place.
Mais a tu bien réenregistré la feuille apres le premier essai et relancé une seconde fois le prog sauvegardé?
Pour moi c'est à ce moment que cela plante.
Je suis sur excel2000

Merci de t'etre penchés sur ce cas.

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Je viens de constater que sur l'affichage que tu m'a envoyé tu n'a pas enlevé le code GOTO JJ: et c'est pour cela qu'il ne plante pas.

A+

 

[Efgé]

Re : excel a rencontré un probléme etc...(?????)

Re à tous,
Avec ou sans GoTo jj pas de plantage.
Sans le Goto: Bon affichage du USF
Cordialement

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Et bien je vais me reprendre ce programme au debut !

Merci pour tout.

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour à tous .
J'ai resolu le probléme en plaçant 'les instructions controls
For toura = 6 To 10
Controls("LB" & toura).Top = Int(Application.Height * 0.2)
Controls("LB" & toura).Height = Int(Application.Height * 0.032)
Controls("LB" & toura).Font.Size = Int(Application.Height * 0.025)
Next toura
For toura = 11 To 31
Controls("LB" & toura).Top = Int(Application.Height * 0.2) + Int(Application.Height * 0.032)
Controls("LB" & toura).Height = Int(Application.Height * 0.025)
Controls("LB" & toura).Font.Size = Int(Application.Height * 0.015)
Next toura
For toura = 12 To 31
Controls("LB" & toura).Width = TextBox21.Width
Controls("LB" & toura).Left = Controls("Textbox" & ((toura - 10) * 20)).Left
Next toura
For toura = 16 To 31 Step 5
Controls("LB" & toura).Width = TextBox101.Width
Next toura
For toura = 7 To 10
Controls("LB" & toura).Width = (TextBox101.Width + TextBox101.Left) - TextBox21.Left
Next toura
For toura = 6 To 11 Step 5
Controls("LB" & toura).Width = Int(Application.Width * 0.2)
Controls("LB" & toura).Left = TextBox1.Left
Next toura
For toura = 7 To 10
Controls("LB" & toura).Left = Controls("TextBox" & (((toura - 7) * 100) + 21)).Left
Next toura
Ce n'est pas trés beau mais cela à le mérite de ne plus planter???

Merci à tous

 

[Compte Supprimé 979]

Re : excel a rencontré un probléme etc...(?????)

Bonsoir Néné06,

Quand le code se trouve dans le conteneur des controles,
tu peux utiliser l'instruction "Me"

For toura = 6 To 10
Me("LB" & toura).Top = Int(Application.Height * 0.2)
Me("LB" & toura).Height = Int(Application.Height * 0.032)
Me("LB" & toura).Font.Size = Int(Application.Height * 0.025)
Next toura

A+

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour le Forum.

Avec l'instruction "ME" ou "Controls" , je n'ai pas de plantage.
Me("LB" & toura).Top = Int(Application.Height * 0.2) => OK
Controls("LB" & toura).Top = Int(Application.Height * 0.2) => OK

mais si j'utilise dans le style
LB1.Top = Int(Application.Height * 0.2) => Plantage aléatoire avec ("Excel etc...)

Pas à chaque fois.

J'ai essayé sur deux ordi avec version excel diffé ,et j'ai eus les plantages aléatoires.

Certains d'entre vous ont_ils eut le méme probléme ????????

 

[Staple1600]

Re : excel a rencontré un probléme etc...(?????)

Bonjour tous


Personnellement je ne suis pas d'accord avec ceci

Public tour As Double
Public toura As Double

Je verrais cela en Long non ?

PS: Me trompe-je ?

 

[néné06]

Re : excel a rencontré un probléme etc...(?????)

Bonjour Staple1600

Je ne pense pas que la plantage provient du (double,long,variant,integer et autres,mais plutot de l'utilisation de (. Top,Left,Width etc) sans placer l'instruction Controls ou alors c'est mes ordi que je dois apporter à la déchéterie,ce qui n'est pas impossible.
Peut etre d'autres Xnautes ont ils eut ce probléme??

A+