Microsoft 365 Référence d'une TextBox Masquée pour Exporter son contenu

ChTi160 à dit:

Bonjour Yoyo60
Mes Commentaires du Texte de la Procédure

VB:

Private Sub CommandButton1_Click()
Dim TxBox As Control
Dim i As Byte
i = Me.Controls.Count - 1 'Nombre de Controls sur le Userform
Set TxBox = UserForm1.Controls.Add("Forms.Textbox.1", "TB" & i, True) 'On affecte a la variable TextBox (Control) un nouveau Control (TextBox) On y met Un Nom "TBi"
With TxBox 'Avec ce TextBox
.Name = TextBox_Telephone_2 'On lui donne Un autre Nom ( Pourquoi ?)
.Tag = "TB" & i 'On met dans sa Propriété .Tag "TB" & i le premier Nom du Control
.Height = 20 'on définit sa hauteur
.Top = 120   'On définit sa Position en Hauteur sur le Userform
.Left = 15   'On définit sa Position horizontale sur le Userform
.Font.Size = 12 'On définit la taille de son texte
.Width = 250    ''On définit sa largeur
End With
End Sub

cette Procédure , si tu appuies plusieurs fois , va créer autant de Control que ( i ) qui vont ce mettre les Uns sous les Autres
n'hésite pas si besoin !
Jean marie

Cliquez pour agrandir...

Hasco à dit:

bonjour,

vos textbox s'appelent "TB1" à "TBn" oùest est un nombre pour le moment indéfini.
Pourquoi vouloir ajouter des TextBox ? Réinitialiser un seul textbox de départ ne serait-il pas plus judicieux ?
Vos textbox étaient masqués parcequ'il avait tous le même .Top
Vous vous compliquez la tâche pour rien (à part l'apprentissage).

Cordialement

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour
ce que j'ai ajouté en tête de la Procédure

VB:

Private Sub Combobox1_Change()
Dim CTRL As Control
Dim x As Byte

Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim d As Byte
Dim e As Byte
Dim f As Byte
Dim g As Byte
Dim h As Byte
Dim i As Byte
Dim j As Byte
Dim k As Byte

a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
g = 7
h = 8
i = 9
j = 10
k = 11
'************ On masque l'ensemble des Controls avant d'appliquer le Choix
For i = 1 To 12
 Me.Controls("TextBox" & i).Visible = False
 Me.Controls("Label" & i).Visible = False
Next i
'***********************
'Pour 0
x = 0
If Me.ComboBox1 = "" Then
'

à voir si nécessaire pour le Combobox "ComboBox_Nombre_Adulte"
Tu pourrais alors ajouter

Code:

Private Sub ComboBox_Nombre_Adulte_Change()
Me.ComboBox1.ListIndex = 0
End Sub

Jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Re
Une autre approche qui fait gagner des Lignes Lol
(Sûrement perfectible)

VB:

Private Sub ComboBox_Nombre_Adulte_Change()
Me.ComboBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
Dim CTRL As Control
Dim x As Byte
With Me
  .ComboBox_Nombre_Adulte.List = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20")
  .ComboBox2.List = Array("", "1", "2", "3", "4", "5", "6") 'Bébé
  .ComboBox1.List = Array("", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12") 'Enfant
  .ComboBox1.ListIndex = 0
End With
End Sub

Private Sub Combobox1_Change()
Dim CTRL As Control
Dim x As Byte
Dim ii As Byte
Dim oDebut As Byte, oFin As Byte

With Me

For ii = 1 To 12
 .Controls("TextBox" & ii).Visible = True
 .Controls("Label" & ii).Visible = True
Next ii

'Pour 0
If .ComboBox1 = "" Then
oDebut = 1: oFin = 12
End If
'Pour 1
If .ComboBox1 = "1" Then
oDebut = 2: oFin = 12
End If
'Pour 2
If Me.ComboBox1 = "2" Then
oDebut = 3: oFin = 12
End If
'Pour 3
If Me.ComboBox1 = "3" Then
oDebut = 4: oFin = 12
End If
'Pour 4
If .ComboBox1 = "4" Then
oDebut = 5: oFin = 12
End If
'Pour 5
If .ComboBox1 = "5" Then
oDebut = 6: oFin = 12
End If
'Pour 6
If .ComboBox1 = "6" Then
oDebut = 7: oFin = 12
End If
'Pour 7
If .ComboBox1 = "7" Then
oDebut = 8: oFin = 12
End If
'Pour 8
If .ComboBox1 = "8" Then
oDebut = 9: oFin = 12
End If
'Pour 9
If .ComboBox1 = "9" Then
oDebut = 10: oFin = 12
End If
'Pour 10
If .ComboBox1 = "10" Then
oDebut = 11: oFin = 12
End If
'Pour 11
If .ComboBox1 = "11" Then
oDebut = 12: oFin = 12
End If
''Pour 12
If .ComboBox1 = "12" Then
Exit Sub
End If

For ii = oDebut To oFin
    .Controls("TextBox" & ii).Visible = False
    .Controls("Label" & ii).Visible = False
Next ii

End With
End Sub

N'hésite pas si besoin !
Jean Marie

Cliquez pour agrandir...