boucle de textbox

Version imprimable

boucle de textbox

bonjour,

j'ai un p'tit soucis pour désigner mes textbox dans une boucle.
Mes Textbox se nomme : Textbox3, Textbox4...Textbox14
Je souhaite y afficher le contenu d'une plage de cellules.

voici mon code pour comprendre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox1_Change()
Dim n As Integer
Dim i As Integer
 
n = 13
With Sheets("besoins par ensemble")
    Do While ComboBox1 <> ""
        If .Cells(n, 2) = ComboBox1.Value Then
            i = 3
            Do While i <> 15
                TextBox(i) = .Cells(n, 3 + i) 'mon problème ce situe ici : Textbox(i)
            Loop
        End If
    Loop
End With
 
End Sub

Merci d'avance de votre aide

22/07/2008, 14h26
jffaber

nb: j'ai oublié d'incrémmenter!

J'ai relu mon code et voici une version "un mieux"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Change()
Dim n As Integer
Dim i As Integer
 
n = 13
With Sheets("besoins par ensemble")
    Do While .Cells(n, 2) <> ""
        If .Cells(n, 2) = ComboBox1.Value Then
            i = 3
            Do While i <> 15
                TextBox(i) = .Cells(n, 3 + i) 'mon problème ce situ ici Textbox(i)
                i = i + 1
            Loop
        End If
    Loop
    n = n + 1
End With
 
End Sub

22/07/2008, 15h19
Laestic
Tu ne peux pas mettre de () après Textbox, ce ne sont pas des tableaux mais des contrôles. Pour accéder à un contrôle par indirection :
Code:

1 2 3 Dim oCtrl as Control set oCtrl = Me.Controls("nomducontrol")
Donc "TextBox(i) = .Cells(n, 3 + i)" devient

Me.Controls("Textbox" & i).Value = .Cells(n, 3 + i)
22/07/2008, 15h37
jffaber

Parfait!

Merci pour tes explications!
22/07/2008, 15h40
Laestic

C'est dans les tutoriaux de SilkyRoad :
http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

...