MaxLength de textbox à la création
Bonjour,
J'ai un petit problème pour utiliser la propriété MaxLength des textbox.
Je cherche à créer des textbox en cliquant sur un bouton, et gérer au moment de leur création, leur propriété MaxLength en y assignant une valeur quelconque.
Voila ce que j'ai ...
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub CommandButton1_Click()
ActiveSheet.OLEObjects.Add "Forms.TextBox.1", Left:=10, Top:=10, Height:=20, Width:=100
With ActiveSheet.OLEObjects("TextBox1")
.Left = ActiveCell.Offset(0, 1).Left + 20
.Top = ActiveCell.Top
.Width = 630
.Height = 50
.MaxLength = 5
.Name = "Textbox" & ActiveCell.Row
End With
End Sub |
Sans le MaxLength tout marche parfaitement, mais apparemment, je ne peux pas modifier MaxLength avec cette méthode. Quelqu'un aurait une solution ?
Merci d'avance
Grotone
