Discussion :

[ajc50]

*Bonjour*

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Controls("ComboBox" & k).AddItem "toto"

est valable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

X(k) = "toto"

est valable

mais comment dire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

??????("X" & k)= "toto"

c'est a dire X1 X2 au lieu de X(1) X(2) , faire passer le nom d'une variable

une instruction comme controls mais pour les variables
merci

[laetitia]

bonjour ajc50 le forum . c'est pas un "truc" comme cela que tu cherches a faire
boucle sur les combobox dans un userform & alimente avec "toto"
exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
  Dim i As Byte, k As Byte, j As Control
    i = 1
     For Each j In Controls
       If TypeName(j) = "ComboBox" Then
        For k = 1 To 10
          j.AddItem "toto" & i
         i = i + 1
       Next k
    End If
 Next j
End Sub

[ajc50]

merci pour ta demonstration, mais ce que je cherches c'est une fonction de type fonction (expression)
j ai 26 variables de q1 a q26 ; bon cela ne me genes pas beaucoup car le code VB est genere par macro dans une feuille excel et recopier sur un module VB. au fur et a mesure que le programme avance je regrettes de n'avoir pas fait de tableau Q(26),c'est plus joli. avec un tableau on peut faire
for i= 1 to 26: q(i)="":next pour des variablezs q(1), q(2) ....q(26)
mais sans tableau comment fait on
for i=1 to 26: q & i ="": next pour des variables q1, q2......q26



depuis j ai refais ma macro qui imprime du code VB avec des variables tableaux.