Discussion :

[Grotone]

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

[mapeh]

Bonsoir,

en mettant .Object devant?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Object.MaxLength = 5

Bonne soirée

[Grotone]

Ah bah oui tiens donc, c'était tout con en fait.

Merci bien.