Indirection pour remplir un userform

Version imprimable

03/04/2013, 17h30
clipper31

Indirection pour remplir un userform
Bonjour à tous,
tout nouveau sur ce forum où j'ai trouvé déjà beaucoup d'aide aux travers des différentes discussions. Je suis un développeur de Pcsoft (Windev, Webdev) mais aujourd'hui on me demande de réaliser des userforms sur un gros projet excel. Alors voilà mon problème, je souhaites récupérer une 50 de cellules de la feuille Excel pour les mettre dans des TextBox, mais je n'ai pas envie de le faire manuellement une par une. J'ai donc pensé à l'indirection mais je ne trouve pas de syntaxe me permettant cette opération. Voici un bout de code pour être plus explicite :
Code:

1 2 3 4 5 Sub remplir_les_semaine() For i = 1 To 52 "Ambiance.TextBox" + CStr(i) = range("Feuil1!A"+cstr(i) Next i End Sub
Merci à vous pour vos réponses éclairées.

Bonjour,

Une piste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub UserForm_Click()
 
    remplir_les_semaine
 
End Sub
 
Sub remplir_les_semaine()
 
    Dim I As Integer
 
    For I = 0 To Ambiance.Controls.Count - 1
 
        If TypeName(Ambiance.Controls(I)) = "TextBox" Then
 
            Ambiance.Controls(I).Text = Worksheets("Feuil1").Range("A" & I + 1)
 
        End If
 
    Next I
 
End Sub

Hervé.

03/04/2013, 18h31
clipper31

Parfait, ça fonctionne comme je voulais.

Encore merci et j'espère moi aussi apporter des réponses à vos questions, mais il faut que je continues à faire mes armes avant.

Bonne soirée.