Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
-------------------------------

Private Sub Form_Load()
Dim intcompteur As Integer
intcompteur = 2
End Sub
-------------------------------

C'est un programme bien simple qui fait afficher la variable intcompteur dans la boite texte sa valeur. Lorsque je démare le programme, " intcompteur = 2 ", il enresgitre 2 dans intcompteur, lorsque je click sur le bouton "Command1", il affiche rien dans le texte car la variable c'est vider. Pourquoi la variable ce vide, je n'y comprend plus rien

si tu avais mis "Option Explicit" au tout début de ta feuille, tu aurais compris pourquoi.

ta variable intcompteur telle que tu l'as déclarée n'existe que dans la procédure "Form_Load". La variable intcompteur dans le Command1_Click est une varaible totalement différente de l'autre même si elles ont le même nom.

Avec l'Option Explicit tu l'aurais vu car VB t'aurais jeter une erreur à la compilation ou l'execution. Ta seconde variable n'est pas déclarée en fait.

Pour ton problème, il faut que tu déclare ta variable  comme globale, c'est à dire en dehors de toute procédure

Dim intcompteur As Integer

Private Sub Command1_Click()
Text1.Text = intcompteur
End Sub
-------------------------------

Private Sub Form_Load()
Dim intcompteur As Integer
intcompteur = 2
End Sub
-------------------------------

---

Salut,
En complément j'ajouterai que Si tu declare une variable dans un procedure et qu un variable existe deja avec le meme nom pour la feuille, Il n y a pas d'erreur qui se produira mais la procedure accedera a la variable declaree localement plutot qu a la globale.

Exemple: Le code suivant est correct (bien que pas recommandé) et affichera 0 dans le textbox

Option Explicit
Dim i As Integer

Private Sub Form_Load()
Dim i As Integer
i = 100
End Sub

Private Sub Command1_Click()
Text1.Text = i
End Sub


@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

j'ajouterais encore une couche : lances ton programme (avec Option Explicit) en pressant Ctrl + F5

Renfield
Admin CodeS-SourceS - MVP Visual Basic