XL 2010 Simplification de code "range" avec beaucoup de TextBox (50)

[BUG]

Bonsoir à tous,

Pourriez vous me dire (et comment ) est il possible de simplifier ce code ( jusqu' a 50 )?
.Range("E" & L) = TextBoxCh1.Value
.Range("D" & L) = TextBoxCh2.Value
.Range("F" & L) = TextBoxCh3.Value
.Range("G" & L) = TextBoxCh4.Value
.Range("H" & L) = TextBoxCh5.Value
.Range("I" & L) = TextBoxCh6.Value..
........................
.Range("AX" & L) = TextBoxCh50.Value
Merci pour votre aide.

 

[Phil69970]

Re

Marcel au tout début de ma vie sur excel (il y a longtemps) je renommais mes TabIndex à la main (on ne ris pas ) et je m'arrachais les cheveux alors depuis que j'ai découvert cette astuce (il y a longtemps aussi ).... mes cheveux s'en portent mieux.

@Phil69970

 

[BUG]

Un éléphant peignant avec un pinceau ! et un bug sur le VBa... ca existe tout ça , peu probant mais bon..
Nickel pour les TextBox , et de les faire défiler dans l ordre ,merci.
sur les listBox, je suis obligé de cliquer dans la ListRondier pour valider mon choix , et si je clique sur la ListBox1, et j ai une erreur VBA.

Private Sub ListBox1_Change()

If ListBox1.ListIndex >= 0 Then
Buffer = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Buffer = IIf(Buffer = "", "", Buffer & ",") & _
ListBox1.List(i)
End If
Next
If Buffer <> "" Then Txtbox_Feuille = Buffer
End If

End Sub

Merci.

 

[Phil69970]

Re

Un essai ....

@Phil69970

 

[BUG]

super !!

Merci Phil , merci encore pour votre implication à tous sur ce site.
A défaut d être un cador , je viens de passer Supportes XLD d'or
j 'aurai au moins la dorure..

​

 

[patricktoulon]

*Et non Patrick il y a 8 ou 9 frames... et les textbox sont disséminés partout

@Phil69970

Bonsoir @Phil69970
dans ce cas là c'est le premier exemple
les boucles for each boucle sur tout les descendants du userforms la hiérarchie n'est plus prise en compte

 

[BUG]

Super !!
Merci, phil, merci à tous pour votre aide précieuse ,de donner votre temps sur ce forum.