UserForm: le nombre de zones de texte variable

Bonjour à tous,

Je souhaiterais créer un userform qui, suivant le chiffre que je reçois dans une cellule, crée tant de textbox.

Je m'explique, si je reçois un chiffre 3 (nombre de personnes d'un groupe), je veux que le Userform comporte trois zones de texte pour y mettre les noms de ces personnes.

J'espère que j'étais clair.

Merci d'avance.

Salut, je pense que tu te compliques la vie à vouloir passer par un usf, t'as essayer avec des imputbox ?

La macro renvoi sur une boucle dont la fin est déterminée par le nombre de personne indiqué. A chaque tour un imputbox s'ouvre et te rempli une cellule avec sa valeur.

Je sais pas si ça marche mais ça doit être faisable.

Et si tu veux accumuler les données tu peux créer un tableau avec le nombre déterminé et affecter avec la boucle les noms dans chaque case.

Bonjour,

Tu peux ajouter dynamiquement des textbox dans ton userform.
La taille des controls et du userform est à adapter suivant le nb de ctrl.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() Dim i As Byte Dim ctrl As Control For i = 1 To Worksheets(1).Cells(1, 1) ' nb de txtbox Set ctrl = Me.Controls.Add("Forms.TextBox.1") With ctrl .Height = 20 .Width = 100 .Left = 30 .Top = 10 + (i - 1) * 30 End With Next End Sub

---

Merci à tous.

J'ai déjà mis une boucle pour les inputbox, mais mon programme s'étend à une série d'éléments qui se suivent dans l'ordre et je voulais les visionner tous dans un seul USF.

Merci.