Variable dans le controle

Voila, j'ai 40 contenu de controle de TEXT à effacer ( de Text1 à Text40) quand je clique sur Command1

Plutôt que de me taper :

Private Sub Command1_Click()

Text1.Text = 0
Text2.Text = 0
'ect ...
Text40.Text = 0

End Sub

J'ai fait :

Private Sub Command1_Click()

For i = 1 To 40
    Text(i).Text = 0
Next

End Sub

Mais ca me met une erreur, pourquoi ?

Salut ;O)

Le plus simple aurait-été de créer un tableau de contrôles Text (avec un index).
Dans ton cas, tu devras utiliser ceci :

For i = 1 To 40
    Me.Controls("Text" & i).Text = 0
Next

Guy

et pour répondre à ta question, l'erreur est dûe au fait que "Text(X)" n'existe pas, puisque tu n'as pas fait de groupe de contrôles

Bonjour, Si tu neux pas modifier ton programme (Créer un groupes de TextBox). Utilise ce code. Private Sub Command1_Click() Dim Obj As Object For Each Obj In Me.Controls If TypeName(Obj) = "TextBox" Then Obj.Text = "" End If Next Obj End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.

Merci à tous d'avoir répondu aussi vite !!

Je suis content de voir que ca marche !!

Maintenant, j'ai toujours le même type de démarche à faire lorsque qu'on appuye sur COMMAND1, il me faut remmetre à zéro les variables publiques
N1, N2, N3 .... N40

For i = 1 To 3
     Me.Controls("N" & i).Caption = O
Next i
   
Label1 = N1
Label2 = N2
Label3 = N3

Jdoit mettre quoi a la place de CONTROLS ?

ou faut t'il utilisé une autre méthode ??

De koi parlais tu PCPT, c'est koi les groupes de controles ??


MERCI A TOUS !

pose un txtbox, et fait en un copier/coller. VB va te proposer de créer un groupe de contrôles.
tu auras alors plusieurs contrôles du même nom, avec la propriété Index (integer) pour les différencier.

ta boucle de départ serait alors correcte. (à supposer que ton contrôle soit nommé "Text" avant le copier/coller)

et pour tes variables, tu ne peux pas.
par contre au lieu de faire 50 variables, tu peux utiliser un tableau.
dim aTabN(1 to 40) as long

dim i as integer
for i=1 to 40
    aTabN(i)=0
next i

il faut aussi ne pas oublier que les types sont importants. VB a beau être flexible, il faut se forcer à être rigoureux.
exemple :
Text1.Text = 0 ' FAUX (integer)
Text1.Text = "0" 'VRAI (string)

Et allez, la deuxième question sur le sujet dans la même journée.

Ca vous arrive de recherche dans le forum avant de poser des questions ? Non parce que cette question, elle tombe toute les semaines !

Désolé Darcksidious, mais je ne savais pas comment rechercher exactement ce que je voulais.

Merci PCPT, c EXACTEMENT !!!! ce qu'il me fallait ;) ;)

Mais .... pour le tableau, c'est ce que j'avais utilisé en premier, mais ...
pas moyen de le déclarer en public  :(

Merci encore ;);)

beh on peut pourtant. t'as du mal faire au passage (genre oublier de le dimentionner?).

---

J'ai mit ça :

Public N()

Private Sub Form_Load()
Dim N(1 To 49)
    For i = 1 To 49
        N(i) = i
    Next
End Sub

Et voici ce que cela me donne

Pas autorisé comme membres publique de module ca me met :s

Aurais-je fait quelque chose qu'il ne faut pas, ou peut être que je n'est pas fait ce qu'il faut ?  lol