Discussion :

[Cephalopholis]

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.

[buhrne]

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.

[drakkar_agfa]

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.

[patbou]

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 :

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

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

[Cephalopholis]

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.