Probleme de syntaxe variable

[Leskwal]

BONJOUR LE FORUM

UN P'tit problème de syntaxe... Je lutte

Avant tout :
Les variables locales:
TOTO_1 as integer
TOTO_2 as integer
TOTO_3 as integer
TOTO_4 as integer
TOTO_5 as integer

BOUCLE_TXTBOX as integer


Chaque variable TOTO prend une valeur numérique spécifique.

Je souhaite ensuite intégrer les valeurs des variables dans des textbox formatés

   ' DOCUMENTATION AUTOMATIQUE DES TEXTBOX DANS USF
For BOUCLE_TXTBOX = 1 To 5 ' Correspond NB de TOTO
         
UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_ & BOUCLE_TXTBOX
      
Next BOUCLE_TXTBOX

Plutôt que de remplir le textbox de la manière suivante :

UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_1
UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_2
UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_3
UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_4
UserForm_Secteur.Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO_5

je désire utiliser le numéro de boucle pour nommer ma variable TOTO_ + numéro de boucle.

J'espère avoir été clair...

Un grand MERCI d'avance pour vos propositions.

Cordialement

Pascal

 

[Misange]

Re : Probleme de syntaxe variable

Bonjour
Tu y es presque : il ne faut pas mettre
UserForm_Secteur.Controls....
mais juste
Controls...

 

[Paf]

Re : Probleme de syntaxe variable

Bonjour à tous

la solution de la variable indicée, c'est un tableau.

Par exemple

TOTO(1) = 10
TOTO(2) = "dix"
TOTO(3) = "bonjour"
TOTO(4) = 65536
TOTO(5) = 100

For BOUCLE_TXTBOX = 1 To 5 ' Correspond NB de TOTO        
  Controls("TextBox_" & BOUCLE_TXTBOX ).Value = TOTO(BOUCLE_TXTBOX)    
Next

A+

 

[Staple1600]

Re : Probleme de syntaxe variable

Bonsoir à tous

Autre écriture possible
Dim Toto
Toto=Array(1,2,3,4,5)
For i=0 to Ubound(toto)
Controls("TextBox_" & i+1)=toto(i)
Next i

 

[Si...]

Re : Probleme de syntaxe variable

salut

... il ne faut pas mettre
UserForm_Secteur.Controls....
mais juste
Controls... ou peu usité Me...

D'où une autre proposition, en numérotant les "TOTO" :

Private Sub CommandButton1_Click()
  Dim i as Byte  
  For i = 1 To 5
    Me("TextBox_" & i ) = "TOTO_" & i 
  Next
End Sub

Qui peut me dire quel est l'intérêt d'écrire dans le module de l'UsF

UserForm1.Textbox...
UserForm1.Listbox...

de faire référence à l'UsF dans lequel on est* ?

* vu très souvent dans les propositions