Discussion :

[clipper31]

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 :

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

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.

[Theze]

Bonjour,

Une piste :

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
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é.

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