Variable qui se vide sans aucune raison !
Résolu/Fermé
A voir également:
- Variable qui se vide sans aucune raison !
- Pc qui freeze sans raison - Guide
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
- Coeur vide ✓ - Forum Facebook
- Vba range avec variable ✓ - Forum VB / VBA
- Supprimer page vide word - Guide
2 réponses
p'tit cali
Messages postés
66
Date d'inscription
samedi 18 février 2006
Statut
Membre
Dernière intervention
24 mai 2008
16
23 mars 2006 à 21:05
23 mars 2006 à 21:05
Hello...
VB, c'est pas mon fort, mais peut être ça peut te mettre sur la piste
d'abord, dans un module, tout en haut, écrit la ligne suivante:
option explicit
ça permet d'éviter d'utiliser des variables qui n'ont pas été déclarées (contraire à toutes règles de bonne programmation).
(ça je suis moins sûr, c'est au feeling ;))ensuite, ta variable intcompteur est déclarée dans une procédure sub. Sa portée est donc la procédure. Pour pouvoir déclarer une variable au niveau du module, tu dois la déclarer en dehors d'une procédure.
pour un projet, je ne sais pas comment il faut faire, mais je suis sûr qu'il y a une doc là-dessus.
bonne soirée et courage!
VB, c'est pas mon fort, mais peut être ça peut te mettre sur la piste
d'abord, dans un module, tout en haut, écrit la ligne suivante:
option explicit
ça permet d'éviter d'utiliser des variables qui n'ont pas été déclarées (contraire à toutes règles de bonne programmation).
(ça je suis moins sûr, c'est au feeling ;))ensuite, ta variable intcompteur est déclarée dans une procédure sub. Sa portée est donc la procédure. Pour pouvoir déclarer une variable au niveau du module, tu dois la déclarer en dehors d'une procédure.
pour un projet, je ne sais pas comment il faut faire, mais je suis sûr qu'il y a une doc là-dessus.
bonne soirée et courage!
Utilisateur anonyme
24 mars 2006 à 14:02
24 mars 2006 à 14:02
Bonjour,
'-------------------------------
Dim intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
pour être reconnu dans tous le projet !
'-------------------------------
Public intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
Lupin
'-------------------------------
Dim intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
pour être reconnu dans tous le projet !
'-------------------------------
Public intcompteur As Integer
Private Sub Form_Load()
intcompteur = 2
End Sub
Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
'-------------------------------
Lupin
