creer une boucle pour lire le contenu de textboxRésolu

Question

Bonjour
J'ai une form avec une dizaine de textbox et je désire par une boucle allez lire le contenu des textbox de 2 à 9 par exemple
j'ai fait une boucle du style
for i=2 to 9
lecture=textbox(i).text
next i
mais ça ne fonctionne pas

Utilisateur anonyme · Accepted Answer

Salut,

Tes TexteBoxs sont-elles indexées ? (Propriété Index)

__________
  Kenji

jmfmarques · Answer

Salut kenji;

pas de groupes de contrôles indexés sous VBA, à ma connaissance....
Nous sommes ici dans :
Thèmes / Visual Basic 6 / Langages dérivés / VBA
en conséquence, cette ligne :
lecture=textbox(i).text
(pêchée je ne sais où)
ne saurait correspondre à une syntaxe VBA !!!


Il y a une solution avec la collection Controls, mais comme on ne sait pas comment il a nommé ses tectboxes, on attend ses précisions, ma foi ...

jraynald · Answer

les boites s'appellent textbox1 textbox2 etc

cs_Exploreur · Answer

Salut,

Quel intérêt de remplir une variable(je suppose de type String) 8 fois, si à chaque lecture il efface l'ancienne valeur..???

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Essayons cela :

Dim oCtrl As control

For Each oCtrl In Me
       If TypeOf oCtrl Is TextBox Then          If Not oCtrl.Name TextBox1 And oCtrl.Name TextBox2 Then
             ' Tu fais ce que tu veux ici
          End If
       End If
Next oCtrl 
              

A+
Exploreur

 Linux a un noyau, Windows un pépin

Utilisateur anonyme · Answer

En vba ..., j'avais pas fait attention
Donc, tu peux faire ainsi :
Dim i As Integer
For i = 2 To 9
  lecture = Me.Controls("TextBox" & i).Text
Next i, ----
(Coloration syntaxique automatique par Kenji)

__________
  Kenji

jraynald · Answer

Nickel Charles c'est exactement ce que je cherchai.
Merci

cs_Byrong · Answer

Bonjour

moi j'aimerais faire a peut pret le meme que cela mais changer la couleur de fond...

        Dim I as integer
        Dim Tableau(,)
       
        ...(je tape pas tout le code car c'est tres long )
        
        For i = 0 To Grilles - 1
                name = "TextBox0" &amp; i &amp; Tableau(i, j)
                Me.Controls(name).backcolor = Color.Red
        Next


Ca me met un message d'erreur "La référence d'objet n'est pas définie à une instance d'un objet."
c'est le "Me" qui pose problème je crois

Pouvez vous m aider?

cs_Exploreur · Answer

Salut,

Je pense que c'est plus tôt ton Name qui pose problème...la recontruction du nom de ton TextBox.

++




A+
Exploreur

 Linux a un noyau, Windows un pépin 
    ** http://exploreur1.labrute.fr **

cs_Byrong · Answer

j ai fait un msgbox afin qu'il affiche le nom et le nom que le msgbox affiche correspond bien au nom du textbox

voila pourquoi je ne comprends pas d ou vient le souci

cs_Exploreur · Answer

Oki...^^

cs_Byrong · Answer

j ai fait ceci pour avoir les etapes


        For i = 0 To Grilles - 1
            For j = 0 To 4
                nbr = Tableau(i, j)
                num = ((i + 1) * 100) + nbr
                MsgBox(num)
                test = ("TextBox" &amp; num)
                MsgBox(test)
                Me.Controls(test).BackColor = Color.Red
            Next j
        Next i

ca m'affifche bien le nom de la textbox mais ca ne change pas le backcolor

Creer une boucle pour lire le contenu de textbox

12 réponses

Votre réponse

Discussions similaires