Discussion :

[jffaber]

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 :

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

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

[jffaber]

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

[jffaber]

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

Code :

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

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

[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 :

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

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)

[jffaber]

Parfait!

Merci pour tes explications!

[Laestic]

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

...