Format d'un textbox dans un userform (RESOLU)

[Morihei]

Bonsoir à vous,

après plusieurs recherche le bout de code ci-dessous me renvoi "Erreur de compilation : objet introuvable" sous XL2010 pourtant sous XL2003 pas de problèmes.

Dim DerLig As Long
Private Sub Userform_Initialize()

With Worksheets("S2013")
DerLig = .Range("D65536").End(xlUp).Row
Me.TextBox10 = .Range("A" & DerLig) + 1 ' qui est pour l'exemple "A" = 002
Me.TextBox10.Value = Format(Me.TextBox10, "000") ' donc doit donner 003
End With

Me.TextBox4.Value = Format(Now, "dd-mmm-yy")
Me.textbox11.Value = Format(Now, "mm") ' me donne le mois sous forme 00 soit Janvier = 01
Me.TextBox12.Value = "DE.12." & Me.textbox11.Value & Me.TextBox10.Value

Comment modifier le format value

Merci à vous et votre aide

 

[Papou-net]

Re : Format d'un textbox dans un userform

Bonsoir Morihei,

En l'absence d'un fichier exemple, essaie en remplaçant les deux lignes :

Me.TextBox10 = .Range("A" & DerLig) + 1
Me.TextBox10.Value = Format(Me.TextBox10, "000")

Par :

Me.TextBox10 = Format(.Range("A" & DerLig) + 1, "000")

Cordialement.

 

[Morihei]

Re : Format d'un textbox dans un userform

Bonsoir Papou-net,

merci de ta réponse elle ma permis de rationaliser quelques lignes de codes.

Pour mon problème il est résolu, un copier/Coller "sauvage" d'un autre classeur était le problème