XL 2010 Génération de TextBox

empiresailor · 26 Juillet 2019

Bonjour,
je voudrais savoir si il était possible de générer des TextBox selon la valeur de l'une d'entre elle. Voici un exemple si je tape 3, j'ai mode n°1, 2 et 3 avec une textBox associé et ainsi de suite si je tape un autre nombre

Merci

Robert · 26 Juillet 2019

Bonjour Empiresailor, bonjour le forum,

Je considère que la Textbox1 est celle où tu tapes le nombre... Code de base à adapter et à ajuster :

VB:

Private Sub TextBox1_Change()
Dim NB As Byte
Dim CTRL() As Control

NB = CByte(Me.TextBox1.Value)
ReDim CTRL(1 To NB)
For I = 1 To NB
    Set CTRL(I) = Me.Controls.Add("Forms.Textbox.1", "TextBox" & I + 1, True)
    With CTRL(I)
        .Top = Me.TextBox1.Top + ((Me.TextBox1.Height + 6) * I)
        .Left = Me.TextBox1.Left
    End With
Next I
End Sub

XL 2010 Génération de TextBox

empiresailor

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Discussions similaires