Format d'un textbox dans un userform (RESOLU)

Morihei

XLDnaute Nouveau
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
 
Dernière édition:

Papou-net

XLDnaute Barbatruc
Re : Format d'un textbox dans un userform

Bonsoir Morihei,

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

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

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

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07