vba: nombre zones de textes variants selon critere

[sand13]

Hello la communauté j'ai une petite question concernant le VBA.

En fait dans un userform l'utilisateur rentre le nombre de personnes, pour une réservation (voyage) dans une zone de texte et je voudrais que en fonction du nombre de personnes saisi, il apparaisse le même nombre de zones de textes afin que l'on rentre les âges de chacun (en vue d'appliquer ou non une tarification spécifique, jeune, vieux ...).

Donc je voudrais savoir qu'elle programmation je dois utiliser parce que la je n'en ai aucune idée... :S

Merci d'avance, j'espère que j'ai été clair dans mes propos

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider afin d'ajouter les Textbox dynamiquement



Private Sub CommandButton1_Click()
Dim Txb As Control
Dim x As Byte, j As Byte

If TextBox1 = '' Or Not IsNumeric(TextBox1) Then Exit Sub
x = TextBox1

For j = 1 To x

Set Txb = Me.Controls.Add('Forms.Textbox.1')

With Txb
.Name = 'Txb' & j
.Object.TextAlign = 2
.Left = 50
.Top = 30 + ((j - 1) * 50)
.Width = 50
.Height = 20
End With

Set Txb = Nothing
Next j
End Sub



bonne soirée
MichelXld

 

[sand13]

Merci beaucoup, ça marche niquel. :silly:
Seulement, lorsque j'efface la saisie, les cases ne disparaissent pas.
Quelle programmation faut-il pour que lorque l'utilisateur par exemple se trompe dans sa saisie il puisse rectifier; c'est à dire que les cases disparaissent lorsque l'on efface le nombre dans la case, et reaparaissent quand l'on resaisi un chiffre.

(Pour que ca recommence c'est une histoire de loop je pense non ?)

D'avance merci !!!

 

[MichelXld]

bonsoir

dans ce cas tu utiliser


Private Sub TextBox1_Change()
Dim i As Integer

For i = Me.Controls.Count - 1 To 0 Step -1
If Left(Me.Controls(i).Name, 3) = 'Txb' Then Me.Controls.Remove Me.Controls(i).Name
Next i

End Sub



bonne soirée
MichelXld

 

[sand13]

Merci bien pour l'astuce MichelXld.

Excel n'a pas de secret pour vous c'est fou! héhé

Bonne soirée
sand13