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

ROGER2327

XLDnaute Barbatruc

• 14 Juin 2010

• #2

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #3

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 ?

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #4

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 .

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #5

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.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 14 Juin 2010

• #6

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

 

Pièces jointes

• USF.jpg

  24.5 KB · Affichages: 127
• USF.jpg

  24.5 KB · Affichages: 128

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #7

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.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #8

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+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 14 Juin 2010

• #9

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #10

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

Et bien je vais me reprendre ce programme au debut !

Merci pour tout.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 14 Juin 2010

• #11

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Juin 2010

• #12

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"

Code:

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+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 26 Juin 2010

• #13

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Juin 2010

• #14

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

Bonjour tous


Personnellement je ne suis pas d'accord avec ceci

Code:

Public tour As Double
Public toura As Double

Je verrais cela en Long non ?

PS: Me trompe-je ?

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 26 Juin 2010

• #15

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+

 

Vote positif 0 Vote négatif