Bonjour,


       Je suis débutant,

voila mon problème : je cherche à incrémenter une textbox mais pas son contenu en fait je veus faire une boucle qui me permet de passer à une autre textbox
Je voudrais comparer le contenu de la text1.text au contenu de 100 autres textbox mais je ne veus pas taper 100 fois la même ligne.

text1.text = text1.text 
text1.text =t ext2.text
text1.text =t ext3.text
       etc ....
Je cherche une boucle de se style la
Dim n as integer
for n =1 to 100 step1
  text1.text = text(n)
next n
Cette boucle ne marche pas mais je voudrais connaitre la boucle qui pourrait marcher.
Merci de votre aide.

Salut,

Si tu veux faire comme ça, il faut que tes 100 textbox soient crées, d'une part, et d'autre part que tu les nommes toutes pareil (Text par exemple), et que tu leur donnes un index (de 1 à 100 ici).
La syntaxe pour la boucle que tu as donné sera alors
for i=2 to 100
  Text(i).text=Text(1).text
Next

Cela dit, je ne vois pas trop l'intérêt d'une telle boucle comme ça, mais c'est toi le chef du programme ;-)

 Pourapprendretoujoursplus!

Oui merci c est ça que je cherchais mais j'ai encore un petite problème.

j'obtient ce message d'erreur suivant : "Procédure Sub ou function non définie"

Private Sub check_Click()
Dim n As Integer
 For n = 2 To 100
    If Text(n).Text = Text(1).Text Then
next

Je suis débutant et j'essaie de faire un ptit programme qui compare des valeurs.j' obtient ce message car j'ai certaienement oublier de définir quelque chose mais je sais pas trop quoi... il me met l'erreur pour le text(n).text mais pourtant j'ai bien définie ma valeur n et tout mais text box son compléter par une valeur de 1 à 1000.

Merci pour ta réponse mstarsup5

Salut
en quel version développes tu ? vb6 ou vb net ?


MANUANTIBES

en visual basic 6 .

Merci

Re,
Vérifie 2 choses:
1: tu as bien mis comme index de 1 à 100 pour tes textbox (toutes nommées Text, je rappelle hein, pas Text1, Text2, ou autre chose)
2: dans ta boucle, il faut que ton n aie des valeurs prises par les index de tes textbox (soit ici de 1 à 100 si tu les as toutes crées...)

Si tu n'as pas fait ça, c'est un peu normal que ça ne marche pas...
Et si tu as fait ça, le code marche impec.

 Pourapprendretoujoursplus!

Private Sub check_Click()
Dim n As Integer

 For n = 1 To 100 Step 1
 
    If Text1(n).Text = Text1.Text Then
      Text1(n).BackColor = &HFFFF&
    Else
      Text1(n).BackColor = &H80000009
    End If
    
    If Text73.Text > 1000 Then
      MsgBox "nombre compris entre 1 et 1000"
    ElseIf Text73.Text < 1 Then
      MsgBox "nombre compris entre 1 et 1000"
   
 Next
End Sub

voila ma boucle ne marche pas .... car j'obtient ce message d'erreur suivant : "Procédure Sub ou function non définie"
les 100 textbox ont une valeur déja attribué au départ.mais pas moyen de passé d'un textbox à un autre via une boucle.

merci d'avance

Re,
plusieurs choses:

1 : Je vois des Text1, des Text73, et tout à l'heure c'était des Text (tout court).
Soit tu appelles tes textbox Text1, soit tu les appelles text73, soit tu les appelles Text tout court, mais ne fais pas tout à la fois...

2 : Tu écris: If Text73.Text > 1000
Alors sache qu'un textbox renferme une chaîne de caractères, pas un nombre.
Utilise donc plutôt If Val(Text73.Text)>1000

3 : Tu as écrit:
If Text73.Text > 1000 Then
      MsgBox "nombre compris entre 1 et 1000"
    ElseIf Text73.Text < 1 Then
      MsgBox "nombre compris entre 1 et 1000"

C'est pas plutôt
if val(Text73.Text)>=1 or Val(Text73.text)<=1000 then msgbox "nombre compris entre 1 et 1000"
 que tu veux? :-p

 Pourapprendretoujoursplus!

Pour que tes textbox soit indexer comme te dit mstaesup5, un truc que je fesais lorsque je coder en VB6, c'est de poser 1 seul Textbox sur ma page je la selcetionne je la copie et je la coller de nouveau sur la meme page , et à un moment il te demande si tu veux qu'il est le meme nom donc indexer ou si tu veux que le nom (name soit different), il faut repondre oui ou non je ne sais plus , mais donne la bonne reponse pour que la textbox est le meme nom.

je te conseil de creer une autre form est de faire le test avec les textbox et de mettre le code de la boucle for, ça devrai marcher


pour ton erreur "Procédure Sub ou function non définie" ,

voici ton code :
Private Sub check_Click()
Dim n As Integer

mets juste
Sub Check_Click()
dim n as Integer
.....

End Sub


je relis les postes
il y a une erreur aussi dans ton code
sur cette ligne 
If Text1(n).Text = Text1.Text Then


il faut ecrire comme t'a dis plus haut mstaesup5
If Text1(n).Text = Text1(1).Text Then

A+
MANUANTIBES

il y a encore des erreurs dans ton code

 If Text73.Text > 1000 Then
      MsgBox "nombre compris entre 1 et 1000"
    ElseIf Text73.Text < 1 Then
      MsgBox "nombre compris entre 1 et 1000"

il ne manque pas end if pour fermer ta boucle


on te dis que tes textbox doivent avoir le meme nom
et toi tu ne ecrire encore des textbox avec un nom Text73

il faut ecrire Text1(73).text > 1000 then
...

deja change Text1 comme nom ça porte a confusion

nomme la plutot TBCompar ou TBChiffre etc
TB... = TextBox
CB... = ComboBox
c'est la regle de  nommage que demande Microsoft, pour que tous les developpeurs comprennent.

MANUANTIBES