Discussion :

[ca_adrien]

Bonjour,

Alors je cherche une solution pour afficher dans mes différentes Textbox les valeurs des cellules d'une colonne.
Par exemple je veux quand dans Textbox1 ça affiche la valeur de la cellule A1
et ainsi de suite.
Vu mon nombre important de TextBox je cherche une solution pour que ça se fasse automatiquement dans une boucle.

Voila mon code que j'ai pour l'instant qui ne fonctionne pas vu que Textbox3 n'est pas égal Textbox(3) ^^ Dommage ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub OptionButton1_Click()
Dim no_colonne As Integer
no_colonne = Choix_motif.ComboBox2.ListIndex + 1
no_ligne = Sheets("Ddes").Cells(65000, no_colonne).End(xlUp).Row

For i = 3 To no_ligne
     TextBox(i) .Value = Sheets("Ddes").Cells(i, no_colonne).Value
Next

End Sub

Je vous remercie d'avance pour votre aide

[patricktoulon]

Bonjour
le principe est bon mais c'est l'orthographe du code qui ne l'est pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub OptionButton1_Click()
Dim no_colonne As Integer
no_colonne = Choix_motif.ComboBox2.ListIndex + 1
no_ligne = Sheets("Ddes").Cells(65000, no_colonne).End(xlUp).Row
 
For i = 3 To no_ligne
     controls("TextBox"&i) .Value = Sheets("Ddes").Cells(i, no_colonne).Value
Next
 
End Sub

[ca_adrien]

ça marche impeccable !
Merci pour ton aide