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 : Sélectionner tout - Visualiser dans une fenêtre à part
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