Probleme Résolu Nouveau Problème Compteurs mis à -1

[craig974]

Bonjour a tous,

Voila mon application marchait bien jusqu'au moment ou j'ai du faire une mauvaise manip et maintenant a chaque fois l'erreur 13 s'affiche et souligne userform1.show dans l'userform2. je suppose que l'erreur se trouve dans l'userform1 mais je ne trouve rien, j'ai l'impression que tout est correct par rapport au fichier qui marchait.

Pouvez vous y jeter un coup d'oeil pour savoir ce qui ne fonctionne pas merci d'avance ?
Cijoint.fr - Service gratuit de dépôt de fichiers

Tout les mots de passe sont 1234

 

[craig974]

Re : Erreur 13 userform1.show

Le problème vient apparement de ces lignes (quand on fait un pas à pas )

TextBox15.Value = GetSetting("Mes paramètres", "TextBox15", "valeur TextBox15")
compteur = CByte(TextBox15.Value)
TextBox16.Value = GetSetting("Mes paramètres", "TextBox16", "valeur TextBox16")
mcompteur = CByte(TextBox16.Value)
TextBox17.Value = GetSetting("Mes paramètres", "TextBox17", "valeur TextBox17")
dcompteur = CByte(TextBox17.Value)
TextBox18.Value = GetSetting("Mes paramètres", "TextBox18", "valeur TextBox18")
vcompteur = CByte(TextBox18.Value)

mais je ne comprend rien rien n'a changé par rapport a l'autre

 

[Efgé]

Re : Erreur 13 userform1.show

Bonjour craig974 , le fil, le forum
Cela ne doit pas tout résoudre mais commence par changer tous les" Dim x As Byte " par "Dim x As Long " , puis change les Cbyte et CLong par IsNumeric.
Ton USF1 s'affiche. Je n'ai pas été plus loins.
Cordialement

 

[craig974]

Salut Efgé,

Merci beaucoup ça fonctionne.

 

[craig974]

Re : Probleme Résolu Nouveau Problème Compteurs mis à -1

Et dernier Problème normalement (en tout cas le dernier avant un nouveau ...) :
Quand je quitte et que je relance l'application tous mes compteurs sont à -1 et non à la valeur à laquelles ont les a laissés

 

[craig974]

Re : Probleme Résolu Nouveau Problème Compteurs mis à -1

Je joint le fichier qui marche sauf au niveau de ce problème de compteurs. Le bouton enregistrer enregistres et quittes, alors que le bouton quitter normalement ne fait que quitter remet compteur textbox et checkbox à zero. Cijoint.fr - Service gratuit de dépôt de fichiers

 

[craig974]

Re : Probleme Résolu Nouveau Problème Compteurs mis à -1

Problème résolu mettre comme tu disais en Dim x as long mais après pas mettre IsNumeric mais mettre CLng