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

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

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.

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

​

Phil69970 à dit:

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

@Phil69970

Cliquez pour agrandir...

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

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